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

z:=a[k,1];

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

a[k,w]:=z;

end;

goto 1;

end;

if (w=n) and (e=1) then

begin

for j:=1 to n do

begin

z:=a[1,j];

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

a[n,j]:=z;

end;

for k:=1 to n do

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;