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

130 Chapitre 7 – Programmes d’arithm´etique
7.2.5 Traduction HP40G
-Version it´erative avec les listes
On utilise ici aussi le programme IN qui permet de rentrer deux
entiers A et B :
INPUT A;"A";;;1:
INPUT B;"B";;;1:
ERASE:
Puis on tape le programme BEZOUT :
RUN IN:
DISP 3;"BEZOUT "{A,B}:
{1,0,A} ->L1:
{0,1,B} ->L2:
WHILE L2(3) = 0 REPEAT
L1-L2*FLOOR(L1(3)/L2(3)) ->L3:
L2 ->L1:
L3 ->L2:
END:
DISP 4;"U V PGCD "L1:
FREEZE:
-Version r´ecursive sans les listes
On ´ecrit le programme BEZOUR, grˆ
ace aux commandes ( Merci Bernard!!!):
PUSH (PUSH(A) pour mettre le contenu de A sur une pile)
et POP (pour r´
ecup´erer les valeurs mises sur la pile)
PROGRAM BEZOUR
IF B = 0 THEN
PUSH (FLOOR(A/B)):
A MOD B->T:
B->A:
T->B:
RUN BESOUR:
U-V*POP->T:
V->U:
T->V:
ELSE
1->U:
0->V:
A->D:
END: