Cho bài toán tính diện tích S của sân trường hình chữ nhật có chiều dài a= 100m,chiều rộng b nhập từ bàn phím. a/Hãy xác định bài toán của bài toán trên b/Khai báo các biến và hằng của bài toán trên

- Bài toán : Tính diện tích S của sân trường, chiều dài a= 100, b nhập từ bàn phím

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

+ Input : chiều rộng b, chiều dài a

+ Output : diện tích hình chữ nhật S

- Khai báo biến và hằng :

+ Const a = 100; Var b, S : integer;

+ a có giá trị là 100, a là hằng

+ b và S là biến chứa chiều rộng và diện tích

Câu a:

INPUT: Chiều dài, chiều rộng của hình chữ nhật

OUTPUT: Diện tích hình chữ nhật

Câu b:
Thuật toán:

Bước 1: Nhập cd, cr từ bàn phím

Bước 2: s <- cd * cr;

Bước 3: Xuất s ra màn hình và kết thúc chương trình

Chương trình:

Program BT;
Uses crt;
Var cd, cr, s: real;

Begin
        Clrscr;
        Write('Nhap chieu dai: '); Readln(cd);
        Write('Nhap chieu rong: '); Readln(cr);
        s := cd * cr;
        Write('Dien tich: ', s : 0 : 2);
        Readln