
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:
Comments to this Manuals