Viết chương trình tính chu vi, và diện tích của hình vuông

0 bình luận về “Viết chương trình tính chu vi, và diện tích của hình vuông”

1. 1)Chu vi:

   program minhslav;

   uses crt;

   var a,b,S,DT :integer;

   begin

   clrscr;

   write(‘Nhap a: ‘);readln(a);

   S:=a*4

   write(‘Chu vi la: ‘,S);

   readln;

   end.

   2)Diện tích:

   program minhslav;

   uses crt;

   var a,DT :integer;

   begin

   clrscr;

   write(‘Nhap a: ‘);readln(a);

   DT:=a*a

   write(‘Dien tich la: ‘,DT);

   readln;

   end.

   Bình luận

2. Uses crt;
   Var s, p, a: longint;
   Begin
   Clrscr;
   Write(‘Nhap canh a = ‘); readln(a);
   s:=sqr(a);
   p:=a*4;
   Writeln(‘Dien tich la: ‘,s:8:2);
   Writeln(‘Chu vi la: ‘,p:8:2);
   Readln
   end.

   Bình luận