26 lines
356 B
Text
26 lines
356 B
Text
#MAXNUM = 15
|
|
Declare catalan()
|
|
|
|
If OpenConsole("Catalan numbers")
|
|
catalan()
|
|
Input()
|
|
End 0
|
|
Else
|
|
End -1
|
|
EndIf
|
|
|
|
Procedure catalan()
|
|
Define k.i, n.i, num.d, den.d, cat.d
|
|
|
|
Print("1 ")
|
|
|
|
For n=2 To #MAXNUM
|
|
num=1 : den =1
|
|
For k=2 To n
|
|
num * (n+k)
|
|
den * k
|
|
cat = num / den
|
|
Next
|
|
Print(Str(cat)+" ")
|
|
Next
|
|
EndProcedure
|