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

f:=f-1;

end;

t[f+1]:=true;

x:=x+1;

end;

end;

2:

end;

procedure ObrMatr(A:mas;Var AO:mas; n:byte);

const e=0.00001;

var i,j:integer;

a0:mas;

procedure MultString(var A,AO:mas;i1:integer;r:real);

var j:integer;

begin

for j:=1 to n do

begin

A[i1,j]:=A[i1,j]*r;

AO[i1,j]:=AO[i1,j]*r;

end;

end;

procedure AddStrings(var A,AO:mas;i1,i2:integer;r:real);

{Процедура прибавляет к i1 строке матрицы ai2-ю умноженную на r}

var j:integer;

begin

for j:=1 to n do

begin

A[i1,j]:=A[i1,j]+r*A[i2,j];

AO[i1,j]:=AO[i1,j]+r*AO[i2,j];