Интерполяция многочленом ньютона Опции

[Dark_san]

Вот такое вот у меня было лицо
Нужен алгоритм для решения програмным путём
Входные данные - 12 X|Y и 4 точки x1 x2 x3 x4.

[Dark_san]

)) бывает и такое

[Lapp]

Как и обещал, в конце трудового дня и перед положением тела в кресла у ТВ пишу своей далекой африканской (или австралийской?) корреспондентке - темной, но образованной труженице компьютера и всякого прочего интеграла..

Вот тебе предмет твоих ночных мечт, о гордая и независимая дочь прерий (или джунглей?) И после того, как ты покажешь ЭТО своему Высокочтимому шаману.. тьфу, пропасть! преподу - он тебя так возлюбит, что уж ТОЧНО СЪЕСТ!! как это у вас там принято.. (брр.. даже не зови в гости - не приеду!..))

const
  n=11;

const
  x0: double= 0.01;
  h: double= 0.05;
  y: array[0..n]of double = (
    0.99,
    0.95,
    0.91,
    0.87,
    0.84,
    0.80,
    0.77,
    0.74,
    0.71,
    0.68,
    0.65,
    0.63
  );

function Prod(t: double; k: integer): double;  // t(t-1)...(t-k)
begin
  if k=0 then Prod:=t else Prod:=t*Prod(t-1,k-1)
end;


function FinDif(k,i: integer): double;   // finite difference
begin
  if k=0 then FinDif:=y[i] else FinDif:=FinDif(k-1,i+1)-FinDif(k-1,i)
end;


function NewtonPol(x: double): double;
var
  k: integer;
  p,t,f: double;
begin
  p:=y[0];
  t:=(x-x0)/h;
  f:=1;
  for k:=1 to n do begin
    f:=f*k;
    p:=p+Prod(t,k-1)*FinDif(k,0)/f
  end;
  NewtonPol:=p
end;

begin
  WriteLn(NewtonPol(0.492):8:5)
end.

)) бывает и такое

Это какое же?? весь дрожу и бледнею с лица..