Заданы поверхность шарового сегмента Sшарсег и поверхность конуса Sкон, вместе образующие...

Question

Заданы поверхность шарового сегмента Sшарсег и поверхность конуса Sкон, вместе образующие
шаровый сектор. Заданы радиус шара R и высота шарового сегмента n,
принадлежащая шаровому сектору. Вычислить поверхность шарового сектора Sшар сект и его
объем V. Если V<50, то вычислить<br> отношение поверхностей шарового сегмента к поверхности конуса Sшар./Sкон.
Помогите пожалйуста написать это на языке Паскаль

Answer 1

Я в геометрии не силён, поэтому не смогу помочь. Но если ты напишешь как эту задачу решить то я смогу написать программу.

Answer 2

Var  r,h,s1,s2,s,v: real;
begin
write('Поверхность шарового сегмента: ');
readln(s1);
write('Поверхность конуса: ');
readln(s2);
write('Радиус шара: ');
readln(r);
write('Высота шарового сегмента: ');
readln(h);
s:=2*Pi*r*h+Pi*r*sqrt(2*r*h-sqr(h));
v:=2/3*Pi*sqr(r)*h;
writeln('Площадь шарового сектора: ',s);
writeln('Объем шарового сектора: ',v);
if v<50 then writeln('Отношение площадей: ',s1/s2)<br>end.