HP 39g-Grafenberechner - Handbuch (Seite 163)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 163
/solange/
Ergebnis PUI
/Funktion/
Man kann bemerken, daß, wenn P ungerade ist, dann ist P–1 gerade.
Man kann also folgendes schreiben:
Funktion puismod (A, P, N)
lokal PUI
1-
>PUI
solange P
>0 durchführen
wenn P mod 2=1 dann
A*PUI mos N-
>PUI
P-1-
>P
/wenn/
P/2-
>P
A*A mod N-
>A
/solange/
Ergebnis PUI
/Funktion/
8.4.2 Erläuterung HP4OG
Die Berechnung A
p
mod N wird im Programm der
Wahrscheinlichkeitsmethode des Herrn Rabin benutzt. Wir kommen also zu
diesem Unterprogramm, das eine Erläuterung gibt, zurück (siehe 7.6).