Курсовая работа: Решение системы линейных уравнений методом Гаусса и Жордана-Гаусса

end;

end;

end;

until (s>=2) and (s<=maxr);

form1.Enabled:=true;

matrix.RowCount:=s+1;

matrix.ColCount:=s+1;

gauss.colCount:=s+1;

coef.rowCount:=s+1;

jgauss.colCount:=s+1;

coef.Cells[1,0]:='B';

gauss.Cells[0,1]:='Gauss';

jgauss.Cells[0,1]:='J-Gauss';

for i:=1 to s do

begin

matrix.Cells[0,i]:=floattostr(i);

matrix.Cells[i,0]:='A'+floattostr(i);

coef.Cells[0,i]:=floattostr(i);

gauss.Cells[i,0]:='X'+floattostr(i);

jgauss.Cells[i,0]:='X'+floattostr(i);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a:ary2s;

x,y:arys;

error:boolean;

i,j,l,K:integer;

prover:string;

begin