Исправить ошибку

[Camelot_2012]

Здравствуйте, помогите исправить ошибку

program FormLagr;

const
Nmax = 50;

type
massiv = array[0..Nmax] of real;

var
X,Y,D: massiv;
P,x0: Real;
i,j,n: Integer;
exit:String;

function Lagr(x0:real):Real;
var
s:real;
begin
s:=0;
for i:=0 to n do
s:=s+Y[i]/((x0-X[i])*D[i]+0);
lagr:=P*s;
end;

begin
Write('n= ');
ReadLn(n);
for i:=0 to n do begin
Write('x',i,'= ');
ReadLn(X[i]);
Write('y',i,'= ');
ReadLn(Y[i]);
end;
{D}
for i:=0 to n do begin
D[i]:=1;
for j:=0 to n do
if j<>i then
D[i]:=D[i]*(X[i]-X[j]);
end; {D}
repeat
Write('x= ');
ReadLn(x0);
{P}
P:=1;
for i:=0 to n do
P:=P*(x0-X[i]); {P}
WriteLn('y= ',lagr(x0):3:3);
until false;
end.

Ошибка

Program1.pas(20) : Переменная цикла for должна описываться в том же блоке, что и цикл for

[p51x]

Ну так выполните то, что от вас просят на русском.

function Lagr(x0:real):Real;
var
s:real;
begin
s:=0;
for i:=0 to n do
s:=s+Y[i]/((x0-X[i])*D[i]+0);
lagr:=P*s;
end;

Где здесь описание i?

[Camelot_2012]

Сообщение от p51x

Ну так выполните то, что от вас просят на русском.

function Lagr(x0:real):Real;
var
s:real;
begin
s:=0;
for i:=0 to n do
s:=s+Y[i]/((x0-X[i])*D[i]+0);
lagr:=P*s;
end;

Где здесь описание i?

var
s:real;

но for же зарезервирована системой, как исправить?

[Stilet]

но for же зарезервирована системой, как исправить?

Ты неверно понял ошибку )

Переменная цикла for должна описываться в том же блоке, что и цикл for

Означает, что ему в качестве счетчика нужна локальная переменная.
Т.е. "i" должна быть описана внутри function Lagr, а не как глобальная.

[Camelot_2012]

Сообщение от Stilet

Ты неверно понял ошибку )

Означает, что ему в качестве счетчика нужна локальная переменная.
Т.е. "i" должна быть описана внутри function Lagr, а не как глобальная.

два раза ее описать?
ведь она еще используется в основной процедуре

program FormLagr;

const
Nmax = 50;

type
massiv = array[0..Nmax] of real;

var
X,Y,D: massiv;
P,x0: Real;
i,j,n: Integer;
exit:String;

function Lagr(x0:real):Real;
var
s:real;
i:integer;
begin
s:=0;
for i:=0 to n do
s:=s+Y[i]/((x0-X[i])*D[i]+0);
lagr:=P*s;
end;

begin
Write('n= ');
ReadLn(n);
for i:=0 to n do begin
Write('x',i,'= ');
ReadLn(X[i]);
Write('y',i,'= ');
ReadLn(Y[i]);
end;
{D}
for i:=0 to n do begin
D[i]:=1;
for j:=0 to n do
if j<>i then
D[i]:=D[i]*(X[i]-X[j]);
end; {D}
repeat
Write('x= ');
ReadLn(x0);
{P}
P:=1;
for i:=0 to n do
P:=P*(x0-X[i]); {P}
WriteLn('y= ',lagr(x0):3:3);
until false;
end.

[p51x]

локальная и глобальная переменная это две разные переменные

[Stilet]

два раза ее описать?

Да..........

[Serge_Bliznykov]

и, чтобы обезопасить себя от невольного использования глобальных переменных в процедурах/функциях я рекомендую перенести блог с глобальными переменными ПОСЛЕ описания всех процедур/функций, непосредственно перед begin самой программы:

program FormLagr;

const
Nmax = 50;

type
massiv = array[0..Nmax] of real;

function Lagr(x0:real):Real;
var
s:real;
i:integer;
begin
  s:=0;
  for i:=0 to n do
       s:=s+Y[i]/((x0-X[i])*D[i]+0);
  lagr:=P*s;
end;


var
X,Y,D: massiv;
P,x0: Real;
i,j,n: Integer;
exit:String;

например, сразу вылезет ошибка, что переменные массивов X[], Y[], D[] и переменная n не определены.