Составить функцию нахождения объема шара, зная его радиус. С помощью данной функции вычислить объем для N шаров.

Pascal ABC

Написать программу с помощью процедур и функций.

Question

Информатика

Витя

7 января, 12:32

Составить функцию нахождения объема шара, зная его радиус. С помощью данной функции вычислить объем для N шаров.

Pascal ABC

Написать программу с помощью процедур и функций.

+1

Ответы (1)

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

Има · Answer 1

Function ob (r:real) : real;

var v:real;

begin

v:=4/3*r*r*r*pi;

ob:=v;

end;

var n, i:integer;

v1, r1:real;

begin

readln (n) ;

for i:=1 to n do

begin

write ('Введите радиус ', i,'-го шара: ') ;

readln (r1) ;

v1:=ob (r1) ;

writeln ('Объем шара: ', v1) ;

writeln;

end;

end.