Реферат: Метод Гурвица

except

showMessage('Ошибочная запись числа ');

end;

try

Form2 := TForm2.Create(self);

tabliza.Colcount:=3+k;

Form2.ShowModal;

finally

Form2.Close;

WW_a;

end;

end;

{событие на нажатие кнопки 'вывод результата' }

procedure Tform1.W_Rezultat(Sender: TObject);

begin

Panel6.Visible:=false;

panel3.Visible:=true;

{Вводим из таблицы C _ A в матрицу игрока А - C _ A } { C _ S [столбец,строка] }

for i :=1 to m do {по столбцам m таблицы C_S}

for j :=1 to n do {по строкам n таблицы C_S}

C_a[i,j]:=StrToInt(C_S.Cells[j,i]);

{Создаём матрицу C _ B путём транспонирования матрицы игрока А }

for i :=1 to n do

for j :=1 to m do

C_b[i,j] :=StrToInt(C_S.Cells[i,j]);

{расчет наименьших и наибольших выигрышей игрока A }

for i:=1 to m do

begin

a_m[i]:=C_a[i,1]; {массив наименьшии выигрыш}