HP 39g Graphing Calculator Bedienungsanleitung PDF herunterladen (Seite 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) 6= 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 6= 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:

1 2 ... 125 126 127 128 129 130 131 132 133 134 135 ... 154 155

Keine Kommentare

HP 39g Graphing Calculator Bedienungsanleitung Seite 130