Multiplication tables: Difference between revisions
Content added Content deleted
(Add Seed7 example) |
(Added DWScript) |
||
Line 609:
11| 121 132
12| 144</pre>
=={{header|DWScript}}==
<lang delphi>const size = 12;
var row, col : Integer;
Print(' | ');
for row:=1 to size do
Print(Format('%4d', [row]));
PrintLn('');
PrintLn('--+-'+StringOfChar('-', size*4));
for row:=1 to size do begin
Print(Format('%2d', [row]));
Print('| ');
for col:=1 to size do begin
if col<row then
Print(' ')
else Print(Format('%4d', [row*col]));
end;
PrintLn('');
end;
</lang>
=={{header|E}}==
| |||