Viết chương trình tính diện tích hình tròn trong pascal

0 bình luận về “Viết chương trình tính diện tích hình tròn trong pascal”

1. Program CT_DT_HT;

   Uses Crt;

   Var a : real;

         b : integer;

   Begin

   Clrscr;

   writeln (‘nhap so nguyen a =’);

   Read (a);

   b := a*3,14;

   writeln (‘DT hinh tron la ‘,b);

   Readln;

   End.

   Bình luận

2. program tinhstron;

   uses crt;

   var r:Integer; s:real;

   Const pi=3,14;

   begin clrscr;

   write(‘Ban kinh r: ‘); readln(r);

   S:=2*pi*r;

   write(‘Dien tich hinh tron: ‘, s);

   readln;

   end.

   Bình luận