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

end;

with form1 do

begin

label23.caption:='A';

tabliza.cells[1,0]:='a_малая';tabliza.cells[2,0]:='a_большая';

end;

end;

{ Вывод наибольший, наименьший, расчётный выигрыш матрицы V _А }

procedure WW_A1;

begin

WW_A;

With form1.tabliza Do

begin

for j:=1 to n do

begin

cells[1,j]:=intToStr(a_m[j]);

cells[2,j]:=intToStr(a_b[j]);

end;

for i:=1 to m do

for j:=1 to k do

cells[j+2,i]:=floatToStr(V_a[i,j]);

end;

end;

{событие на нажатие кнопки 'Ввод коэф.. '}

procedure TForm1.WWod_koef(Sender: TObject);

begin

try

m:=strToint(edit1.text);

n:=strToint(edit2.text);