Курсовая работа: Метод Жордана Гаусса

{132} end;

{133} R:=A[k,h];

{134} for i:=1 to n do

{135} for j:=1 to l+1 do begin

{136} if(i<>k)and(j<>h) then

{137} B[i,j]:=R*A[i,j]-A[i,h]*A[k,j];

{138} if (i=k)and(j<>h) then

{139} B[i,j]:=-A[i,j];

{140} End;

{141} for i:=1 to n do

{142} for j:=1 to l do begin

{143} if j<h then

{144} A[i,j]:=B[i,j]/R;

{145} if j>=h then begin

{146} z:=j+1;

{147} A[i,j]:=B[i,z]/R;

{148} end;

{149} end;

{150} t:=t+1;

{151} C[t]:=k;

{152} D[k]:=E[h]+h;

{153} for i:=1 to l+1 do begin

{154} if i>h then begin

{155} z:=i-1;

{156} E[z]:=E[i]+1;

{157} end;

{158} end;

{159} l:=l-1;

{160} END;