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

end;

goto 1;

end

else

begin

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

w:=1;e:=2;

for i:=1 to n-1 do

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

for j:=2 to n do

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

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

if max=0 then

begin

o[q]:=a[n,n];

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