HP 40G Manual Del Usuario página 165

M – 1 -> M:
END:
END:
@ P contiene Kpotencia M mod N y M=N-1.
I+1 ->I:
END:
ERASE:
IF P = =1 THEN
DISP 3; "PREMIER " N:
ELSE
DISP 3; "NON PREMIER " N:
END:
FREEZE:
NOTA:
También se puede utilizar la función de cálculo simbólico POWMOD entonces
escribiremos:
MODSTO(N):
POWMOD(K,N-1) STO
en lugar de la instrucciones comprendidas entre @ obtendremos:
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:
Programas de Aritmetica
Calculo Simbólico y Matemático con la HP 40G
P:
165