Я проверил ваш код. Попробовал его реализовать. Значение интерполяции нули во всех точках. Подумал что может просто неверно рисую график, оказалось дело не в этом. Вот немного измененный код, помогите кто может плз:
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
q:=1;
L:=0;
if (i<j) and (i>j) then begin //Условие
for i:=0 to n-1 do begin
for j:=0 to n-1 do begin
q:=q*(t-x[j])/(x[i]-x[j]); // t - переменная для разложения и сам метод
L:=L+q*y[i];
end;
end;
result:=L;
end;
i:=0;
t:=x[i]; while t<x[n-1]+0.1 do begin //График
series1.AddXY(t,result);
t:=t+0.1;
end;
end;