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

If c=#27 Then Finish:=True Else Finish:=False;

GoToXY(1,WhereY-2);

DelLine; DelLine;DelLine;

Until Finish;

End; {Calculat}

PROCEDURE Vvod(Var Mat_x,Mat_f:Matrix_Line;Var Number:Byte);

Var c:Char;

i,j:Integer;

Enter:Boolean;

Begin

ClrScr;

Writeln('Построение интерполяционного полинома Ньютона по значениям функции в узлах');

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

Writeln;

Writeln('Введите кол-во узлов интерполяции (0<N<',Max_Num_Usel,'):');

Repeat

Readln(Number);

Until (Number<Max_Num_Usel);

ClrScr;

Writeln('Значения узлов не должны сопадать');

Writeln('Введите значения узлов и значения функций в них:');

For i:=1 To Number Do

Begin

Repeat

{Вводузлов}

Enter:=True;{Правильностьввода}

GoToXY(5,i+3);

Write('X(',i-1,')=');

Readln(Mat_x[i]);