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

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

else M[i,j]:=1;

for i:=1 to n do

for j:=1 to n do

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

else M1[i,j]:=1;

for i:=1 to n do

if i<>n then begin M[i,n]:=a[i,n]; M1[i,1]:=-a[i+1,n]/a[1,n]; end

else begin M[i,n]:=a[i,n]; M1[i,1]:=1/a[1,n]; end;

Umnogenie(M1,A,n,S);

Umnogenie(S,M,n,A);

if y=n-1 then

begin

for l:=n downto 1 do

begin

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