HP Calculatrice graphique HP 39g Manuel d'utilisation
Page 141
Advertising
M´ethode probabiliste de Mr Rabin
141
Remarque
:
On peut aussi utiliser la fonction de calcul formel POWMOD et on ´ecrit
alors :
MODSTO(N):
POWMOD(K,N-1) STO
P:
`
a la place des instructions comprises entre les @ on obtient :
PROMPT N:
RANDSEED TIME:
1->I:
1->P:
WHILE I < 20 AND P==1 REPEAT
FLOOR( RANDOM * (N-2))+2->K:
MODSTO(N):
POWMOD(K,N-1) STO$\triangleright$ P:
I+1 ->I:
END:
ERASE:
IF P==1 THEN
DISP 3;"PREMIER " N:
ELSE
DISP 3;"NON PREMIER " N:
END:
FREEZE:
Advertising