Anonymous user
Pascal's triangle: Difference between revisions
→{{header|Liberty BASIC}}: Locomotive BASIC example
m (Alphabetize) |
(→{{header|Liberty BASIC}}: Locomotive BASIC example) |
||
Line 659:
end</lang>
=={{header|Locomotive Basic}}==
<lang basic>10 CLS
20 INPUT "Number of rows? ", rows:GOSUB 40
30 END
40 FOR i=0 TO rows
50 c=1
60 FOR k=0 TO i
70 PRINT USING "####";c;
80 c=c*(i-k)/(k+1)
90 NEXT
100 PRINT
110 NEXT
120 RETURN</lang>
Output:
<pre>
Number of rows? 6
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
</pre>
=={{header|Logo}}==
| |||