viết phương trình pascal tính chu vi và diện tích hình tròn bán kính R nhập vào từ bàn phím

0 bình luận về “viết phương trình pascal tính chu vi và diện tích hình tròn bán kính R nhập vào từ bàn phím”

1. Program FNG;
   Uses crt;
   Const pi=3.14;
   Var r,p,s: extended;
   Begin
           Clrscr;
           Write(‘Nhap r: ‘); Readln(r);
           p:=2*r*pi;
           s:=sqr(r)*pi;
           Writeln(‘Chu vi: ‘,p:0:2);
           Write(‘Dien tich: ‘,s:0:2);
           Readln
   End.

   Bình luận

2. program ct;

   uses crt;

   var R,chuvi,dientich:real;

   const pi:=3.14;

   begin

   clrscr;

   write(‘nhap ban kinh:=’);readln(R);

   chuvi:=2*pi*R;

   dientich:=pi*R*R;

   writeln(‘chu vi hinh trong la:’,chuvi:4:2);

   writeln(‘dien tich hinh tron la:’,dientich:4:2);

   readln

   end.

   Bình luận