Tìm một chương trình được viêt bằng ngôn ngữ lập trình Pascal dùng để tính điện tích hình chữ nhật hoặc hình trong hoặc hình thang
Tìm một chương trình được viêt bằng ngôn ngữ lập trình Pascal dùng để tính điện tích hình chữ nhật hoặc hình trong hoặc hình thang
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.