Курсовая работа: Знаходження власних значеннь лінійого оператора

u,v,w,z:boolean;

function zn(x:real):integer;

begin if x<0 then zn:=-1 else zn:=1; end;

begin

u:=false;v:=u;w:=u;n1:=n-1;e1:=sqrt(e);

if b<>0 then

begin

if b<0 then v:=true else w:=true;

for i:=1 to n do

for j:=1 to n do

if i=j then t[i,j]:=1 else t[i,j]:=0;

end;

for q:=1 to m do

begin

if u then begin b:=1-q; exit; end;

i:=1; z:=false;

repeat

j:=i+1;

repeat

if(abs(a[i,j]+a[j,i])>e1) or

(abs(a[i,j]-a[j,i])>e1) and

(abs(a[i,i]-a[j,j])>e1) then z:=true;

j:=j+1;

until (j>n) or z;

i:=i+1;

until (i>n1) or z;

if not z then begin b:=q-1; exit; end;

u:=true;

for k:=1 to n1 do