Lập Trình Pascal: Viết Các Chương Trình Con Tính Diện Tích Tam Giác ...
Có thể bạn quan tâm
- Trang nhất
- Tin học
- In ra
Tags: Lập trình PascalProgram TINH_DIEN_TICH; Uses crt; Procedure HV; Var s,a:real; Begin Writeln('TINH DIEN TICH HINH VUONG:'); Write('Nhap chieu dai cua canh a = ');readln(a); s:=a*a; Writeln('Dien tich hinh vuong = ',s:6:2); End; Procedure HT; Var s,r:real; Begin Writeln('TINH DIEN TICH HINH TRON:'); Write('Nhap ban kinh R = ');readln(r); s:=pi*r*r; Writeln('Dien tich hinh tron = ',s:6:2); End; Procedure TG; Var a, b, c,s,p:real; Begin Writeln('TINH DIEN TICH TAM GIAC:'); Write('nhap a =');readln(a); Write ('nhap b =');readln(b); Write('nhap c =');readln(c); If ((a+b)>c)and((b+c)>a)and((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2) ; Writeln('Dien tich tam giac:',s:4:2); End Else Writeln(a,', ',', ',c,' khong phai la ba canh cua tam giac') ; End; Procedure CN; Var a, b, s:real; Begin Writeln('TINH DIEN TICH HINH CHU NHAT:'); Write('Nhap chieu dai a =');readln(a); Write('Nhap chieu rong b= ');readln(b); s:= a*b; Writeln('Dien tich hinh chu nhat, s= ',s:6:2); End; Procedure menu; Var d:integer; Begin Clrscr; Writeln('CHON MOT TRONG CAC PHUONG AN SAU:'); Writeln('----------------------------------'); Writeln('0: Quay ve man hinh soan thao'); Writeln('1: Tinh dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln('3: tinh dien tich tam giac'); Writeln('4: Tinh dien tich hinh chu nhat'); Writeln('===================='); Write(' Hay chon mot phuong an: '); readln(d); Writeln('===================='); Writeln; Case d of 0: Exit; 1: HV; 2: HT; 3: TG; 4: CN; End; End; Begin menu; Readln; End.
Ý kiến bạn đọc
Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thíchTheo dòng sự kiện
Đề thi học kì 2 môn Sinh học lớp 11 sách Kết nối tri thức năm 2024
Đề thi học kì 2 môn Sinh học lớp 11 sách Chân trời sáng tạo năm 2024
Xem tiếp...
Những tin cũ hơn
Lập trình Pascal: Dùng chương trình con lập tam giác Pascal bằng tổ hợp Lập trình Pascal: Dùng chương trình con tính tổ hợp
Lớp 1 | Lớp 2 | Lớp 3 | Lớp 4 | Lớp 5 |
Lớp 6 | Lớp 7 | Lớp 8 | Lớp 9 | |
Lớp 10 | Lớp 11 | Lớp 12 | ||
Bài học | Bài soạn | Bài giảng | ||
Bài giới thiệu | Bài hướng dẫn | |||
Bài làm văn | Bài trắc nghiệm | |||
Kiểm tra 15P | Kiểm tra 1 tiết | |||
Kiểm tra HK1 | Kiểm tra HK2 | |||
Thi vào lớp 10 | Tốt nghiệp THPT |
Lớp 1 | Lớp 2 | Lớp 3 | Lớp 4 | Lớp 5 |
Lớp 6 | Lớp 7 | Lớp 8 | Lớp 9 | |
Lớp 10 | Lớp 11 | Lớp 12 | ||
Kiểm tra 15 phút | Kiểm tra 1 tiết | |||
Kiểm tra học kì 1 | Kiểm tra học kì 2 | |||
Luyện thi theo Bài học | ||||
Luyện thi THPT Quốc Gia |
Từ khóa » Viết Chương Trình Con Tính Diện Tích Hình Tròn
-
Viết Chương Trình Con Tính Diện Tích Hình Tròn Bán Kính R (sử Dụng ...
-
Bài 5. Viết Chương Trình Tính Diện Tích Hình Tròn
-
Viết Chương Trình Tính Chu Vi Và Diện Tích Hình Tròn - TopLoigiai
-
Viết Chương Trình Con Tính Diện Tích Và Chu Vi Hình Tròn - MTrend
-
Viết Chương Trình Tính Diện Tích Hình Tròn C
-
Tin 11 Viết Chương Trình Tính Diện Tích Hình Tròn ...
-
Viết Chương Trình Tính Diện Tích Hình Tròn Biết Bán Kính được Nhập Từ ...
-
Viết Các Chương Trình Con Tính Diện Tích Tam Giác, Tròn, Vuông, Chữ ...
-
1- Viết Chương Trình Con Tính Diện Tích Hình Tròn Bán Kính R ... - Hoc24
-
Viết Chương Trình Tính Diện Tích Hình Tròn,biết Bán Kính được Nhập Từ ...
-
Tính Diện Tích Hình Tam Giác, Tròn, Vuông, Chữ Nhật, Thang
-
Viết Chương Trình Tính Diện Tích Hình Tròn Trong Pascal Câu Hỏi 1287312
-
Cách Viết Chương Trình Tính Chu Vi Và Diện Tích Hình Tròn - YouTube