15 lines
221 B
Text
15 lines
221 B
Text
PROGRAM CATALAN
|
|
|
|
PROCEDURE CATALAN(N->RES)
|
|
RES=1
|
|
FOR I=1 TO N DO
|
|
RES=RES*2*(2*I-1)/(I+1)
|
|
END FOR
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
FOR N=0 TO 15 DO
|
|
CATALAN(N->RES)
|
|
PRINT(N;"=";RES)
|
|
END FOR
|
|
END PROGRAM
|