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

INPUT: cạnh a của khu vườn hình vuông

OUTPUT: Diện tích khu vườn

2.Mô tả thuật toán

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

Bước 2: DT←a*4

Bước 3: Xuất DT ra màn hình và kết thúc

3.Viết chương trình:

Program baitap;

Uses crt;

Var a,DT:real;

Begin

Clrscr;

Write('a='); Readln(a);

DT:=a*4;

Writeln('Dien tich khu vuon:',DT);

Readln

End.

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

- Input : độ dài cạnh a

- Output : diện tích khu vườn hình vuông

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

- Bước 1 : nhập độ dài cạnh a

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

- Bước 3 : đưa giá trị s ra màn hình

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

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

program dien_tich;

uses crt;

var a, s : integer;

begin

clrscr;

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

s := a * a;

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

readln

end.