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

swap(b[irow,l],b[icol,l]);

if nv>0 then

for l:=1 to nv do

swap(w[irow,l],w[icol,l])

end

end;

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

begin

error:=false;

nv:=1;

n:=ncol;

for i:=1 to n do

begin

w[i,1]:=y[i];

index[i,3]:=0

end;

determ:=1.0;

for i:=1 to n do

begin

big:=0.0;

for j:=1 to n do

begin

if index[j,3]<>1 then

begin

for k:=1 to n do

begin

if index[k,3]>1 then

begin

error:=true;