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

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

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

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

end;

i:=i-1;

end;

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

else

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

else

write(fi,a[i]:5:3);

end

else

write(fi,'0');

end;

function maxi(n,m:integer):integer;

begin

if(n>=m) then maxi:=n else maxi:=m;

end;

function mini(n,m:integer):integer;

begin

if(n<=m) then mini:=n else mini:=m;

end;

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

{сума 2 многочленiв}

var i,na,nb,nab,nba:integer;

begin

na:=stepin(a);

nb:=stepin(b);