Question

Hãy viết chương trình tính tổng diện tích 5 hình tròn, biết bán kính hình tròn được nhập từ bàn phím. Yêu cầu: Trong chương trình phải xây dựng các chương trình con thực hiện các công việc sau: Nhập bán kính một hình tròn Tính diện tích của một hình tròn

Answer 1

uses crt;

var x,dt,s:real;

i:integer;

{---------------chuong-trinh-con-nhap--------------------------}

procedure nhap(a:real);

begin

write('Nhap ban kinh:'); readln(a);

end;

{--------------------chuong-trinh-con-tinh-dien-tich-----------------------------}

function dtht(a:real):real;

begin

dtht:=sqr(a)*pi;

end;

{-----------------------chuong-trinh-chinh-----------------------------}

begin

clrscr;

s:=0;

for i:=1 to 5 do 

begin

nhap(x);

dt:=dtht(x);

s:=s+dt;

end;

writeln(s:4:2);

readln;

end.