* Xác định bài toán :

- Input : độ dài cạnh hình vuông

- Output : chu vi và diện tích hình vuông

* Mô tả thuật toán :

- Bước 1 : nhập cạnh a 

- Bước 2 : cv ← a * a

- Bước 3 : s ← a * a;

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

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

* Viết chương trình :

uses crt;

var cv, s, a : integer;

begin

clrscr;

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

cv := a * 4;

s := a * a;

writeln('chu vi hinh vuong :', cv);

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

readln

end.

xác định Input , output:

input: 1 cạnh của hình vuông;

output: chu vi và diện tích hình vuông trên;

mô tả thuật toán:

B1: nhập a là cạnh của hình vuông;

B2: cv<--a*4;

B3: dt<--a*a;

B4: xuất cv,dt;

viết chương trình:

program bai_giai;

uses crt;

var a,cv,dt:longint;

beign

clrscr;

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

cv:=a*4;

dt:=a*a;

writeln('chu vi:=',cv);

write('dien tich:',dt);

readln;

end.