Multiplication tables: Difference between revisions
Content added Content deleted
m (→JS ES6) |
|||
Line 2,318: | Line 2,318: | ||
11| 121 132 |
11| 121 132 |
||
12| 144</pre> |
12| 144</pre> |
||
=={{header|GW-BASIC}}== |
|||
{{trans|Modula-2}} |
|||
{{works with|PC-BASIC|any}} |
|||
<lang qbasic> |
|||
10 ' Multiplication Tables |
|||
20 LET N% = 12 |
|||
30 FOR J% = 1 TO N% - 1 |
|||
40 PRINT USING "###"; J%; |
|||
50 PRINT " "; |
|||
60 NEXT J% |
|||
70 PRINT USING "###"; N% |
|||
80 FOR J% = 0 TO N% - 1 |
|||
90 PRINT "----"; |
|||
100 NEXT J% |
|||
110 PRINT "+" |
|||
120 FOR I% = 1 TO N% |
|||
130 FOR J% = 1 TO N% |
|||
140 IF J% < I% THEN PRINT " "; ELSE PRINT USING "###"; I% * J%;: PRINT " "; |
|||
150 NEXT J% |
|||
160 PRINT "| "; USING "##"; I% |
|||
170 NEXT I% |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 2 3 4 5 6 7 8 9 10 11 12 |
|||
------------------------------------------------+ |
|||
1 2 3 4 5 6 7 8 9 10 11 12 | 1 |
|||
4 6 8 10 12 14 16 18 20 22 24 | 2 |
|||
9 12 15 18 21 24 27 30 33 36 | 3 |
|||
16 20 24 28 32 36 40 44 48 | 4 |
|||
25 30 35 40 45 50 55 60 | 5 |
|||
36 42 48 54 60 66 72 | 6 |
|||
49 56 63 70 77 84 | 7 |
|||
64 72 80 88 96 | 8 |
|||
81 90 99 108 | 9 |
|||
100 110 120 | 10 |
|||
121 132 | 11 |
|||
144 | 12 |
|||
</pre> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |