Viết chương trình tính diện tích trong Pascal: a) Diện tích hình vuông có cạnh a b) Diện tích hình chữ nhật có 2 cạnh a và b c) Diện tích hình tam giác là a và b chiều cao tương ứng là h

a)

program hinh_vuong;

uses crt;

var a,S:real;

Begin

       clrscr;

       write('a = ');readln(a);

       S:=a*a;

       write('Dien tich hinh vuong: ',S:2:2);

       readln

End.

b)

program hinh_chu_nhat;

uses crt;

var a,b,S:real;

Begin

       clrscr;

       write('a = ');readln(a);

       write('b = ');readln(b);

       S:=a*b;

       write('Dien tich hinh chu nhat: ',S:2:2);

       readln

End.

c) (trương hợp không phai tam giác vuông)

program hinh_tam_giac;

uses crt;

var a,b,S:real;

Begin

       clrscr;

       write('a = ');readln(a);

       write('b = ')readln(b);

       write('h = ');readln(h);

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

       write('Dien tich hinh tam giac: ',S:2:2);

       readln

End.