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

end

end;

{**********************************************************}

{Решение системы линейных уравнений методом Жордана-Гаусса}

{**********************************************************}

procedure gaussj(var b:ary2s; y: arys; var coef:arys; ncol:integer; var error: boolean);

var w:array[1..maxr,1..maxr] of real;

index:array[1..maxr,1..3] of integer;

i,j,k,l,nv,irow,icol,n,l1:integer;

determ,pivot,hold,sum,t,ab,big:real;

{++++++++++++++++++++++++++++++++++++++++++++}

procedure swap(var a,b: real);

var hold:real;

begin

hold:=a;

a:=b;

b:=hold

end;

{++++++++++++++++++++++++++++++++++++++++++++}

{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}

procedure gausj2;

var i,j,k,l,l1:integer;

{===============================================}

procedure gausj3;

var l:integer;

begin

if irow<>icol then

begin

determ:=-determ;