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

Temp:=1;

For i:=1 To Power Do

Temp:=Temp*Root;

Rise:=Temp;

End; {Rise}

PROCEDURE Null(Last:Byte;Var M:Matrix_Line); {Обнулениематриц}

Var i:Byte;

Begin

For i:=1 To Last Do

M[i]:=0;

End; {Null}

PROCEDURE Calculat(Num:Integer;Cx:Matrix_Line); {вычислениезначенийполинома}

Var x,y:Real;

i:Integer;

Finish:Boolean;

c:Char;

Begin

Writeln('***********************************************');

Writeln;

Writeln('Вычисление значений интерполяционного полинома:');

Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

Writeln('Введите значение x:');

Repeat

y:=0;

Readln(x);

For i:=Num DownTo 1 Do

y:=y+Cx[i]*Rise(x,i-1);

Writeln('Значение полинома в точке Xo=',x:7:4,' равно Yo=',y:7:4);

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