Multiplication tables: Difference between revisions
Content added Content deleted
(Add Seed7 example) |
(Added DWScript) |
||
| Line 609: | Line 609: | ||
11| 121 132 |
11| 121 132 |
||
12| 144</pre> |
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}}== |
=={{header|E}}== |
||