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

writeln('Vvedite razmernost` matrici A');

readln(ww);

f:=ww;

n1:=ww;

for i:=1 to ww do

begin

for j:=1 to ww do

begin

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

Readln(A[i,j]);

A1[i,j]:=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;