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

Question

Информатика

Симаня

1 декабря, 12:36

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

+5

Ответы (1)

Знаете ответ на вопрос?

Петруша · 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.