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

{пiднесення многочлена до степеня}

var i:integer;

begin

riv (od, c);

for i:=1 to m do

dobutok (c, a, c);

end;

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

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

var i:integer;

t1, t2:poli;

begin

riv (zero, c);

for i:=0 to stepin(b) do

begin

riv (zero, t2);

riv (zero, t1);

mpoli (a, i, t1);

dobchy (t1, b[i], t2);

suma (c, t2, c);

end;

end;

procedure dilen (a, b:poli; var c, c1:poli);

var n, m, i:integer;

t1, t2, t3, t4, t5:poli;

{дiлення многочленiв з остачею}

begin

riv (a, t4);

n:=stepin(a);