Viết chương trình tính diện tích hình thang(S) với độ dài hai đáy là a,b và chiều cao của hình thang là h( trong đó các độ dài a,b,h được nhập từ bàn phím)
Viết chương trình tính diện tích hình thang(S) với độ dài hai đáy là a,b và chiều cao của hình thang là h( trong đó các độ dài a,b,h được nhập từ bàn phím)
program ct;
uses crt;
var a,b,h:real;
begin
clrscr;
write(‘nhap day nho:=’);readln(a);
write(‘nhap day lon:=’);readln(b);
write(‘nhap chieu cao:=’);readln(h);
writeln(‘dien tich hinh thang S:=’,(1/2)*(a+b)*h);
readln
end.
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln(‘Nhap do dai hai day: ‘); readln(a,b);
writel(‘Nhap chieu cao: ‘); readln(h);
S:=h*((a+b)/2);
writeln(‘Dien tich hinh thang do la: ‘,S);
readln;
end.
Học tốt!