Контрольная работа: Виконання символьних операцій з многочленами

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

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;

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;