:Nêu một chương trình pascal hoàn chỉnh để tính diện tích hình thang trong đó số đo đãy lớn, đãy bé, chiều cao được nhập từ bàn phím.

2 câu trả lời

uses crt;

var a,b,c,S:integer;

begin

write('nhap day lon:');readln(a);

write('nhap day be:');readln(b);

write('nhap chieu cao:');readln(c);

S:=((a+b)*c)/2;

writeln('Dien tich hinh thang la:',S);

readln;

end.

Program baitap;

Uses crt;

Var a,b,h:real;

Begin

Clrscr;

Write('Nhap lan luot do dai 2 day:');

Readln(a,b);

Write('Nhap chieu cao:');

Readln(h);

Writeln('Dien tich hinh thang:', ((a+b)*h)/2:9:2);

Readln

End.