Anonymous user
Pascal's triangle: Difference between revisions
Added BBC BASIC
(Undo revision 106738 by 168.9.116.17 (talk) not sure what that was...) |
(Added BBC BASIC) |
||
Line 158:
PRINT
NEXT row</lang>
=={{header|BBC BASIC}}==
<lang bbcbasic> nrows% = 10
colwidth% = 4
@% = colwidth% : REM Set column width
FOR row% = 1 TO nrows%
PRINT SPC(colwidth%*(nrows% - row%)/2);
acc% = 1
FOR element% = 1 TO row%
PRINT acc%;
acc% *= (row% - element%) / element%
NEXT
PRINT
NEXT row%</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 0
1 8 28 56 70 56 28 7 0
1 9 36 84 126 126 84 36 9 1</pre>
=={{header|C}}==
| |||