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

end;

end.

Получение формы Жордано: form . exe

uses wincrt;

label 1;

type mas=array[1..10,1..10]of real;

var A,M,M1,S,R,R1,A1:mas;

z,max:real;

f,jj,tt,ww,v,h,b,y,i,j,w,k,e,l,q,x,u,n1:byte;

p,o:array[1..10]of real;

t:array [1..10]of boolean;

procedure Umnogenie(b,c:mas; n:byte; var v:mas);

var i,j,k:byte;

begin

for i:=1 to n do

for j:=1 to n do

begin

v[i,j]:=0;

for k:=1 to n do

v[i,j]:=b[i,k]*c[k,j]+v[i,j];

end;

end;

procedure dan(n:byte; var a:mas);

label 1,2;

var y:byte;

begin

For y:=1 to n-1 do

begin

if a[1,n]=0 then