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

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

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

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

begin

na:=stepin(a);

nb:=stepin(b);

nab:=maxi (na, nb);

riv (zero, c);

for i:=nab downto 0 do c[i]:=a[i]+b[i];

end;

procedure nsuma (a:maspoli; n:integer; var c:poli);

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

var i:integer;

begin

riv (zero, c);

for i:=1 to n do

suma (c, a[i], c);

end;

procedure dobchy (a:poli; r:real; var c:poli);

{добуток скаляра на многочлен}

var i:integer;

begin

riv (zero, c);

for i:=0 to stepin(a) do

c[i]:=r*a[i];

end;

procedure pidvst (a:poli; n:integer; var c:poli);

(домноження многочлена на x^n)}

var i:integer;