Курсовая работа: Інтерполювання функцій за формулою Лагранжа

s:=zero;

for i:=1 to n do

begin

p:=od;u:=1;

for k:=1 to n do

begin

if (k<>i) then

begin

q:=zero;q[1]:=1;q[0]:=-x[k];

dobutok(p,q,p); u:=u*(x[i]-x[k]);

end;

end;

dobchy(p,y[i]/u,p);

suma(s,p,s);end;

writeln('МногочленЛагранжа '); writeln(fi,'МногочленЛагранжа ');

vyvid(s); fvyvid(s);

writeln; writeln(fi);

w:=znach(s,t);

writeln('Значеннявточцi iнтерполяцii=',w:5:3);

writeln(fi,'Значеннявточцi iнтерполяцii=',w:5:3);

close(fi);

end.

Додаток 4

Результат роботи програм и

x y

3.00 4.00

7.00 10.00

1.00 22.00

15.00 26.00