Program baitap;

Uses crt;

Var R1,R2,S1,S2:real;

Begin

Clrscr;

Write('R1='); Readln(R1);

Write('R2='); Readln(R2);

S1:=R1*R1*3.14;

S2:=R2*R2*3.14;

Writeln('Dien tich hinh A:',S1-S2:9:2);

Readln

End.

- Bước 1 : tính diện tích hình tròn bán kính R1 : S1 ← R1 * R1 * 3.14

- Bước 2 : tính diện tích hình tròn bán kính R2 : S2 ← R2 * R2 * 3.14

- Bước 3 : diện tích hình A ← S1 - S2;

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

program dien_tich;

uses crt;

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

const pi = 3.14;

begin

clrscr;

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

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

s1 := r1 * r1 * pi;

s2 := r2 * r2 * pi;

s := s1 - s2;

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

readln

end.