Question

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

Answer 1

program HornerPolynomial;
var   Coefficients: array [0..10] of real;   x, result: real;   i: integer;
begin   writeln('Введите коэффициенты многочлена (начиная с нулевой степени):');   for i := 0 to 10 do   begin     write('a', i, ': ');     readln(Coefficients[i]);   end;
  writeln('Введите значение x:');   readln(x);
  result := Coefficients[10];   for i := 9 downto 0 do   begin     result := result * x + Coefficients[i];   end;
  writeln('Значение многочлена: ', result:0:2);
     readln; end.