Advertisement
PROGRAMM
I 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
PRESS
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
Advertisement
