HP 39g-Grafenberechner - Handbuch (Seite 161)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 161
END:
IF K
¹ 0 THEN
CONCAT (L1,
{D, K} -> L1:
END:
2+D -
> D:
END:
IF K
¹ 1 THEN
CONCAT (L1,
{N,1} -> L1:
END:
DISP 3
; "FACT " L1:
FREEZE:
8.4 Berechnung A
P
mod N
8.4.1 Algorithmische Erläuterung
Der erste – ursprüngliche Algorithmus
Es werden zwei lokale Variablen PUIS und I benutzt.
Ein iteratives Programm wird so durchgeführt, daß in jeder Etappe PUIS A
I
(mos N) darstellt.
Funktion puismod (A, P, N)
lokal PUIS, I
1 -
> PUIS
für I von 1 und P durchführen
A*PUIS mod N -
> PUIS
/für/
Ergebnis PUIS
/Funktion/
Zweiter Algorithmus