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

134 Chapitre 7 – Programmes d’arithm´etique
0 ->K:
CLEAR L1:
WHILE N MOD 2 == 0 REPEAT
1+K -> K:
N/2 -> N:
END:
IF K = 0 THEN
{2,K} ->L1:
END:
3 ->D:
WHILE D*D N REPEAT
0 -> K:
WHILE N MOD D == 0 REPEAT
K+1 -> K:
N/D -> N:
END:
IF K = 0 THEN
CONCAT (L1,{D,K}) -> L1:
END:
2+D -> D:
END:
IF N = 1 THEN
CONCAT (L1, {N,1}) -> L1:
END:
DISP 3; "FACT" L1:
FREEZE:
7.4 Calcul de A
P
mod N
7.4.1 Traduction Algorithmique
-Premier algorithme
On utilise deux variables locales PUIS et I.
On fait un programme it´
eratif de fa¸con qu’` a chaque ´etape PUIS
repr´esente A I (mod N ).