Viết chương trình cho phép tính diện tích hình tam giác và hình thang HD: Gọi S là diện tích - S (tam giác)= (a x h)/2 a: Chiều dài đáy tam giác h: Chiều cao tam giác - S (hình thang)= (a+b)*h /2 a và b là độ dài 2 cạnh đáy h là chiều cao hạ từ cạnh đáy a xuống b hoặc ngược lại (Khoảng cách giữa 2 đáy)

Viết chương trình tính diện tích tam giác :

uses crt;

var a, h, s : real;

begin

clrscr;

write('nhap canh day va chieu cao : ');readln(a, h);

s := (a * h) / 2;

writeln('dien tich tam giac : ', s:2:1);

readln

end.

Viết chương trình tính diện tích hình thang :

uses crt;

var a, b, h, s : real;

begin

clrscr;

write('nhap so dai hai canh day : ');readln(a, b);

write('nhap chieu cao hinh thang : ');readln(h);

s := (a + b) / 2 * h;

writeln('dien tich s = ', s:2:1);

readln

end.