program dien_tich_hinh_thang;

uses crt;

var daylon,daynho,canhben1,canhben2,chieucao,chuvi,dientich:real;

begin

clrscr;

{cau b}

write('nhap day lon');readln(daylon);

write('nhap day nho');readln(daynho);

write('nhap canh ben1');readln(canhben1);

write('nhap canh ben2');readln(canhben2);

write('nhap chieu cao');readln(chieucao);

readln;

write('chu vi la: ',daylon+daynho+canhben1+canhben2);

write('dientich la: ',((daylon+daynho)/2)*chieucao:5:2);

begin {cau a}

daynho:=4;

daylon:=9;

canhben1:=6;

canhben2:=8;

chieucao:=7;

write('chu vi',9+4+6+8)

write('dientich',((9+4)/2)*7:5:2);

end;

readln;

end.

chúc bạn học tốt nhé!

Bài 2: 

a)

Program caua;

Uses crt;

Var a,b,c,d,h: integer;

Begin

a:=4;

b:=9;

c:=6;

d:=8;

h:=7;

Writeln('Chu vi cua hinh thang:', a+b+c+d);

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

Readln

End.

b)

Program caub;

Uses crt;

Var a,b,c,d,h: integer;

Begin

Write('Nhap lan luot 2 day cua hinh thang:'); Readln(a,b);

Write('Nhap lan luot 2 canh ben cua hinh thang:'); Readln(c,d);

Write('Nhap chieu cao cua hinh thang:'); Readln(h);

Writeln('Chu vi cua hinh thang:', a+b+c+d);

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

Readln

End.