Nhập vào bán kính hình tròn in ra diện tích và chu vi của nó

0 bình luận về “Nhập vào bán kính hình tròn in ra diện tích và chu vi của nó”

1. uses crt;
   var r:real;
   begin
   clrscr;
      write(‘r=’);readln(r);
      writeln(‘Dien tich: ‘,r*r*pi);
      writeln(‘Chu vi: ‘,r*2*pi);
   readln;
   end.

   Bình luận

2. Program NN;
   Uses crt;
   Const pi=3.14;
   Var r,p,s: extended;
   Begin
           Clrscr;
           Write(‘Nhap r: ‘); Readln(r);
           s:=r*r*pi;
           p:=2*r*pi;
           Writeln(‘S = ‘,s:0:2);
           Writeln(‘P = ‘,p:0:2);
           Readln
   End.

   Bình luận