Pascal's triangle: Difference between revisions
Content added Content deleted
m (Alphabetize) |
(→{{header|Liberty BASIC}}: Locomotive BASIC example) |
||
| Line 659: | Line 659: | ||
end</lang> |
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}}== |
=={{header|Logo}}== |
||