Viết chương trình tính diện tích hình tròn. Biết rằng bán kính được nhập vào từ bàn phím

0 bình luận về “Viết chương trình tính diện tích hình tròn. Biết rằng bán kính được nhập vào từ bàn phím”

1. Program tinh_dt;

   Uses crt;

   Var S, r : real;

   Begin 

   Writeln (‘Nhap ban kinh r=’); 

   Readln (r);

   S:= r*r*3.14;

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

   Readln

   End.

   Bình luận

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

   Bình luận