Вывод на экран графика любой функции, представляющей собой многочлен не выше 5-ой степени - Turbo Pascal

Формулировка задачи:

Написать программу, способную выводить на экран график любой функции, представляющей собой многочлен не выше 5-ой степени.

Решение задачи: «Вывод на экран графика любой функции, представляющей собой многочлен не выше 5-ой степени»

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

function p(x: Real; const a: array of Real): Real;
var i: Integer; r: Real;
begin
  r:=a[High(a)]; for i:=High(a)-1 downto Low(a) do r:=r*x+a[i];
  p:=r;
end;

Объяснение кода листинга программы

В данном коде реализована функция P, которая вычисляет значение многочлена степени n, заданного массивом коэффициентов a, для аргумента x. Список действий в коде:

Задаётся переменная r, которая инициализируется значением первого элемента массива a (предполагается, что массив a отсортирован по возрастанию или убыванию).
Происходит цикл по элементам массива a в обратном порядке.
Для каждого элемента массива a выполняется операция умножения значения переменной r на x и сложения с текущим элементом массива a, после чего полученное значение присваивается переменной r.
Возвращается значение переменной r как результат работы функции P.