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

• Trang chủ
• Diễn đàn Bài viết mới Tìm kiếm
• Tin mới Nổi bật Bài viết mới Nhật ký mới Hoạt động
• Tiện ích Up ảnh miễn phí Kiểm tra chính tả Kiếm tiền Online Mua bitcoin làm giàu Thẻ điện thoại miễn phí
• Thành viên Đã đăng ký Đang truy cập Nhật ký mới Tìm kiếm
• Danh bạ New items New comments Latest reviews Tìm kiếm danh bạ Mark read

Đăng nhập Đăng ký Trực tiếp Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài thảo luận Diễn đàn này This thread Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Bài viết mới
• Tìm kiếm

Danh mục Đăng nhập Đăng ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

• Thread starter Thread starter MỹSweet
• Ngày gửi Ngày gửi 24 Tháng sáu 2022

• 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

Đặt quảng cáo Binance kiếm tiền thông báo chơi game 2048 text link facebook cách viết bài thẻ điện thoại BOT giao dịch MEXC tự sướng 5 triệu 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 [Xóa] 1 người đang xem Theo dõi

MỹSweet

Xu 36,014 9 ❤︎ Bài viết: 13 Đề: 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 . Last edited by a moderator: 12 Tháng chín 2022 Từ khóa: Sửa

• Từ khóa Từ khóa pascal

Những người đang xem chủ đề này

Tổng: 2 Thành viên: 0, Khách: 2

Các chủ đề tương tự

Cách làm các kiểu bài dạng viết - Ngữ văn 10 - Chương trình mới

• Thùy Minh
• 9 Tháng năm 2023
• Học Online

Trả lời 7 Đọc 2K 13 Tháng năm 2023 Thùy Minh Viết chương trình pascal: Cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

• MỹSweet
• 23 Tháng sáu 2022
• Học Online

Trả lời 0 Đọc 1K 23 Tháng sáu 2022 MỹSweet Viết chương trình tính tổng 3 số a,b,c . Trong đó a,b,c nhập từ bàn phím

• họC Ng
• 3 Tháng mười 2021
• Học Online

Trả lời 0 Đọc 12K 3 Tháng mười 2021 họC Ng Tin11C++ Viết chương trình nhập vào bàn phím xâu kí tự không quá 100. Cho biết trong xâu có bn số

• Hương Chi
• 30 Tháng tư 2021
• Học Online

Trả lời 0 Đọc 832 30 Tháng tư 2021 Hương Chi Tin11C++: Viết chương trình nhập vào 1 xâu kiểm tra xem xâu có đối xứng không

• Hương Chi
• 30 Tháng tư 2021
• Học Online

Trả lời 0 Đọc 899 30 Tháng tư 2021 Hương Chi Share: Facebook X Bluesky LinkedIn Reddit Tumblr Email Share Link

Nội dung nổi bật

• Hướng dẫn kiếm tiền từ việc đăng ảnh
  • Admin
  • 25 Tháng ba 2019
  Trả lời: 1
• Các nhiệm vụ kiếm tiền online tại diễn đàn
  • Admin
  • 18 Tháng tư 2018
  Trả lời: 7
• Giới thiệu thành viên - Kiếm tiền không giới hạn
  • Admin
  • 16 Tháng tư 2018
  Trả lời: 9
• Hướng dẫn cách kiếm nhiều xu từ việc giới thiệu bạn bè
  • Admin
  • 31 Tháng bảy 2019
  Trả lời: 40
• Hướng dẫn cách chia sẻ bài viết lên Facebook, Twitter kiếm tiền
  • Admin
  • 26 Tháng mười một 2015
  Trả lời: 1

Xu hướng nội dung

• Các nhiệm vụ kiếm tiền online tại diễn đàn
  • Admin
  • 18 Tháng tư 2018
  Trả lời: 7
• Đô Thị Cực Phẩm Y Thần - Phong Hội Tiếu
  • Land of Oblivion
  • 20 Tháng tám 2023
  Trả lời: 12K
• Nối chữ tiếng Việt
  • luuxinh69
  • 16 Tháng tám 2020
  Trả lời: 6K
• [Dịch] NPC Cố Gắng Sống Sót Trong Trò Chơi Kinh Dị - Mặc Linh
  • Bunmincha
  • 20 Tháng tám 2025
  Trả lời: 270
• Nối chữ tiếng Anh
  • Xuân Lê
  • 24 Tháng mười một 2020
  Trả lời: 5K

Chia sẻ trang này

Facebook X Bluesky LinkedIn Reddit Tumblr Email Share Link

• Trang chủ
• Diễn đàn
• E - CÁC CÂU LẠC BỘ
• CLB Học Tập
• Học Online

• Tuyển QTV phát triển diễn đàn

Back