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

b[l1,l]:=b[l1,l]-b[icol,l]*t;

if nv>0 then

for l:=1 to nv do

w[l1,l]:=w[l1,l]-w[icol,l]*t;

end

end

end;

end;

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

begin

gausj2;

if error then exit;

for i:=1 to n do

begin

l:=n-i+1;

if index[l,1]<>index[l,2] then

begin

irow:=index[l,1];

icol:=index[l,2];

for k:=1 to n do

swap(b[k,irow],b[k,icol])

end

end;

for k:=1 to n do

if index[k,3]<>1 then

begin

error:=true;

exit;

end;