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

u:=false;

for i:=1 to n do

begin

p:=a[k,i];a[k,i]:=c1*p+s1*a[j,i];

a[j,i]:=s2*p+c2*a[j,i];

if v then

begin

p:=t[k,i]; t[k,i]:=c1*p+s1*t[j,i];

t[j,i]:=s2*p+c2*t[j,i];

end;

end;

for i:=1 to n do

begin

p:=a[i,k];a[i,k]:=c2*p-s2*a[i,j];

a[i,j]:=-s1*p+c1*a[i,j];

if w then

begin

p:=t[i,k];t[i,k]:=c2*p-s2*t[i,j];

t[i,j]:=-s1*p+c1*t[i,j];

end;

end;

end;

end;

end;

b:=m;

end;

begin clrscr;

write('введите максимальное количество итераций');read(m);

write('введите точность');read(e);