Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Поиск оптимума пересмотром всех значений   Найти похожие ветки 

 
webpauk ©   (2010-05-18 09:08) [0]

суть задачи такова:
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...), чтобы её можно было сделать зависимой от количества переменных?


 
webpauk ©   (2010-05-18 09:10) [1]

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


 
MBo ©   (2010-05-18 09:15) [2]

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

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


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

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


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


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


Рекурсия.

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
4-1237968794
Новичок
2009-03-25 11:13
2010.08.27
Зависание меню после установки хука


2-1273184472
concord
2010-05-07 02:21
2010.08.27
Фильтрация данных


15-1265395623
GreyWolf
2010-02-05 21:47
2010.08.27
Ищу Fix for QC report 37403


2-1269100790
Hikos
2010-03-20 18:59
2010.08.27
Не удаетя в базе выделить поля с определенным значением.


2-1272998896
ludmila
2010-05-04 22:48
2010.08.27
работа с внешними файлами