nt-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 ( to REshenie.ColCount-2 doStrToFloat (REshenie.Cells [i, REshenie.RowCount-1])> = 0 then: = chet +1
else
end;
// Перевірка на оптимальність
if chet = REshenie.ColCount-3 then ('Рішення Знайдено, mtWarning, [mbOK], 1);. Visible: = true;. Visible: = false;; elseitera = SpinEdit3.Value then (Рішення не знайдено, збільште кількість ітерацій або відсутній '+ RadioGroup1.items [RadioGroup1.itemindex] +' функції ', mtWarning, [mbOK], 1);. Visible: = false;. Visible: = false;;: = 0;: = -99 ;
// Накожденіе ключ стовпця
for i: = 1 to REshenie.ColCount-3 doStrToFloat (REshenie.Cells [i +1, REshenie.rowcount-1])> min1 then: = StrToFloat (REshenie.Cells [i +1, REshenie.rowcount -1]); _stolb: = i +1;;; i: = 1 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 do.Cells [i, kluch_strok]: = floattostr (strtofloat (REshenie.Cells [i, kluch_strok])/f4);;: = StrTo Float (REshenie.Cells [kluch_stolb, kluch_strok]); i: = 2 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 ( to REshenie.ColCount-2 doStrToFloat (REshenie.Cells [i, REshenie.RowCount-1]) <= 0 then: = chet +1
else
end;
// Перевірка на оптимальність
if chet = REshenie.ColCount-3 then ('Рішення знайдено', mtWarning, [mbOK], 1);. Visible: = true;. Visible: = false;; elseitera = SpinEdit3.Value then (Рішення не знайдено , збільште кількість ітерацій або відсутній '+ RadioGroup1.items [RadioGroup1.itemindex] +' TObject);, finals;, f1, f2, f3, f4, s, d: real; _of_zna: array [1 .. 10,1 .. 10] of real; _of_min: array [1 .. 10] of real; _drob_n, kluch_stolb, kluch_strok: Integer; _of_q: array [1 .. 10] of real;, max, max_drob_z, x, min2,...
