Viết chương trình pascal tính chu vi và diện tích hình tròn với bán kính r đươc nhập từ bàn phím

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

1. Program chuvihinhtron_dientichhinhtron;

   Uses crt;

   Var   R: integer ;

           S,C : real;

   Const   Pi=3,14;

   Begin

      clrser;

   Writeln(‘R= ‘); Readln(R);

   C:=Pi*2*R;

   S:=Pi*R*R;

   Writeln(‘Chu vi la C= ‘,C);

   Writeln(‘Dien tich la S= ‘,S);

   Readln

   End.

   Xin Hay Nhất!

   Bình luận

2. program az;

   uses Crt;

   var P,S,r : real;

   begin

   clrsce;

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

   P := r*2*3,14;

   S := r*r*3,14;

   Write(‘Chu vi la ‘,P);

   Write(‘Dien tich la ‘,S);

   readln

   end.

   Bình luận