21. Cho đường tròn tâm O , bán kính r tính diện tích đường tròn tâm O bán kính r a) mô tả thuật toán b) viết chương trình tính diện tích hình tròn

a/ thuật toán:

b1: nhập r

b2: tính diện tích bằng lệnh gán s:=r*r*Pi;

b3: in kết quả ra màn hình

b/ chương trình

uses crt;

var r,s: real;

begin

clrscr;

write (‘nhap r: ‘);  readln (r);

s:=r*r*Pi;

writeln (‘dien tich la: ‘,s:1:3);

readln;

end.