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,875 đ từ bài viết, nhận

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ý!

Xem nhiều nhất tuần

• Cách viết một bài nghị luận xã... NhưHạa posted 22 Tháng mười hai 2024
• Đề: Phân tích nội dung, nghệ... AiroiD posted 25 Tháng mười hai 2024
• Dàn ý và ví dụ bài luận: Kì... NhưHạa posted 29 Tháng mười hai 2024 lúc 12:26 AM
• Nghị luận xã hội: Bắt chước... Thư Viện Ngôn Từ posted 26 Tháng mười hai 2024 lúc 2:01 PM
• Bàn về cách cư xử ở đời Thư Viện Ngôn Từ posted 24 Tháng mười hai 2024

Đang tải...

Bạn đến từ đâu Hà Tĩnh?

1. TP Hà Tĩnh 12 phiếu
2. Hồng Lĩnh 2 phiếu
3. TX Kỳ Anh 5 phiếu
4. Can Lộc 4 phiếu
5. Cẩm Xuyên 1 phiếu
6. Đức Thọ 2 phiếu
7. Hương Khê 6 phiếu
8. Hương Sơn 2 phiếu
9. Kỳ Anh 2 phiếu
10. Lộc Hà 2 phiếu
11. Nghi Xuân 1 phiếu
12. Thạch Hà 3 phiếu
13. Vũ Quang 3 phiếu

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...