HP 39g-Grafenberechner - Handbuch (Seite 169)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 169
8.6.2 Übersetzung (Erläuterung) HP40G
INPUT N;"N";;;1:
RANDSEED TIME:
1-
>I:
1-
>P:
WHILE I < 20 AND P= =1 REPEAT
FLOOR (RANDPM * (N–2))+2–
>K:
N–1-
>M:
‹ Berechnung K der Kraft M mod N in 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 beinhaltet K Potenz M mod N und M=N–1.
I+1 ->I:
END:
ERASE:
IF P = =1 THEN
DISP 3; "PREMIER " N:
ELSE
DISP 3; "NON PREMIER " N: