Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где

[LiptonICE]

Здраствуйте. Вот есть задачка, не могли бы помочь разобраться???Язык Паскаль.

Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где
p(y) = a6 y6 + a5 y5 + ... + a0

Схема решения метод Горнера.Что требуеться... парни подскажите как дальше писать,вот фрагмент задачи надо закончить.

Program ;
Const n=6;
Type Arr=array[0..n] of integer;
Var i:integer;

Function f(x:real;b:array[0..n])of real;
Var p:real;
begin
p:=1;
for i:=6 downto 1 do
p:=p*x(b[i]*x+b[i-1]);
f:=p;
end;
var a:=arr;
i:real;
begin
for i:=0 to n do
writeln a[i];

[LiptonICE]

Ау.. О.о=) Если не сложно помогите..

[LiptonICE]

Вот парни есть такое решение(по моей задаче), не могли бы помочь в нём разобратса... прокоментировать строчки..Оч. прошу...Выручайте.
uses crt;
const n=6;
type mas=array[0..6] of real;
function P(x:byte;m:mas):real;
var i,j:byte;
s,y:real;
begin
s:=m[0];
for i:=n downto 1 do
begin
y:=1;
for j:=1 to i do
y:=y*x;
s:=s+m[i]*y;
end;
P:=s;
end;
var a:mas;
x,i,j:byte;
res:real;
begin
clrscr;
writeln('Введите ',n+1,' коэффициентов многочлена:');
for i:=n downto 0 do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Коэффициенты многочлена:');
for i:=n downto 0 do
write(a[i]:0:1,' ');
writeln;
writeln;
writeln('Значение выражения Р(х+1)-Р(х) при х=1,3,4:');
for x:=1 to 4 do
if x<>2 then
begin
write('x=',x,' значение=',P(x+1,a)-P(x,a):0:1);
writeln;
end;
readln
end.

[[Ваш_ник]]

Что же тут непонятного? Даже комментарии даны!

[LiptonICE]

Дело в том, что надо по методу Горнера задачку забацать... а что в этой задаче делаетса я понять не могу. Хотя она работает.... поэтому прошу помогите зделать задачку по методу Горнера.

[LiptonICE]

Мне помогут?=)

[LiptonICE]

Ответьте в теме...