Mô tả thuật toán :

Bước 1 : nhập cạnh hình vuông a

Bước 2 : cv ← a * 4

Bước 3 : s ← a * a

Bước 4 : xuất giá trị s và cv

Bước 5 : kết thúc

Viết chương trình :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap canh hinh vuong : ');readln(a);

cv := a * 4;

s := a * a;

writeln('chu vi = ', cv);

writeln('dien tich = ', s);

readln

end.

a/

thuật toán:

 b1: nhập cạnh hình vuông writeln ('nhap canh: ');   readln (a);

 b2: gán s:=a*a;

 b3: in kết quả ra màn hình writeln ('dien tich hinh vuong la: ',s);

b/

 chương trình:

uses crt;

var a,s: integer;

begin

 clrscr;

   write ('nhap canh: ');   readln (a);

   s:=a*a;

   writeln ('dien tich hinh vuong la: ',s);

 readln;

end.

꧁༺cao thủ Pascal✔