viết phuong trình tính chu vi và diên tích của hình vuông với độ dài cạnh là a nhập từ bàn phím

0 bình luận về “viết phuong trình tính chu vi và diên tích của hình vuông với độ dài cạnh là a nhập từ bàn phím”

1. Uses crt;
   Var p, s, a: real; 
   Begin
   Clrscr;
   Write(‘Nhap canh a = ‘); readln(a);
   p:=a*4;
   s:=sqr(a);
   Writeln(‘Chu vi cua hinh vuong la: ‘,p);
   Writeln(‘Dien tich cua hinh vuong la: ‘,s);
   Readln
   end.

   Bình luận

2. Program bai_tap;

   Uses crt;

   Var a, Cv, S: real;

   Begin 

   Write (‘Nhap canh a=’); 

   Readln (a);

   Cv:= 4*a;

   S:= a*a;

   Writeln (‘Chu vi hinh vuong la:’, Cv:8:2);

   Writeln (‘Dien tich hinh vuong la:’, S:8:2);

   Readln

   End.

   Bình luận