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

dobchy(a,b[i],t1);

pidvst(t1,i,t2);

suma(t,t2,t);

end;

c:=t;

end;

procedure dilen(a,b:poli;var c,c1:poli);

var n,m,i:integer;

t1,t2,t3,t4,t5:poli;

{дiленнямногочленiвзостачею}

begin

riv(a,t4);

n:=stepin(a);

m:=stepin(b);

riv(zero,t3);

while n>=m do

begin

riv(zero,t5);

riv(zero,t1);

riv(zero,t2);

t5[n-m]:=a[n]/b[m];

suma(c,t5,c);

dobutok(t5,b,t1);

dobchy(t1,-1,t2);

suma(a,t2,a);

n:=stepin(a);

end;

dobutok(c,b,t3);

dobchy(t3,-1,t3);