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

{визначення степеня многочлена}

var i:integer;

begin

i:=100;

while ((a[i]=0) and (i>=0)) do i:=i-1;

stepin:=i;

end;

function znach(a:poli;x:real):real;

var i,n:integer;

s,st:real;

begin

s:=a[0];

st:=1;

n:=stepin(a);

for i:=1 to n do

begin

st:=st*x;

s:=s+st*a[i];

end;

znach:=s;

end;

procedure riv(a:poli;var b:poli);

{присвоення одному многочлену значення iншого}

var i:integer;

begin

for i:=0 to 100 do b[i]:=a[i];

end;

procedure vvid(n:integer;var a:poli);

{ввiдмногочлена}