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

end;{Обратный ход:}

if (A[n,n]>e) then begin

for i:=n downto 1 do

for j:=1 to i-1 do

begin

AddStrings(A,AO,j,i,-A[j,i]);

end; end

elsewriteln('Обратной матрицы не существует.');

end;

procedure EdMatr(Var E:mas; n:byte);

var i,j:byte;

begin

for i:=1 to n do

for j:=1 to n do

if i<>j then E[i,j]:=0 else E[i,i]:=1;

end;

{procedure UmnogMatr(A,F:mas; Var R:mas; n:byte);

Var s:real;

l,i,j:byte;

begin

for i:=1 to n do

for j:=1 to n do

begin

s:=0;

for l:=1 to n do

s:=s+A[i,l]*F[l,j];

R[i,j]:=s;

end;

end; }