HP 9100A - IMG0014 1

PROGRAMMI G
CALCULATE N FACTORIAL (N!)
N! N
(N-1) (N-2) ... (N-N + 2) (1)
6! (6) (5) (4) (3) (2) (1) 720
0! - 1
00 CLE AR
16-19
0- z
0- y
0- X
PRESS
CONTINUE
o -z
I - y
~ -x
DISPLAf
Ob
YES
01 STOP
NO
0- z
0 - y
N- X
ENTERN-X
02,03
PRE SS
CONTINUE
x r
oa
-z
(N'-1) - y
1 -X
0- z
0- y
1. >:
The IF X == Y is met at step
04 if N == 0; set 0! == 1.
N' is the partial product
calculation. Each
IF X > Y
at step Ob not met de-
velops next partial product.
After 1st pass, N' == N
(N- 1 ). After 2nd pass,
N' -= N (N- 1) (N- 2)
10,11,12
( '\
i
"J(N 1,- Z
N -• y
I X J
CALCULATE
27