Question

Даны значения массива {аi}, i = 0, ..., 10 и переменной х. Составьте программу вычисления алгебраического многочлена 10-й степени по формуле Горнера: a10x10 + а9х9 + ... + а1х + а0 = ((...(а10х + а9)х + а8)х + ... + а1)х + а0.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function Horner(Self:sequence of real;x:real):real; extensionmethod;
begin
  Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;

begin
  var x:=ReadReal('Укажите значение х:');
  Writeln('Введите коэффициенты в порядке возрастания степеней: ');
  Writeln('Результат: ',ReadArrReal(11).Reverse.Horner(x));
end.