Multiplication tables: Difference between revisions
Content added Content deleted
(→{{header|C}}: cleanup) |
(Add Seed7 example) |
||
Line 1,856: | Line 1,856: | ||
121 132 |
121 132 |
||
144 |
144 |
||
</pre> |
|||
=={{header|Seed7}}== |
|||
<lang seed7>$ include "seed7_05.s7i"; |
|||
const proc: main is func |
|||
local |
|||
const integer: n is 12; |
|||
var integer: i is 0; |
|||
var integer: j is 0; |
|||
begin |
|||
for j range 1 to n do |
|||
write(j lpad 3 <& " "); |
|||
end for; |
|||
writeln; |
|||
writeln("-" mult 4 * n); |
|||
for i range 1 to n do |
|||
for j range 1 to n do |
|||
if j < i then |
|||
write(" "); |
|||
else |
|||
write(i * j lpad 3 <& " "); |
|||
end if; |
|||
end for; |
|||
writeln("|" <& i lpad 3); |
|||
end for; |
|||
end func;</lang> |
|||
Output: |
|||
<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> |
</pre> |
||