Multiplication tables: Difference between revisions
→{{header|PhixI}}
Line 2,559:
</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}}==
<lang PL/I>
| |||