Multiplication de deux polynômes

Si

et

alors

où

procedure mulpoly(P, Q : polynome; var R : polynome);
   var i, j : integer;

   begin
        R.degre:=P.degre+Q.degre;
        for i:=0 to R.degre do
            R.coef[i]:=0;

        for i:=0 to P.degre do 
           for j:=0 to Q.degre do
               R.coef[i+j]:=R.coef[i+j]+P.coef[i]*Q.coef[j];

   end;