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