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

- Input : độ dài bán kính a 

- Output : diện tích vươn hóa

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

- Bước 1 : nhập bán kính a

- Bước 2 : s1 ← (a*2) * (a*2)

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

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

- Bước 5 : xuất giá trị s

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

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

uses crt;

var a, s1, s2, s : real;

const pi = 3.14;

begin

clrscr;

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

s1 := (a*2) * (a*2);

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

s := s1 + s2;

writeln('dien tich khu vuon la :', s:3:2);

readln

end.

XĐBT:

Inp: nhập a và c

Out: diện tích mảnh đất trên

Thuật toán:

B1: nhập a,c

B2: S<--c*c

B3: P<--a*a*3,14/2

B4: C<--S+P;

B5: Xuất ra màn hình diện tích mảnh đất (C)

Vt chg trình:

uses crt;

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

const pi=3.14;

begin

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

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

S:=c*c;

P:=a*a*pi/2;

C:=S+P;

writeln('Dien tich manh dat la:',C);

readln;

end.