Интерполирование функций.

[Poli-007]

В точках x0, x1, x2, x3, x4 заданы значения функции y=f(x).
1)Исследовать и построить график функции y=f(x).
2)Построить по имеющимся данным интерполяционный многочлен Лагранжа для функции y=f(x).
3)Исследовать и построить график полученного интерполяционного многочлена.
4)По формуле Лагранжа найти приближенное значение функции y=f(x) в точке x.
5)Оценить точность приближения.

y=e в степени (x-10); x=1,6.

Табличка:
n 0 1 2 3 4
x 1 1,4 1,8 2,2 2,6
y 0,000123 0,000184 0,000275 0,00041 0,000611

[danekne]

А хде наработки или сумма?

[Mad_Cat]

function f3(x1:real):real;{формула Лагранжа}
var g,m,r:real;
    i,j:integer;
begin
g:=1;
m:=0;
for i:=0 to 4 do
begin
    r:=y[i];
   for j:=0 to n+1 do
     begin
      if(i<>j) then
        begin
         r:=r*(x1-x[j]);
         g:=g*(x[i]-x[j]);
        end;
     end;
 r:=r/g;
 m:=m+r;
 g:=1;
end;
result:=m;
end;