Viết chương trình nhập chiều và chiều rộng HCN, bán kính đường tròn. Tính diện tích mỗi hình, thông báo hình nào có diện tích lớn hơn

0 bình luận về “Viết chương trình nhập chiều và chiều rộng HCN, bán kính đường tròn. Tính diện tích mỗi hình, thông báo hình nào có diện tích lớn hơn”

1. Program BTT;
   Uses crt;
   Var a,b,r,s,ss: extended;
   Const pi=3.14;
   Begin
           Clrscr;
           Write(‘Nhap chieu dai va chieu rong hinh chu nhat: ‘); Readln(a,b);
           s:=a*b;
           Write(‘Nhap ban kinh hinh tron: ‘); Readln(r);
           ss:=sqr(r)*pi;
           Writeln(‘Dien tich hinh chu nhat la: ‘,s:0:2);
           Writeln(‘Dien tich hinh tron la: ‘,ss:0:2);
           If s>ss then Write(‘=> Dien tich hinh chu nhat lon hon’)
           Else If ss>s then Write(‘=> Dien tich hinh tron lon hon’)
           Else Write(‘Dien tich hai hinh bang nhau’);
           Readln
   End.

   Bình luận