Tính Diện Tích Hình Tam Giác, Tròn, Vuông, Chữ Nhật, Thang

Có thể bạn quan tâm

Đăng nhập

Việt Nam Overnight Trang Chủ Diễn Đàn > E - CÁC CÂU LẠC BỘ > CLB Học Tập > Học Online >

Tặng tiền điện tử miễn phí
Phát thẻ điện thoại miễn phí
Những nhiệm vụ kiếm tiền
Hướng dẫn kiếm tiền Binance

FR CV NV QC Viết chương trình pascal: Tính diện tích hình tam giác, tròn, vuông, chữ nhật, thang

Thảo luận trong 'Học Online' bắt đầu bởi MỹSweet, 24 Tháng sáu 2022.

MỹSweet
Bài viết: 7
Đề: Viết chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật, hình thang trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách chọn trong các lệnh sau: 0. Trở về màn hình và không thực hiện thao tác. 1. Tính diện tam giác. 2. Tính diện tích hình tròn. 3. Tính diện tích hình vuông. 4. Tính diện tích hình chữ nhật. 5. Tính diện tích hình thang. Cách làm: Mã: Program Tinh_dien_tich; Uses crt; Var chon: Char; Procedure Hinh_tam_giac; Var a, h, s: Real; Begin Wite ('nhap canh huyen, chieu cao hinh tam giac ') ; readln (a, h) ; S: =a*h/2; Write ('dien tich hinh ta m giac la: ', s: 5) ; End; Procedure Hinh_tron; Uses crt; Var s, r: Real; Begin Write ('nhap ban kinh: ') ; readln (r) ; S: =3.14*r*r; Write ('dien tich cua hinh tron la: ', s: 5: 2) ; End; Procedure Hinh_vuong; Uses crt; Var a, s: Real; Begin Write ('nhap chieu dai canh: ') ; readln (a) ; S: =a*a; Write ('dien tich hinh vuong: ', s: 5: 2) ; End; Procedure Hinh_chu_nhat; Uses crt; Var a, b, s: Real; Begin Write ('nhap chieu dai: ') ; readln (a) ; Write ('nhap chieu rong: ') ; readln (b) ; S: =a*b; Write ('dien tich hinh chu nhat la: ', s: 6: 2) ; End; Procedure Hinh_thang; Uses crt; Var a, b, h, s: Real; Begin Write ('nhap day lon: ') ; readln (a) ; Write ('nhap day nho: ') ; readln (b) ; Write ('nhap chieu cao: ') ; readln (h) ; S: =((a+b) *h) /2; Write ('dien tich hinh thang la: ', s: 6: 2) ; End; {phan chuong trinh chinh} Begin Clrscr; Writeln ('0. Thoat') ; Writeln ('1. Dien tich hinh tam giac) ; Writeln ('2. Dien tich hinh tron) ; Writeln ('3. Dien tich hinh vuong) ; Writeln ('4. Dien tich hinh chu nhat) ; Writeln ('5. Dien tich hinh thang) ; Writeln (nhan mot phim de chon') ; Readln (chon) ; Case chon of "0" : Exit; "1" : Hinh_tam_giac; "2" : Hinh_tron; "3" : Hinh_vuong; "4" : Hinh_chu_nhat; "5" : Hinh_thang; Else write ('sai') ; End; Readln; End .
Thùy Minh và Admin thích bài này. Last edited by a moderator: 12 Tháng chín 2022 MỹSweet, 24 Tháng sáu 2022 Tặng xu #1