Bài toán tính diện tích hình a được ghép từ hình chữ nhật có chiều dài b và chiều rộng 2 a và hình bán nguyệt có bán kính là 3 giải bằng cách xác định bài toán mô tả thuật toán và viết chương trình dựa vào các các thuật toán ở trên

XĐBT: 

Inp: nhập a,b

Out: tính diện tích hình a

Thuật toán:

B1: nhập a,b

B2: S<--a*b

B3: C<-- (a*3.14)/2

B4: P<--S+C

B5: Xuất ra màn hình diện tích hình trên (P)

B6: kết thúc

Vt chg trình:

uses crt;

var a,b,S,C,P:integer;

const pi=3.14;

begin

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

write('nhap b:');readln(b);

S:=a*b;

C:=(a*pi)/2;

P:=S+C;

writeln('Dien tich hinh tren la:',P);

readln;

end.

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

- Input : độ dài a và b

- Output : diện tích hình A

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

- Bước 1 : nhập a, b

- Bước 2 : s1 ← 2 * a * b

- Bước 3 : s2 ← (a * a * pi)/2;

- Bước 4 : s ← s1 + s2

- Bước 5 : in ra giá trị s

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

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

uses crt;

var a, b, s1, s2, s : real;

const pi = 3.14;

begin

clrscr;

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

write('nhap do dai b :');readln(b);

s1 := 2 * a * b;

s2 := (a * a * pi)/2;

s := s1 + s2;

writeln('dien tich hinh A la :', s:3:2);

readln

end.