12 lines
337 B
Text
12 lines
337 B
Text
NORMAL MODE IS INTEGER
|
|
DIMENSION C(15)
|
|
|
|
C(0) = 1
|
|
THROUGH CALC, FOR N=1, 1, N.GE.15
|
|
CALC C(N) = ((4*N-2)*C(N-1))/(N+1)
|
|
|
|
THROUGH SHOW, FOR N=0, 1, N.GE.15
|
|
SHOW PRINT FORMAT CFMT,N,C(N)
|
|
|
|
VECTOR VALUES CFMT=$2HC(,I2,4H) = ,I7*$
|
|
END OF PROGRAM
|