Hãy ghi chương trình để có 1 chương trình tính diện tích hình tròn tâm O(O,R) với R lớn hơn O, R nhập vào từ bàn phím

0 bình luận về “Hãy ghi chương trình để có 1 chương trình tính diện tích hình tròn tâm O(O,R) với R lớn hơn O, R nhập vào từ bàn phím”

1. program az;

   uses Crt;

   var R,S : real;

   begin

   clrscr;

   Write(‘ Ban kinh R la :’); readln(R);

   S := R*R*3.14;

   Write(‘ Dien tich hinh tron tam O la :’,S);

   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:=sqr(r)*3.14;
      Writeln(‘Dien tich la: ‘,s:4:2);
   Readln
   End.

   Bình luận