Viết chương trình in ra màn hình diện tích và chu vi hình vuông.

0 bình luận về “Viết chương trình in ra màn hình diện tích và chu vi hình vuông.”

1.  Program HINH_VUONG ;
   uses crt;

   var canh : real;

   begin

      clrscr;

      Write  ( ‘Nhap do dai canh :’ ) ;readln(canh);

      Writeln  ( ‘Chu vi hinh vuong la :’4* canh :10 :2 );

     Writeln (‘ Dien tisch hinh vuong la :’ canh*canh:10:2) ;

      readln

      

   Bình luận

2. Program hinh_vuong;

   Uses crt;

   Var a:integer;

      s,p:real;

   Begin

      clrscr;

      write(‘Nhap do dai canh: ‘);readln(a);

      s:=a*a;

      p:=4*a;

     writeln(‘Dien tich hinh vuong: ‘,s:4:0);

       writeln(‘Chu vi hinh vuong: ‘,p:4:0);

       readln;

   End.

   Bình luận