Написать программу вычисления объёма шара, при помощи процедуры и функции V=4pi (rrr) / 3

Question

Информатика

Ирма

8 февраля, 07:04

Написать программу вычисления объёма шара, при помощи процедуры и функции V=4pi (rrr) / 3

+2

Ответы (1)

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

Петряка · Answer 1

Program ob;

procedure GetVolume () ;

var

r: real;

begin

write ('r = ') ;

readln (r) ;

writeln ('Объём: ', V (r)) ;

end;

function V (r: real) : real;

begin

V : = 4 * 3.14 * (r * r * r) / 3;

end;

begin

GetVolume () ;

end.

Написать программу вычисления объёма шара, при помощи процедуры и функции V=4*pi * (r*r*r) / 3

Написать программу вычисления объёма шара, при помощи процедуры и функции V=4pi (rrr) / 3