Anonymous user
Pascal's triangle: Difference between revisions
no edit summary
No edit summary |
|||
Line 926:
1> pascal:pascal(5).
[[1,4,6,4,1],[1,3,3,1],[1,2,1],[1,1],[1]]
</pre>
=={{header|ERRE}}==
<lang ERRE>
PROGRAM PASCAL_TRIANGLE
PROCEDURE PASCAL(R%)
LOCAL I%,C%,K%
FOR I%=0 TO R%-1 DO
C%=1
FOR K%=0 TO I% DO
WRITE("###";C%;)
C%=(C%*(I%-K%)) DIV (K%+1)
END FOR
PRINT
END FOR
END PROCEDURE
BEGIN
PASCAL(9)
END PROGRAM
</lang>
Output:
<pre>
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
</pre>
| |||