124 Chapitre 7 – Programmes d’arithm´etique
7.1.1 Traduction algorithmique
-Version it´erative
Si B 6= 0 on calcule R=A mod B, puis avec B dans le rˆole de A (en
mettant B dansA)etRdans 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 6= 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 6= 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 6= 0 REPEAT
Comentarios a estos manuales