Viết chương trình (free passcal) a) tính chu vi hình tròn và b) hình chữ nhật ai

0 bình luận về “Viết chương trình (free passcal) a) tính chu vi hình tròn và b) hình chữ nhật ai”

1. a) program a;

   uses crt;

   var d: integer;

   const pi=3.14;

   begin

   clrscr;

   readln(d);

   write(‘Chu vi la = ‘,d*pi:10:0);

   readln

   end.

   b)

   program b;

   uses crt;

   var a, b, c: integer;

   begin

   clrscr;

   readln(a,b);

   c:= (a+b)*2;

   write(‘Chu vi = ‘, c:10:0);

   readln

   end.

   Bình luận

2. a) Propram CV_HT;

       Uses Crt;

       Var C : real;

              r : integer;

       Const pi = 3.14;

   Begin

       Clrscr;

       Readln (r);

       C : = r * 2 * pi;

       Writeln ( ‘Chu vi hinh tron la:’ , C : 6 : 2 );

       Readln

   End.

   b) Propram HCN;

       Uses Crt;

       Var a , b : integer;

               C : integer;

   Begin

       Clrscr;

       Write ( ‘Nhap chieu dai:’ );

       Readln (a);

       Write ( ‘Nhap chieu rong:’ );

       Readln (b);

       C : = ( a + b ) * 2;

       Writeln ( ‘Chu vi hinh chu nhat:’ , C );

       Readln

   End.

   Bình luận