Вычислить значения многочлена и его первую производную, используя формулу Горнера - Turbo Pascal (30027)

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

Вычислить значения многочлена и его первую производную, используя формулу Горнера значения функции в заданном интервале с заданным шагом. Значения аргумента подобрать самостоятельно: y = x¹⁰ + 4.2x⁹ + 2x⁷ - 1.5x⁵ + 2x³ - 2x + 3.2

Решение задачи: «Вычислить значения многочлена и его первую производную, используя формулу Горнера»

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

uses crt;
const n=10;//наибольшая степень многочлена
type mas=array[0..n]of real;
//коэффициенты многочлена начиная со свободного члена
const a:mas=(3.2,-2,0,2,0,-1.5,0,2,0,4.2,1);
//определение значения многочлена
function mngchl(x:real):real;
var i:byte;
begin
result:=0;
for i:=0 to n do
result:=result*x+a[i];
end;
//определение значения производной
function proizv(x:real):real;
var  i:byte;
begin
result:=0;
for i:=0 to n-1 do
result:=result*x+a[i+1]*(i+1);
end;
var x,xn,xk,h:real;
begin
clrscr;
write('x=');
readln(x);
writeln('Значение многочлена=',mngchl(x):0:2);
writeln('Значение производной=',proizv(x):0:2);
readln
end.

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

Создаётся пространство для хранения коэффициентов многочлена в переменной типа mas.
Задаются коэффициенты многочлена в массиве a.
Определяется функция mngchl, которая вычисляет значение многочлена для заданного x.
Внутри функции mngchl создается цикл for, который проходит от 0 до n (наибольшей степени многочлена), и на каждом шаге умножает текущее значение x на соответствующий коэффициент из массива a и добавляет его к результату.
Результат выводится на экран.
Определяется функция proizv, которая вычисляет значение производной многочлена для заданного x.
Внутри функции proizv также создается цикл for, который проходит от 0 до n-1, и на каждом шаге умножает текущее значение x на коэффициент из массива a, увеличенный на 1, и на предыдущий результат.
Результат выводится на экран.
Задается значение переменной x.
Вызывается функция mngchl для вычисления значения многочлена.
Вызывается функция proizv для вычисления значения производной многочлена.
Выводится на экран значение многочлена и его производной.
Программа завершается.