Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами ,...

Question

Вычислить площади поверхностей и объемы трех воздушных шаров с известными радиусами , использовав процедуру для вычисления площади и объема. Радиусы шаров соответственно равны 5,10,15 м .

Answer 1

Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln('r=5, S=',a:5:2,' V=',b:5:2);
s_v(10,a,b);
writeln('r=10, S=',a:5:2,' V=',b:5:2);
s_v(15,a,b);
writeln('r=15, S=',a:5:2,' V=',b:5:2);
end.

Comments

Спасибо . Все супер. РЕКОМЕНДУЮ