XĐBT: 

Inp: nhập r1,r2

Out: diện tích A

Thuật toán:

B1: nhập r1,r2

B2: S<--r1*r1*3.14

B3: C<--r2*r283.14

B4: A<--S-C

B5: Xuất ra màn hình diện tích A

B6: kết thúc

Vt chg trình:

uses crt;

var r1,r2,S,C,A:integer;

const pi=3.14;

begin

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

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

S:=r1*r1*pi;

C:=r2*r2*pi;

A:=S-C;

writeln('Dien tich cua A la:',A);

readln;

end.

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

- Input : bán kính r1, r2

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

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

- Bước 1 : nhập bán kính r1, r2

- Bước 2 : s1 ← 2 * r1 * 3.14; s2 ← 2 * r * 3.14;

- Bước 3 : s ← s1 - s2;

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

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

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

uses crt;

var r1, r2, s1, s2, s : real;

begin

clrscr;

write('nhap ban kinh r1 :');readln(r1);

write('nhapban kinh r2 :');readln(r2);

s1 := 2 * r1 * 3.14;

s2 := 2 * r2 * 3.14;

s := s1 - s2;

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

readln

end.