Bằng chương trình pascal em hãy viết chương trình tính diện tích hình vuông với cạnh hình vuông được nhập từ bàn phím

0 bình luận về “Bằng chương trình pascal em hãy viết chương trình tính diện tích hình vuông với cạnh hình vuông được nhập từ bàn phím”

1. uses crt;

   var

   a,S,C: integer;

   begin

   clrscr;

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

   C:=a*4;

   S:=a*a;

   writeln(‘Chu vi hinh vuong la: ‘,C);

   writeln(‘Dien tich hinh vuong la: ‘,S);

   readln

   end.

   Bình luận

2. Program HINH_VUONG;

   uses crt;

   Var canh: real;

   Begin

        clrscr;

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

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

        readln

   end.

   Bình luận