- Các khai báo cần thiết:
S: Tổng diện tích
SC: Diện tích hình chữ nhật
SV: Diện tích hình vuông
- Thuật toán:
Bước 1: Nhập SC
Bước 2: SV ← 10.5*10.5
Bước 2: S ← SC + SV
Bước 3: Xuất kq
- Chương trình:
Program BTT;
Uses crt;
Var S,SC,SV: real;
Begin
Clrscr;
Write('Nhap dien tich hinh chu nhat: '); Readln(SC);
SV:=10.5*10.5;
S:=SC+SV;
Write('Tong dien tich la: ',S:0:2);
Readln
End.