31 lines
475 B
Plaintext
31 lines
475 B
Plaintext
PRINT "Recursive:"!PRINT
|
|
FOR n = 0 TO 15
|
|
PRINT n,"#######":catrec(n)
|
|
NEXT n
|
|
PRINT!PRINT
|
|
|
|
PRINT "Non-recursive:"!PRINT
|
|
FOR n = 0 TO 15
|
|
PRINT n,"#######":catnonrec(n)
|
|
NEXT n
|
|
|
|
END
|
|
|
|
DEF catrec(x)
|
|
IF x = 0 THEN
|
|
temp = 1
|
|
ELSE
|
|
n = x
|
|
temp = ((2*((2*n)-1))/(n+1))*catrec(n-1)
|
|
END IF
|
|
catrec = temp
|
|
END DEF
|
|
|
|
DEF catnonrec(x)
|
|
temp = 1
|
|
FOR n = 1 TO x
|
|
temp = (2*((2*n)-1))/(n+1)*temp
|
|
NEXT n
|
|
catnonrec = temp
|
|
END DEF
|