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

riv (zero, t3);

while n>=m do

begin

riv (zero, t5);

riv (zero, t1);

riv (zero, t2);

t5 [n-m]:=a[n]/b[m];

suma (c, t5, c);

dobutok (t5, b, t1);

dobchy (t1, – 1, t2);

suma (a, t2, a);

n:=stepin(a);

end;

dobutok (c, b, t3);

dobchy (t3, – 1, t3);

suma (t4, t3, c1);

end;

procedure dyfer (a:poli; var b:poli);

{знаходження похiдноi}

var n, i:integer;

begin

n:=stepin(a);

riv (zero, b);

for i:=n downto 1 do

b [i‑1]:=i*a[i];

end;

procedure integ (a:poli; var b:poli);

{знаходження невизначеного iнтеграла}

var n, i:integer;