HP 9100A - IMG_0014

P OG n MING
CALCULATE N FACTORIAL (N!)
STEP KEY
X y
z
F
e
00
CLEAR
0
0
0 0
0
1
STOP
N ENTER
N ~ X
2
X-+1 I
3
f
N
4
IF X=Y
5 CONTINUE
6 1 1
7
"'
N N
8
"'
N
N
N
9
1
1
a
-
1
N
'-1
N'
I I
b
IFX>Y
c
1
d
6
10
R OLL ~
N '- 1
N'
1
1
X
N'(N'-1)
2
ROll "'
1
N'-1
N' (N' -1)
3 GO TO ( ) ( )
4
0
5 a
6
0 0
N '-1
N!
7
ROLL ~
N '- 1
N!
0
8
f
N
N!
0
9
END
N
N!
0
· DISPLAY ·
A blank regis ter indicates the contents of the register are
unc
ha ng ed fr om the previous s tep .