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

If (Mat_x[j]=Mat_x[i]) Then {Проверка на одинаковые узлы}

Begin

Writeln('Значения узлов ',i,' и ',j,' введены неверно!!!');

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

c:=Readkey;

If (c='Y') Or (c='y') Then Enter:=False Else Halt;

GoToXY(5,i+3);

DelLine;DelLine;DelLine;

End;

UntilEnter;

{Ввод значений функции в узлах}

GoToXY(35,i+3);

Write('Y(',Mat_x[i]:5:2,')=');

Readln(Mat_f[i]);

End;

{Сортировка узлов по возрастанию}

Fori:=1 ToNumberDo

For j:=i To Number Do

If (Mat_x[j]<Mat_x[i]) Then

Begin

Swap(Mat_x[j],Mat_x[i]);

Swap(Mat_f[j],Mat_f[i]);

End;

End;{Vvod}

{Распечаткаполинома}

PROCEDURE Print_Polinom(N:Integer;Cx:Matrix_Line);

Var i:Integer;

c:Char;

Begin