[71Кристиночка]

Требуется изготовить цилиндрическую цистерну с заданным объемом V м3 из листового
материала методом сварки, причем цистерна должна иметь минимальную длину сварных швов,
т. е. минимальную величину:
L = (h + p)→min ,
где h, p – высота цистерны и периметр ее основания соответственно, которые в свою очередь,
рассчитываются по формулам:
h=V/πr; ρ = 2πr ,
где r - радиус основания.
Разработать программу расчета размеров цистерны r и h, соответствующих вышеуказанному
условию, при расчете должно изменяться от rmin до rmax с шагом Δr.
Контрольные варианты исходных данных:


Построить чертеж цистерн

[Bargest]

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

Код:

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?

[71Кристиночка]

как h=V/πr^2( просто не знала как написать)

[71Кристиночка]

спасиб за помощь

[Bargest]

в таком случае везде надо V/(pi*r) заменить на V/(pi*r*r)