Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа по вычислению объема
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lidroot
Задача: Разработать программу, осуществляющее нахождение минимального радиуса шара R(R изменяется от R1 до R2 с шагом К) и соответствующее значение радиуса основания R4, вырезанного из этого шара шарового сегмента , для которого площадь поверхности шарового сегмента не превышает площади поверхности куба со стороной А. Высота шарового сегмента H остается не изменной.

Я нарыл кое какие формулы:

Площадь куба - 6*А^2
Площадь круга - П*R^2
Объем шарового сегмента - П*H^2*(R-H/3)
Боковая поверхность шарового сегмента - 2*П*R*H

Помогите товарищи...
Lapp
Бум.. blink.gif
ты бы хоть картинку нарисовал, что ли, при таком-то навороте...
Непонятно, что есть "высота шарового сегмента". Растолкуй, плз..
И вообще, постарайся передать условие как можно ближе к тексту.

PS
что-то мне настойчиво говорит, что искомый радиус равен нулю.. Но может вмешаться та самая неизвестная высота шарового сегмента..
крыша, определенно, едет.. mega_chok.gif
Lidroot
У меня нет никакой картинки! Все условия которые у менея есть изложены, все остальное только в фантазии smile.gif
А высота шарового сегмента постоянна! Задается изначально... это перпендикуляр к плоскости окружности проходящий через центр этой самой окружности. Что пишу - сам удивляюсь...
мисс_граффити
я, кажется, поняла....
как-то так (это не совсем алгоритм, по которому писать программку... скорее попытка разобраться).
1) считаем площадь поверхности для куба
2) идем от R2 вниз к R1 (то есть на каждом шаге уменьшаем радиус), до тех пор, пока площадь поверхности не будет удовлетворять заданному условию.
3) находим нужный нам радиус окружности. вырази его через высоту и радиус шара (хоть по теореме Пифагора).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.