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

140 Chapitre 7 – Programmes d’arithm´etique
1->P
Tant que P = 1 et I < 20 faire
hasard(N-2)+2->K
puismod(K, N-1, N)->P
I+1->I
ftantque
Si P =1 alors
resultat VRAI
sinon
resultat FAUX
fsi
ffonction
7.6.2 Traduction HP40G
PROMPT N:
RANDSEED TIME:
1->I:
1->P:
WHILE I < 20 AND P==1 REPEAT
FLOOR( RANDOM * (N-2))+2->K:
N-1->M:
@ Calcul de K puissance M mod N dans P.
1->P:
WHILE
0 < M REPEAT
IF M MOD 2 == 0 THEN
M / 2 -> M :
(K * K)
MOD N ->K :
ELSE
K*P MOD N -> P:
M - 1 -> M:
END:
END:
@ P contient K puissance M mod N et M=N-1.
I+1 ->I:
END:
ERASE:
IF P==1 THEN
DISP 3;"PREMIER " N:
ELSE
DISP 3;"NON PREMIER " N:
END:
FREEZE: