HP 39g-Grafenberechner - Handbuch (Seite 160)

Exakte Berechnungen und Mathematik mit HP40G
160 Arithmetische Programme
FACT +
{N 1} -> FACT
/wenn/
Ergebnis FACT (Ergebnis)
/Funktion/
8.3.2 Erläuterung HP40G
Man übersetzt den letzten Algorithmus.
Der Rechner HP40G kennt keine Reihe
{}, deshalb, damit man L1 mit einer
leeren Reihe initiieren kann, schreibt man:
CLEAR L1.
Hier ist das Programm FACTPREM:
INPUT N
;"N";;;1:
ERASE:
0 -> K:
CLEAR L1:
WHILE N MOD 2 == 0 REPEAT
1+K -> K:
N/2 ->N:
END:
IF K
¹ 0 THEN
{2, K} -> L1:
END:
3->D:
WHILE D*D
£ N REPEAT
0 -> K:
WHILE N MOD D == REPEAT
K+1 -> K:
N/D -> N: