HP Calculatrice graphique HP 39g - Manuel (Page 126)

126 Chapitre 7 – Programmes d’arithm´etique
PROMPT A:
PROMPT B:
RUN PR:
ERASE:
MSGBOX A:
-Version it´erative pour deux complexes
Si on utilise la fonction du calcul symbolique IREMAINDER `
a la place
de MOD dans les programmes pr´ec´edents, PGCD (ou PR) peut alors avoir
comme param`etres des entiers de Gauss `
a condition de remplacer les
noms des variables A, B, R par Z1, Z2, Z3 et de changer le test
d’arrˆet.
Voici la version it´erative :
PROMPT Z1:
PROMPT Z2:
DISP 3;"PGCD "{Z1,Z2}:
WHILE ABS(Z2) = 0 REPEAT
XNUM(IREMAINDER(XQ(Z1),XQ(Z2)) ->Z3:
Z2 ->Z1:
Z3 ->Z2:
END:
DISP 4;"PGCD "Z1:
FREEZE:
-Version it´erative pour deux polynˆ omes
Les variables E1, E2,... permettent de stocker des expressions,
c’est ce qu’il nous faut pour y mettre des polynˆ
omes !!! Si on utilise
la fonction du calcul symbolique REMAINDER ` a la place de MOD dans
les programmes pr´ec´edents, PGCD (ou PR) peut alors avoir comme
param`etres des polynˆ
omes ` a condition de remplacer les noms des
variables A, B, R par E1, E2, E3 et de changer le test d’arrˆet.
PROMPT E1:
PROMPT E2:
WHILE DEGREE(E2) = -1 REPEAT
REMAINDER(E1,E2) ->E3:
E2 ->E1:
E3 ->E2:
END:
DISP 4;"PGCD "E1:
FREEZE: