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

q:=q+1;

u:=n-1;

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

goto 2;

end;

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

begin

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];

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;