| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск оптимума пересмотром всех значений [D7, WinXP]

webpauk ©   (2010-05-18 09:08:00) 

суть задачи такова:
CONST - (X*Const1+Y*Const2+Z*Const3+...)<=0.01

Реализация сводится к пересмотру в цикле всех вариантов:


const
 CONSTMain = 12345;
var
 I1, I2, I3...: Integer;
begin
 for I1 = 1 to ... do
 begin
   for I2 = 1 to ... do
   begin
     if CONSTMain-(I1*Const1+I2*Const2)<=0.01 then Exit;
   end;
 end;
end;


проблема в следующем: имеется неопределенное количество переменных, значения которых нужно исследовать, соответственно и не определено количество вложенных циклов.
Каким образом можно определить переменную цикла (I1, I2...), чтобы её можно было сделать зависимой от количества переменных?

---

Юрий Зотов   (2010-05-18 21:31:00) [1]

webpauk ©   (18.05.10 09:08)
> не определено количество вложенных циклов.


Рекурсия.

procedure Proc(Params: ...)
var
 i: integer;
begin
 ...
 for i := ... to ... do
 begin
   ...
   if ... then Proc(...)
   ...
 end
 ...
end;


---

Омлет   (2010-05-18 20:38:00) [2]

Откуда берутся переменные?

---

MBo   (2010-05-18 09:15:00) [3]

рекурсия поможет.

А вообще это задача целочисленного линейного программирования.

---

webpauk   (2010-05-18 09:10:00) [4]

типичной ошибкой при использовании неопределенной переменной будет: For loop control variable must be simple local variable

---

Наверх