Показать сообщение отдельно
  #2  
Старый 22.12.2010, 18:53
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

пишешь эти самые формулы в прогу, проходишь циклом и сохраняешь минимум. Чертеж - рисуешь прямоугольник и окружность заданными параметрами

Код:
var dr,rmin,r,rmax,v,l,lm,rm,hm: extended;
...
dr:=0.1;       //
rmin:=10;     // по-хорошему читаешь данные от пользователя
rmax:=20.5; //
v:=100;      //

r:=rmin;
lm:=999999999999; // или же lm:=V/(pi*r)+2*pi*r; rm:=r;
while r<rmax do
 begin
 l:=V/(pi*r)+2*pi*r;
 if l<lm then
  begin
   lm:=l;
   rm:=r;
  end;
 r:=r+dr; 
 end;
hm:=V/(pi*r);
После прохода цикла получаешь rm и hm, от них строишь соответственно чертеж прямоугольника и окружности (вид сбоку и сверху).

З.Ы. может все-таки высота рассчитывается не как h=V/πr а как h=V/πr^2?
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием