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

[LiptonICE]

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;
begin
for i:=n downto 0 do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=n downto 0 do
write(a[i]:0:1,' ');
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.

[Snejnaya]

Получить для х=1,3,4 значения p(x+1)-p(x), где p(y) = a6 y6 + a5

что такое у6?

var i,j:byte;

это объявление переменных. Ты поясняешь паскалю, что будешь использовать переменные i и j типа byte, иначе программа вообще не должна завестись - она же не понимает, что такое i, j и откуда они взялись.

for i:=n downto 1 do
begin
действия
end;

цикл. для каждого i от n до 1 включительно (т.е. n раз) выполнить определенную последовательность действий внутри begin - end;
to значит, что i с каждым разом увеличивается на 1, down to - значит уменьшается

[LiptonICE]

Пасиб..... за очень подробный ответ))))))Но меня интересует какую роль оно играет? всё то что Вы описали... ясно.
почему нель сделать так как я делал:
uses crt;
Const n=6;
Type Arr=array[0..6] of integer;
Var i:integer;

Function f(x:byte;b:Arr):real;
Var p:real;
begin
p:=1;
for i:=n downto 1 do
p:=p*(b[i]*x+b[i-1]);
f:=p;
end;
в данном фрагменте что-то наверн напутал.. с функцией или так :
uses crt;
Const n=6;
Type Arr=array[0..6] of integer;
Var i:integer;

Function f(x:byte;b:Arr):real;
Var p:real;
begin
p:=b[i]*x+b[i-1];
for i:=n-2 downto 0 do
p:=p*(x+b[i-1]);
f:=p;
end;
во всех выше изложеных вариантах при проверки на листике не один из них не подходит, паскаль и решение на листике разные)))))А вот этот вариаант :
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; подходит.... ток я его не пойму к чему тут j.

[LiptonICE]

var i,j:byte; можно описать решение без них?

[Snejnaya]

Но меня интересует какую роль оно играет? всё то что Вы описали... ясно.
почему нель сделать так как я делал:

Чтобы ответить на этот вопрос, нужно понять задание.

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

Сразу возникает вопрос, почему в функции p(y) переменная у не фигурирует, зато появляется непонятная переменная у6? Зачем нужны действительные числа а0-а4, если в программе по твоему условию используются только а5 и а6?
Найти ошибку в твоем алгоритме невозможно, т.к. непоянтно, что требовалось получить.

var i,j:byte; можно описать решение без них?

см. выше. Но вообще - не понимаю. чем тебе не угодила эта строчка. Если вместо нее напистаь
var i,j:integer; тебе станет легче?