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

begin

write('a[',i,j,']=');

Readln(A[i,j]);

end;

end;

q:=1;

x:=0;

dan(ww,a);

for i:=1 to q-1 do

writeln('Koren` har-ogo ur-iya=',o[i]:2:2);

writeln;

i:=ww+1;

if (x=1)or(x>1) then

begin

for v:=1 to x do

begin

tt:=0;

repeat

tt:=tt+1;

i:=i-1;

until t[i]<>false;

write('l^',tt,' + ');

for jj:=ww downto i do

begin

tt:=tt-1;

write(-p[jj]:2:2,'*l^',tt,' + ');

end;

ww:=i-1;

writeln;