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

begin

for i:=100 downto n+1 do a[i]:=0;

writeln('вводьтемногочлен');

for i:=n downto 1 do

begin

write('x^',i:2,'*');

read(a[i]);

write('+');

end;

read(a[0]);

end;

function poper(a:poli;m:integer):integer;

{визначення молодшого на 1 коефiцiента многочлена пiсля m}

var i:integer;

begin

i:=m-1;

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

poper:=i;

end;

procedure vyvid(a:poli);

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

var i,n:integer;

begin

n:=stepin(a);

writeln;

if ((n>0)or(a[0]<>0)) then

begin

i:=n;

while ((i>=1)and(poper(a,i)>-1)) do