Вопрос, который вызвал трудности
Даны значения массива {аi}, i = 0, ..., 10 и переменной х. Составьте программу вычисления алгебраического многочлена 10-й степени по формуле Горнера: a10x10 + а9х9 + ... + а1х + а0 = ((...(а10х + а9)х + а8)х + ... + а1)х + а0.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
// 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.
// Внимание! Если программа не работает, обновите версию!
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.