Реферат Реалізація цілочисельного програмування (метод Гоморі)

m, min1: real;: = -9999;

// i: = 2 to REshenie.rowCount-2 do (frac (StrToFloat (REshenie.Cells [REshenie.colcount-1, i])) <> 0) and (frac (StrToFloat (REshenie.Cells [REshenie.ColCount-1, i]))> max)

finals:

// Перевірка на наявність дробу

if (max_drob_z <> 0) or

// Знаходження елементів додаткового обмеження

to REshenie.ColCount-2 do (StrToFloat (REshenie.Cells [i, max_drob_n]) <0) and (frac (StrToFloat (REshenie.Cells [i, max_drob_n])) <> 0)

// Висновок ключових

for i: = 2 to REshenie.ColCount do_str.Cells [i-2, 0]: = floattostr (mas_of_q [i]);;. Caption: = FloatToStr (mas_of_q [1]);

// Додавання нової строкі.RowCount: = REshenie.RowCount +1;

// перенесення оцінок на останню строкуi: = 2 to REshenie.ColCount

// додавання нового столбца.ColCount: = REshenie.COlCount +1;

// перенесення на останній стовпець

for i: = 2 to REshenie.rowCount

// Додавання значень коофіцента

// Заповнення 0

for i: = 2 to REshenie.RowCount-1 do.Cells [REshenie.ColCount-2, i]: = '0 ';;

// Заповнення рядка q1i: = 2 to REshenie.ColCount-1 do (mas_of_q [i] <> 0) and (mas_of_q [i] <> 1)

// Знак - або + i: = 2 to REshenie.ColCount-3 do (RadioGroup1.ItemIndex = 1) and (REshenie.Cells [i, reshenie.rowcount-1] [1] <> '- ') and (StrToFloat (REshenie.Cells [i, reshenie.rowcount-1])> 0) then.Cells [i, reshenie.rowcount-1]: =' - '+ REshenie.Cells [i, reshenie.rowcount -1];;

min1: = 99;

// Знаходження ключ стовпця для Гомори

for i: = 1 to REshenie.ColCount-3 do (StrToFloat (REshenie.Cells [i +1, REshenie.rowcount-2]) <> 0) thenStrToFloat (REshenie.Cells [i +1, REshenie . rowcount-1]) <> 0 0) to REshenie.RowCount-3 doREshenie.Cells [kluch_stolb, i +1] <> '0 'then_of_min [i]: = strtofloat (REshenie.Cells [REshenie.Colcount-1, i +1])/strtofloat (REshenie . Cells [kluch_stolb, i +1]) _of_min [i]: = 0;;

// Пошук хв рядка

min2: = 9999;

for i: = 1 to REshenie.RowCount-3 do (mas_of_min [i] 0) then: = mas_of_min [i]; _strok: = i +1;; : = StrToFloat (REshenie.Cells [kluch_stolb, kluch_strok]);

// Заміна базису

// Правило прямокутника

for i: = 2 to REshenie.RowCount-2 doj: = 2 to REshenie.ColCount-1 doi <> kluch_strok thenj <> kluch_stolb

// Нулі в столбцеi: = 2 to REshenie.RowCount-1 do.Cells [kluch_stolb, i]: = '0 ';;. Cells [kluch_stolb, kluch_strok]: = floattostr (f4);

// Рядок ділиться на ключовий елемент

for i: = 2 to REshenie.ColCount-1 to REshenie.RowCount-2 doj: = 2 to REshenie.ColCount-1 doi <> kluch_strok thenj <> kluch_stolb then.Cells [j, i]: = FloatToStr (mas_of_zna [j, i]);;;;

// Підрахунок оцінок

for i: = 2 to REshenie.ColCount-1 doj: = 2 to REshenie.RowCount-2 do: = StrTofloat (REshenie.cells [i, j]) * StrTo...