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

if (a[i]<>0) then begin

if (i>1) then

write(a[i]:5:2,'x^',i:2)

else write(a[i]:5:2,'x');

if (a[poper(a,i)]>0) then write('+') ;

end;

i:=i-1;

end;

if (i>1) then write(a[i]:5:2,'x^',i:2)

else

if(i=1) then write(a[i]:5:2,'x')

else

write(a[i]:5:2);

end

else

write('0');

end;

procedure fvyvid(a:poli);

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

var i,n:integer;

begin

n:=stepin(a);

writeln(fi);

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

begin

i:=n;

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

begin

if (a[i]<>0) then begin