Lập chương trình tính diên tích hình tròn biết bán kính r lá số nguyên. S= π r2

0 bình luận về “Lập chương trình tính diên tích hình tròn biết bán kính r lá số nguyên. S= π r2”

1. Program bai_tap;

   Uses crt;

   Const pi = 3.14;

   Var r: integer;

          S: real;

   Begin 

   Writeln (‘Nhap ban kinh r=’); 

   Readln (r);

   S:= pi*r*r;

   Writeln (‘Dien tich hinh tron la:’, S:8:2);

   Readln 

   End.

   Bình luận

2. Uses crt;
   Var r, s: real;
   Const pi=3.14;
   Begin
   Clrscr;
   Write(‘Nhap ban kinh, r = ‘); readln(r);
   s:=pi*sqr(r);
   Writeln(‘Dien tich hinh tron la: ‘,s:4:2);
   Readln
   end.

   Bình luận