khoahoc.vietjack.com
Xin chào! Vào học

Câu hỏi:

13/07/2026 78 Lưu

Viết chương trình tính diện tích hình chữ nhật, tam giác, hình bình hành, hình thang trong pascal

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

* Tính diện tích hình chữ nhật

program dthcn;

var 

a, b, c : integer;

begin

Write ('Nhap chieu dai:'); read (a);

Write ('Nhap chieu rong:'); read (b);

s := a * b;

Write ('Dien tich hinh chu nhat la:',s);

Readln

End.

* Tính diện tích hình thang

program dtht;

var

a, b, h:Integer;

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;

WriteLn ('Dien tich hinh thang la:',s);

readln

end.

* Tính diện tích tam giác

program dttg;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := 1/2 * a * h;

Write ('Dien tich tam giac la:',s);

Readln

End.

* Tính diện tích hình bình hành

program dthbh;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := a * h;

Write ('Dien tich hinh binh hanh la:',s);

Readln

End.

 * Tính diện tích hình tròn

program dthtr;

const 

pi=3.14;

var

r:Real;

s:Real;

begin

Write('Nhap ban kinh:'); readln(r);

s:=r*r*pi;

write('Dien tich hinh tron:',s);

readln

end.

Đang tải chế độ Học...

Hot: 1000+ đề thi cuối kì 1 lớp 1-12 đầy đủ các môn (Update 2026) (chỉ từ 60k). Tải ngay

ĐẶC QUYỀN VIP

Đăng ký VIP để học và luyện thi không giới hạn

Trọn bộ quyền lợi trên Vietjack, trong một tài khoản.

  • Phòng luyện thi cấp tốc: ĐGNL - ĐGTD, Tốt nghiệp THPT, Ôn vào 10, Ôn vào 6, Ôn Giữa kì/Cuối kì
  • Hơn 200K đề thi thử, đề minh hoạ, chính thức các năm
  • Với 3tr+ câu hỏi theo các mức độ Nhận biết, Thông hiểu, Vận dụng
  • Tải xuống đề thi [DOCX] với đầy đủ đáp án
  • Xem hàng ngàn bài giảng đính kèm củng cố thêm kiến thức
  • Bao gồm tất cả các bậc từ Tiểu học đến Đại học
  • Chặn hiển thị quảng cáo tăng khả năng tập trung ôn luyện
  • Đăng ký ngay

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

A. Camera

B. Máy ảnh số

C. Mát tính xách tay

D. Đồng hồ thông minh

Lời giải

=> Cả máy ảnh số,máy tính xách tay và đồng hồ thông minh đều là những thiết bị điện tử.Máy ảnh số ,mát tích xách tay và cả đồng hồ thông minh đều sử dụng thông tin số để sản xuất, truyền đưa, thu thập, xử lý, lưu trữ và trao đổi thông tin số. => đều là thiết bị số 

Camera chỉ là một dụng cụ dùng để thu ảnh thành một ảnh tĩnh hay thành một loạt các ảnh chuyển động.=> không phải thiết bị số 

=> Chọn A

Lời giải

a = int(input("nhập số a :"))
b = int(input("nhập số b :"))
c = int(input("nhập số c :"))
max = a
if b > max : 
    max = b
if c > max :
    max = c
print("giá trị lớn nhất là :", max)

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP