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

begin

z:=a[k,1];

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

a[k,n]:=z;

end;

goto 1;

end;

if w=1 then

begin

for j:=1 to n do

begin

z:=a[n,j];

a[n,j]:=a[e,j];

a[e,j]:=z;

end;

for k:=1 to n do

begin

z:=a[k,n];

a[k,n]:=a[k,e];

a[k,e]:=z;

end;

goto 1;

end;

end;

end;

1:

for i:=1 to n do

for j:=1 to n do

if i<>(j+1) then M[i,j]:=0