Написать программу с использованием оператора цикла (постусловия).

Резервуар имеет форму сферы; его внутренний радиус равен R см Найдите объем (V) жидкости в зависимости от от уровня h воды от низшей точки его дна. Величина h изменяется от 0 до 2 с шагом 0,1. Объем V шарового сегмента (заполненого жидкостью) вычисляется по формуле πh² (R-h/3).

Question

Информатика

Веруля

19 мая, 11:14

Написать программу с использованием оператора цикла (постусловия).

Резервуар имеет форму сферы; его внутренний радиус равен R см Найдите объем (V) жидкости в зависимости от от уровня h воды от низшей точки его дна. Величина h изменяется от 0 до 2 с шагом 0,1. Объем V шарового сегмента (заполненого жидкостью) вычисляется по формуле πh² (R-h/3).

+3

Ответы (1)

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

Лилианка · Answer 1

const

pi=3.14;

var

h, V, R: real;

begin

writeln ('Введите радиус') ;

Readln (R) ;

h:=0;

repeat

V:=pi*sqr (h) * (R-h/3) ;

writeln ('V (', h,') = ', V) ;

h:=h+0.1;

until h>2.1;

end.