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

Le PGCD et l’algorithme d’Euclide 125
A MOD B ->R:
B ->A:
R ->B:
END:
DISP 4;"PGCD "A:
FREEZE:
-Version r´ecursive pour deux entiers A et B
Avec la HP40G on ne peut pas ´ecrire des programmes r´ecursifs...mais
on peut ´ecrire le programme PGCDR:
DISP 3;"PGCD "{A,B}:
FREEZE:
IF B = 0 THEN
A MOD B ->R:
B ->A:
R ->B:
PGCDR:
ELSE
DISP 3;"PGCD "A:
FREEZE:
END:
On stocke tout d’abord les valeurs dans A et B.
Le programme PGCDR affiche le PGCD qu’il est en train de calculer.
L’appel r´ecursif PGCDR renvoie au programme PGCDR qu’il faut
faire ex´ecuter en appuyant sur RUN du bandeau.
Le programme PGCDR affiche ainsi les PGCD interm´ediaires cal-
cul´es.
On peut aussi remplacer PGCDR dans le programme pr´ec´edent par RUN
PGCDR, pour ne pas avoir `
a appuyer sur RUN du bandeau, et supprimer
les affichages interm´ediaires, pour utiliser ce programme dans un pro-
gramme effectuant les entr´ees et les sorties :
le programme r´ecursif PGCDR devient le programme r´ecursif PR :
IF B = 0 THEN
A MOD B ->R:
B ->A:
R ->B:
RUN PR:
END:
On ins`ere le programme PR dans un programme effectuant les entr´ees
et les sorties :