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

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

end;

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

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

var i:integer;

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);