HCN:
Program NhatNgu;
Uses crt;
Var a,b,s: extended;
Begin
Clrscr;
Write('Nhap chieu dai: '); Readln(a);
Write('Nhap chieu rong: '); Readln(b);
s:=a*b;
Write('Dien tich hinh chu nhat la: ',s:0:2);
Readln
End.
HTron:
Program NhatNgu;
Uses crt;
Const pi=3.14;
Var r,s: extended;
Begin
Clrscr;
Write('Nhap ban kinh hinh tron: '); Readln(r);
s:=sqr(r)*pi;
Write('Dien tich hinh tron la: ',s:0:2);
Readln
End.
HThang:
Program NhatNgu;
Uses crt;
Var a,b,h,s: extended;
Begin
Clrscr;
Write('Nhap do dai day lon: '); Readln(a);
Write('Nhap do dai day be: '); Readln(b);
Write('Nhap chieu cao: '); Readln(h);
s:=((a+b)*h)/2;
Write('Dien tich hinh thang la: ',s:0:2);
Readln
End.
