Catalan numbers: Difference between revisions

=={{header|PL/0}}==

{{trans|Tiny BASIC}}

Integers are limited to 32767 so only the first ten Catalan numbers can be represented. To avoid internal overflow, the program subtracts something clever from <code>c</code> and then adds it back at the end.

<syntaxhighlight lang="pascal">

var n, c, i;

begin

n := 0; c := 1;

! c;

while n <= 9 do

begin

n := n + 1;

i := 0;

while c > 0 do

begin

c := c - (n + 1);

i := i + 1

end;

c := 2 * (2 * n - 1) * c / (n + 1);

c := c + 2 * i * (2 * n - 1);

! c

end;

end.

</syntaxhighlight>

{{out}}

<pre>

1

1

2

5

14

42

132

429

1430

4862

16796

</pre>