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

Đă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 >

1. Tặng tiền điện tử miễn phí
2. Phát thẻ điện thoại miễn phí
3. Những nhiệm vụ kiếm tiền
4. 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.

1. 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 #1
2. ☺ kiếm được 2,848 đ từ bài viết, nhận
3. 

Từ Khóa:

• pascal

Trả lời qua Facebook

• Login with Facebook
• Log in with Google

Tên tài khoản hoặc địa chỉ Email: Bạn đã có tài khoản rồi?

• Tích vào đây để đăng ký
• Vâng, Mật khẩu của tôi là:
• Bạn đã quên mật khẩu?

Duy trì đăng nhập Đăng ký!

Đề tài cần chú ý

• Viết đoạn văn ghi lại cảm xúc... Ột Éc replied 7 Tháng mười một 2024
• Nội quy box học online Sói replied 1 Tháng tám 2023

Đang tải...

Xem nhiều nhất tuần

• Phân tích đoạn trích Thúc Sinh... AiroiD posted 15 Tháng mười một 2024
• Nghị luận xã hội: Vai trò của... Cơn Mưa Mùa Hạ posted 25 Tháng mười một 2024 lúc 12:41 PM
• Nghị luận xã hội: Tuổi trẻ sáng tạo Cơn Mưa Mùa Hạ posted 25 Tháng mười một 2024 lúc 12:36 PM

Đang tải...

Kết quả bạn là thụ hay công?

1. Công 70 phiếu
2. Thụ 71 phiếu

Hướng dẫn cách kiếm tiền trên Binance 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 > Đang tải...