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

Writeln('ПолиномНьютона:');

Write('P',N-1,'(x)=');

Fori:=NDownTo 1 Do

IfRound(Cx[i]*1000)<>0 Then{Если в числе не более 3х нулей после запятой,}

Begin{тогда выводим его на экран}

If (Cx[i]<0) Then Write(' - ') Else Write(' + ');

Write(ABS(Cx[i]):5:3);

If (i>2) Then Write('·x^',i-1) Else

If (i>1) Then Write('·x')

End;

Writeln;

Writeln;

Writeln('Нажмите `ESC` для выхода или любую клавишу для вычисления значения полинома');

c:=Readkey;

GoToXY(1,WhereY-1);

DelLine;DelLine;

If c<>#27 Then Calculat(N,Cx);

End;{Print_Polinom}

PROCEDURE Recover(Current,Number:byte; Var Result,Mat_X:Matrix_Line);

{Восстановление коэффициентов полинома по его корням}

Var Process,i,j,k:Integer;

Begin

{Заносим первый линейный множитель вида (X - Cn) в Result}

k:=2; {Количество коэффициентов в Result = 2}

IfCurrent<>1 Then{Если исключаем не Х1, то Result[1] = X1}

Begin

Result[1]:=-Mat_X[1];

Process:=2 {Начнем обработку со второго множителя}

End