Pascal's triangle: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
No edit summary |
||
Line 341: | Line 341: | ||
1 6 15 20 15 6 1 |
1 6 15 20 15 6 1 |
||
1 7 21 35 35 21 7 1 |
1 7 21 35 35 21 7 1 |
||
</pre> |
|||
=={{header|ALGOL W}}== |
|||
<syntaxhighlight lang="algolw"> |
|||
#include <jambo.h> |
|||
Main |
|||
filas=0, Get arg numeric '2', Move to 'filas' |
|||
i=0, r="" |
|||
Loop if( var 'i' Is less than 'filas' ) |
|||
c=1, j=0 |
|||
Set 'c' To str, Move to 'r' |
|||
Loop if ( var 'j' Is less than 'i' ) |
|||
Set 'i' Minus 'j', Plus one 'j', Div it, Mul by 'c', Move to 'c' |
|||
Cat ( r, Cat ( "\t", Str(c) ) ), Move to 'r' |
|||
++j |
|||
Back |
|||
Printnl 'r' |
|||
++i |
|||
Back |
|||
End |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
$ hopper jm/pascal.jambo 15 |
|||
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 |
|||
1 9 36 84 126 126 84 36 9 1 |
|||
1 10 45 120 210 252 210 120 45 10 1 |
|||
1 11 55 165 330 462 462 330 165 55 11 1 |
|||
1 12 66 220 495 792 924 792 495 220 66 12 1 |
|||
1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1 |
|||
1 14 91 364 1001 2002 3003 3432 3003 2002 1001 364 91 14 1 |
|||
</pre> |
</pre> |
||