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

Рис.6 Схема алгоритма программы Print_Polinom

Рис.7 Схема алгоритма подпрограммы Div_Res

Рис.8Схема алгоритма программы Nuton

Рис.9 Схема алгоритма подпрограммы Recover

Рис.10 Блок-схема программы Polinom

2. Листинг программы Polinom

Реализуем алгоритм на языке высокого уровня TurboPascal, используя подпрограммы.

PROGRAMPOLINOM; {Программа построения интерполяционного полинома Ньютона}

Uses Crt;

Const Max_Num_Usel=20; {Количествоузлов}

Type

Matrix_Line = Array[1..Max_Num_Usel] Of Real;

Var Max:Byte;

X,F:Matrix_Line;

PROCEDURE Swap(Var First,Second:real); {Обменадвух REAL переменных}

Var Temp:Real;

Begin

Temp:=First;

First:=Second;

Second:=Temp;

End; {Swap}

FUNCTION Rise(Root:Real;Power:Integer):Real; {Возведениевстепень}

Var Temp:Real;

i:Integer;