Pascal's triangle: Difference between revisions
Content added Content deleted
(Add ZX Spectrum Basic version.) |
(Add Commodore Basic version.) |
||
Line 1,243: | Line 1,243: | ||
1 6 15 20 15 6 1 |
1 6 15 20 15 6 1 |
||
</pre> |
</pre> |
||
=={{header|Commodore BASIC}}== |
|||
<lang BASIC>10 INPUT "HOW MANY";N |
|||
20 IF N<1 THEN END |
|||
30 DIM C(N) |
|||
40 DIM D(N) |
|||
50 LET C(1)=1 |
|||
60 LET D(1)=1 |
|||
70 FOR J=1 TO N |
|||
80 FOR I=1 TO N-J+1 |
|||
90 PRINT " "; |
|||
100 NEXT I |
|||
110 FOR I=1 TO J |
|||
120 PRINT C(I)" "; |
|||
130 NEXT I |
|||
140 PRINT |
|||
150 IF J=N THEN END |
|||
160 C(J+1)=1 |
|||
170 D(J+1)=1 |
|||
180 FOR I=1 TO J-1 |
|||
190 D(I+1)=C(I)+C(I+1) |
|||
200 NEXT I |
|||
210 FOR I=1 TO J |
|||
220 C(I)=D(I) |
|||
230 NEXT I |
|||
240 NEXT J</lang> |
|||
Output: |
|||
<lang>RUN |
|||
HOW MANY? 8 |
|||
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 |
|||
READY. |
|||
</lang> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |