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

'X1';. Cells [1,0]: = 'X2';. Cells [2,0]: = ' Çíàê ';. Cells [3,0]: =' # ';. Cells [0,1]: =' Ci ';. Cells [1,1]: =' Áï ';; TForm1.Button2Click (Sender:

with REshenie doi: = 0 to colcount-1 doj: = 0 to rowcount-1 do [i, j]: =''; i: = 2 to REshenie.ColCount-1 doj: = 0 to REshenie.RowCount-1 do.Cells [i, j]: = '0 ';. Cells [0,1]: =' Ci ';. Cells [1,1]: =' ГЃГЇ '; i: = 2 to REshenie.RowCount-2 do.Cells [0, i]: = '0'; strok: = 1 to SpinEdit2.Value + 2 dostolb: = 2 to SpinEdit1.Value +1 do.Cells [stolb, strok]: = StringGrid1.Cells [stolb-2, strok-1];; stolb: = 2 to SpinEdit1.Value +1 do.Cells [stolb , 0]: = Chelevaya.Cells [stolb-2, 1];; strok: = 1 to SpinEdit2.Value do.Cells [REshenie.ColCount-1, strok +1]: = StringGrid1.Cells [StringGrid1.colcount-1 , strok]; strok: = 1 to SpinEdit2.Value to SpinEdit2.Value +1 doStringGrid1.Cells [SpinEdit1.Value, strok-1] = '<=' then.Cells [strok + SpinEdit1.Value, strok]: = '+1'; StringGrid1.Cells [SpinEdit1.Value , strok-1] = '> =' then.Cells [strok + SpinEdit1.Value, strok]: = '-1';;

// Розрахунок оцінок

for stolb: = 2 to REshenie.ColCount-1 doj: = 2 to REshenie.RowCount-2 do: = StrTofloat ( TObject); itera, kluch_stolb, kluch_strok: integer;, min2, d, z, f1, f2, f3, f4, s: real;: integer; _of_min: array [1 .. 10] of real; _of_zna: array [1 .. 10,1 .. 10] of real;

chet: = 0;

// Кількість ітерацій

for itera: = 1 to SpinEdit3.Value doRadioGroup1.ItemIndex = 1 then: = 99;

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

for i: = 1 to REshenie.ColCount-3 doStrToFloat (REshenie.Cells [i +1, REshenie.rowcount-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.ColCou...