Question 3 : écrire une procédure donnant la différence P1-P2 de deux polynômes P1 et P2, ces deux polynômes pouvant être de degrés différents.
difference:=proc(P1::Array,P2::Array)::Array;
local t1::integer,t2::integer,t3::integer,k::integer;
global P3;
t1:=ArrayNumElems(P1);t2:=ArrayNumElems(P2);t3:=ma
x(t1,t2);
P3:=Array(1..t3);
for k from 1 to min(t1,t2) do
P3[k]:=P1[k]-P2[k];
end do;
if t1=t3 then
for k from t2+1 to t3 do
P3[k]:=P1[k];
end do;
else
for k from t1+1 to t3 do
P3[k]:=-P2[k];
end do;
end if;
return P3;
end proc;
Je suis pas convaincu que ce soit la meilleure solution mais bon, ça marche relativement bien 