Курсовая работа: Вычисление характеристических многочленов собственных значений и собственных векторов

if y>1 then begin

max:=abs(a[1,n]);

w:=1;

for i:=1 to n-y do

if abs(a[i,n])>max then begin max:=abs(a[i,j]); w:=i; end;

if max=0 then

begin

for l:=n downto n-y+1 do

begin

p[f]:=a[l,n];

t[f]:=false;

f:=f-1;

end;

t[f+1]:=true;

x:=x+1;

u:=n-y;

if y=n-1 then begin o[q]:=a[1,1]; q:=q+1; end else dan(u,a);

goto 2;

end;

for j:=1 to n do

begin

z:=a[1,j];

a[1,j]:=a[w,j];

a[w,j]:=z;

end;

for k:=1 to n do

begin

z:=a[k,1];

a[k,1]:=a[k,w];