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

for i:=100 downto nab+1 do c[i]:=0;

for i:=nab downto 0 do c[i]:=a[i]+b[i];

end;

procedure dobchy(a:poli;r:real;var c:poli);

{добуток скаляра на многочлен}

var i:integer;

begin

c:=zero;

for i:=0 to stepin(a) do

c[i]:=r*a[i];

end;

procedure pidvst(a:poli;n:integer;var c:poli);

{домноження многочлена на x^n)}

var i:integer;

begin

for i:=stepin(a)+n downto n do

c[i]:=a[i-n];

for i:=stepin(a)+n+1 to 100 do c[i]:=0;

for i:=0 to n-1 do c[i]:=0;

end;

procedure dobutok(a,b:poli;var c:poli);

{добуток 2 многочленiв}

var i:integer;

t,t1,t2:poli;

begin

t:=zero;

for i:=0 to stepin(b) do

begin

t1:=zero;