Заданы поверхность шарового сегмента Sшарсег и поверхность конуса Sкон, вместе образующие шаровый сектор. Заданы радиус шара R и высота шарового сегмента n, принадлежащая шаровому сектору. Вычислить поверхность шарового сектор...
Заданы поверхность шарового сегмента Sшарсег и поверхность конуса Sкон, вместе образующие
шаровый сектор. Заданы радиус шара R и высота шарового сегмента n,
принадлежащая шаровому сектору. Вычислить поверхность шарового сектора Sшар сект и его
объем V. Если V<50, то вычислить
отношение поверхностей шарового сегмента к поверхности конуса Sшар./Sкон.
Помогите пожалйуста написать это на языке Паскаль
Гость
Ответ(ы) на вопрос:
ГостьЯ в геометрии не силён, поэтому не смогу помочь. Но если ты напишешь как эту задачу решить то я смогу написать программу.
Гость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)
end.
Не нашли ответ?
Похожие вопросы