HP 39g-Grafenberechner - Handbuch (Seite 170)

Exakte Berechnungen und Mathematik mit HP40G
170 Arithmetische Programme
END:
FREEZE:
ANMERKUNG:
Man kann auch die Funktion der genauen Berechnung POWMOD verwenden
und man schreibt also:
MODSTO(N):
POWMOD(K,N–1) STO P:
anstatt der Instruktionen, die unter @ angeführt sind, man bekommt das
Ergebnis:
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: