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

124 Chapitre 7 – Programmes d’arithm´etique
7.1.1 Traduction algorithmique
-Version it´erative
Si B = 0 on calcule R=A mod B, puis avec B dans le rˆ ole de A (en
mettant B dans A ) et R dans le rˆ ole de B ( en mettant R dans B)
on recommence jusqu’` a ce que B=0, le PGCD est alors A.
Fonction PGCD(A,B)
Local R
tant que B = 0 faire
A mod B->R
B->A
R->B
ftantque
r´
esultat A
ffonction
-Version r´ecursive
On ´ecrit simplement la d´efinition r´ecursive vue plus haut.
Fonction PGCD(A,B)
Si B = 0 alors
r´ esultat PGCD(B,A mod B)
sinon
r´
esultat A
fsi
ffonction
7.1.2 Traduction HP40G
-Version it´erative pour deux entiers
On ´ecrit tout d’abord le sous-programme IN qui permet d’entrer deux
nombres A et B :
INPUT A;"A";;;1:
INPUT B;"B";;;1:
ERASE:
puis on ´ecrit le programme PGCD :
RUN IN:
DISP 3;"PGCD "{A,B}:
WHILE B = 0 REPEAT