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í Thông tin quan trọng
  2. Phát thẻ điện thoại miễn phí Thông tin quan trọng
  3. Những nhiệm vụ kiếm tiền Thông tin quan trọng
  4. Hướng dẫn kiếm tiền Binance Thông tin quan trọng
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,857 đ từ bài viết, nhận Bấm vào đây
  3. Đăng ký Binance
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ú ý

  • Ột Éc Viết đoạn văn ghi lại cảm xúc... Ột Éc replied 7 Tháng mười một 2024
  • Sói 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

  • AiroiD Phân tích đoạn trích Thúc Sinh... AiroiD posted 15 Tháng mười một 2024
  • Cơn Mưa Mùa Hạ Đọc hiểu: Sự trung thực của trí... Cơn Mưa Mùa Hạ posted 25 Tháng mười một 2024 lúc 11:27 PM
  • Cơn Mưa Mùa Hạ Đọc hiểu: Tiếng việt - Lưu Quang Vũ Cơn Mưa Mùa Hạ posted 25 Tháng mười một 2024 lúc 10:21 PM
  • Cơn Mưa Mùa Hạ 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
  • Cơn Mưa Mùa Hạ 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...

Nên sống ở quê hay thành phố?

  1. Thành phố 165 phiếu
  2. Về quê 170 phiếu
Đăng ký Binance 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...

Từ khóa » Cách Tính Diện Tích Hình Thang Trong Pascal