ival,VMatrix,Range);(39,1);(laquo;Матрица A , k + 1, . Raquo;) ;;;:=Trace (Range, AMatrix)/Range; [k + 1]:=Pn; {Вектор параметрів P}
writeln ( P_ , Range, =, Pn: 9: 2) ;;; ( Вектор коефіцієнтом P ); k:=1 to Range do (OutPutI + ScaleI * k, OutPutJ); (MainTextColor);
write (PVec [k]: 8: 3) ;;
readln;
{================== Блок обчислення власних чисел матриці ===============}
ClrScr; (MainTextColor); ( ********************** ); ( Ведіть межі, в яких розташовуються корені рівняння. );
write ( Enter alpha=); (alpha); ( Enter beta=); (beta); ( Enter eps=raquo;);(eps);_limit(alpha,beta,LVec,RootNum,i,Range,PVec);;(MainTextColor);(laquo;Вектор власних чисел ); k:=1 to RootNum do (OutPutI + ScaleI * k, OutPutJ); (LVec [k]: 8: 4) ;;;.
Література
Воробйова Г.М., Данилова О.М. Практикум з обчислювальної математики: Учеб. Посібник для технікумів.- М .: Вища. Школа, 1990.
Гловацкая А.П. Методи та алгоритми обчислювальної математики. Учеб. Посібник для вузів.- М .: Радио и связь, 1999..
Чисельні методи. Підручник для технікумів і вузів. М .: Вища школа, 1976.