Интерполяция сеточных функций полиномами

[romaric]

Используя интерполяционную формулу Лагранжа, вывести в виде таблицы значения функции f (x) для точек x с заданным шагом, если из-вестны значения функции f (xi) в узлах xi.

Отрезок интерполирования
xнач=2
xкон=6
шаг=0.2

x[0]:=1.3; y[0]:=13.5;
x[1]:=1.9; y[1]:=7.4;
x[2]:=2.8; y[2]:=-0.7;
x[3]:=3.7; y[3]:=-2.4;
x[4]:=4.2; y[4]:=0.6;
x[5]:=5.1; y[5]:=4;
x[6]:=5.8; y[6]:=0.3;
x[7]:=6.9; y[7]:=-0.4;

Вот что получилось:

Uses crt;
Const nmax = 100;
Var n,k,m,I,j : integer;
    ct,u:real;
    x,y,r,pt:array[1..nmax] of real;
    
begin
clrscr;
n:=8;
 
x[1]:=1.3;  y[1]:=13.5;
x[2]:=1.9;  y[2]:=7.4;
x[3]:=2.8;  y[3]:=-0.7;
x[4]:=3.7;  y[4]:=-2.4;
x[5]:=4.2;  y[5]:=0.6;
x[6]:=5.1;  y[6]:=4;
x[7]:=5.8;  y[7]:=0.3;
x[8]:=6.9;  y[8]:=-0.4;
 
writeln('massiv uzlov:');
for i:=1 to n do
write(x[i]:0:2,' ');
writeln;
writeln;
writeln('massiv znach:');
for i:=1 to n do
write(y[i]:0:2,' ');
writeln;
writeln;
for i:=1 to n do R[i]:=0;
for i:=1 to n do
 begin
  ct:=1;pt[1]:=1;k:=1;
  for j:=1 to n do
  if i<>j then
   begin
    ct:=ct*(x[i]-x[j]);
    pt[k+1]:=1;
    if k>1 then
    for m:=k downto 2 do
    pt[m]:=pt[m-1]-pt[m]*x[j];
    pt[1]:=-pt[1]*x[j];
    k:=k+1;
   end;
  u:=y[i]/ct;
  for m:=1 to n do
  r[m]:=r[m]+pt[m]*u;
 end;
writeln('massiv koefficientov:');
for i:=1 to n do
writeln('x',i,'=',r[i]:0:2,'');
readln
end.

Но по условию задачи есть еще шаг=0.2 и xнач и xкон. Как их использовать в решении?

[evg_m]

Но по условию задачи есть еще шаг=0.2 и xнач и xкон. Как их использовать в решении?

вывести в виде таблицы значения функции f (x) для точек x с заданным шагом

от ... и до ... с шагом ....