Multiplication tables: Difference between revisions
Add Draco
(→{{header|ASIC}}: Added) |
Not a robot (talk | contribs) (Add Draco) |
||
Line 2,259:
end;
end.</lang>
=={{header|Draco}}==
<lang draco>/* Print N-by-N multiplication table */
proc nonrec multab(byte n) void:
byte i,j;
/* write header */
write(" |");
for i from 1 upto n do write(i:4) od;
writeln();
write("----+");
for i from 1 upto n do write("----") od;
writeln();
/* write lines */
for i from 1 upto n do
write(i:4, "|");
for j from 1 upto n do
if i <= j then write(i*j:4)
else write(" ")
fi
od;
writeln()
od
corp
/* Print 12-by-12 multiplication table */
proc nonrec main() void: multab(12) corp</lang>
{{out}}
<pre> | 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|DWScript}}==
| |||