VIẾT CHƯƠNG TRÌNH TÍNH DIỆN TÍCH HÌNH THANG. BIẾT CHIỀU CAO VÀ 2 CẠNH ĐÁY.

$#QLinkVNxWCDI$

program qlinkvn;

uses crt;

var day1,day2,cao: integer;

      S: real;

      ki_hieu: string;

begin

clrscr;

writeln('Vui long nhap do dai day lon thi lon hon day be, xin cam on'); delay(2000);

writeln('Nhap don vi cua cac do dai co trong hinh: '); readln(ki_hieu);

writeln('Nhap do dai day lon: '); readln(day1); delay(2000);

writeln('Nhap do dai day be: '); readln(day2); delay(2000);

writeln('Nhap do dai chieu cao: '); readln(cao); delay(2000);

S:=(day1+day2)*cao/2;

writeln('Dien tich cua hinh thang la: ',S:0:1,ki_hieu,'2'); 

readln;

end.

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.