Bước 1: Xác định bài toán:
-Input: Chiều dài và chiều rộng của hình chữ nhật
-Output: Diện tích của hình chữ nhật đó
Bước 2: Mô tả thuật toán:
-Bước 1: Nhập a,b
-Bước 2: s←a*b;
-Bước 3: Xuất s
-Bước 4: Kết thúc
Bước 3: Viết chương trình:
uses crt;
var a,b,s:real;
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
until (a>b) and (a>0) and (b>0);
s:=a*b;
writeln('Dien tich hinh chu nhat la: ',s:4:2);
readln;
end.