Vct tính chu vi diện tích hình tròn khi biết R

0 bình luận về “Vct tính chu vi diện tích hình tròn khi biết R”

1. uses crt;

        var r: real;

   begin

        clrscr;

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

        writeln(‘Chu vi hinh tron la: ‘, 2*r*pi);

        writeln(‘Dien tich hinh tron la: ‘, r*r*pi);

        readln

   end.

   Bình luận

2. Program bai_tap;

   Uses crt;

   Var S, Cv, R: real;

   Begin 

   Writeln (‘Nhap ban kinh R=’); 

   Readln (R);

   Cv:= 2*R*3.14;

   S:= R*R*3.14;

   Writeln (‘Chu vi hinh tron la:’, Cv:7:2);

   Writeln (‘Dien tich hinh tron la:’, S:7:2);

   Readln

   End.

   Bình luận