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

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

begin

error:=false;

n:=ncol;

for i:=1 to n do

begin

for j:=1 to n do

b[i,j]:=a[i,j];

w[i]:=y[i]

end;

for i:=1 to n-1 do

begin

big:=abs(b[i,i]);

l:=i;

i1:=i+1;

for j:=i1 to n do

begin

ab:=abs(b[j,i]);

if ab>big then

begin

big:=ab;

l:=j

end

end;

if big=0.0 then error:= true

else

begin

if l<>i then

begin