Viết chương trình tính diện tích và chu vi hình tròn với bán kính được nhập từ bàn phím,số pi=3.14 Giúp mình nha

0 bình luận về “Viết chương trình tính diện tích và chu vi hình tròn với bán kính được nhập từ bàn phím,số pi=3.14 Giúp mình nha”

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.

   —–Quang148—–

   Bình luận

2. Uses crt;

   Const pi=3.14;

   Var r,c,s: real;

   Begin

             Clrscr;

             Write(‘Nhap r = ‘); readln(r);

             s:=r*r*pi;

             c:=2*r*pi;

             Writeln(‘Dien tich hinh tron la: ‘,s:0:2);

             Writeln(‘Chu vi hinh tron la: ‘,c:0:2);

             Readln

   End.

   Bình luận