Viết chương trình pascal tính chu vi, diện tích của hình tròn với pi=3,14 bán kính R nhập từ bàn phím

0 bình luận về “Viết chương trình pascal tính chu vi, diện tích của hình tròn với pi=3,14 bán kính R nhập từ bàn phím”

1. Uses crt;

   var  r,cv,dt: real;

   begin clrscr;

   Writeln(‘Nhap ban kinh =’); readln(r);

   cv := 2*pi*r;

   dt :=pi*r*r;

   Writeln(‘Dien tich hinh tron la’,dt,’chu vi hinh tron la’,cv);

   readln

   end.

   Bình luận

2. 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