Multiplication tables: Difference between revisions
Content added Content deleted
Line 2,559: | Line 2,559: | ||
</code> |
</code> |
||
=={{header|Phix}}== |
|||
{{Trans|Ada}} |
|||
<lang Phix>printf(1," | ") |
|||
for col=1 to 12 do |
|||
printf(1,"%4d",col) |
|||
end for |
|||
printf(1,"\n--+-"&repeat('-',12*4)) |
|||
for row=1 to 12 do |
|||
printf(1,"\n%2d| ",row) |
|||
for col=1 to 12 do |
|||
printf(1,iff(col<row?" ":sprintf("%4d",row*col))) |
|||
end for |
|||
end for</lang> |
|||
{{out}} |
|||
<pre style="font-size: 8px"> |
|||
| 1 2 3 4 5 6 7 8 9 10 11 12 |
|||
--+------------------------------------------------- |
|||
1| 1 2 3 4 5 6 7 8 9 10 11 12 |
|||
2| 4 6 8 10 12 14 16 18 20 22 24 |
|||
3| 9 12 15 18 21 24 27 30 33 36 |
|||
4| 16 20 24 28 32 36 40 44 48 |
|||
5| 25 30 35 40 45 50 55 60 |
|||
6| 36 42 48 54 60 66 72 |
|||
7| 49 56 63 70 77 84 |
|||
8| 64 72 80 88 96 |
|||
9| 81 90 99 108 |
|||
10| 100 110 120 |
|||
11| 121 132 |
|||
12| 144 |
|||
</pre> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |
||
<lang PL/I> |
<lang PL/I> |