Multiplication tables: Difference between revisions
Content added Content deleted
(Added DWScript) |
(Added Delphi example) |
||
Line 609: | Line 609: | ||
11| 121 132 |
11| 121 132 |
||
12| 144</pre> |
12| 144</pre> |
||
=={{header|Delphi}}== |
|||
{{trans|DWScript}} |
|||
<lang delphi>program MultiplicationTables; |
|||
{$APPTYPE CONSOLE} |
|||
uses SysUtils; |
|||
const |
|||
MAX_COUNT = 12; |
|||
var |
|||
lRow, lCol: Integer; |
|||
begin |
|||
Write(' | '); |
|||
for lRow := 1 to MAX_COUNT do |
|||
Write(Format('%4d', [lRow])); |
|||
Writeln(''); |
|||
Writeln('--+-' + StringOfChar('-', MAX_COUNT * 4)); |
|||
for lRow := 1 to MAX_COUNT do |
|||
begin |
|||
Write(Format('%2d', [lRow])); |
|||
Write('| '); |
|||
for lCol := 1 to MAX_COUNT do |
|||
begin |
|||
if lCol < lRow then |
|||
Write(' ') |
|||
else |
|||
Write(Format('%4d', [lRow * lCol])); |
|||
end; |
|||
Writeln; |
|||
end; |
|||
end.</lang> |
|||
=={{header|DWScript}}== |
=={{header|DWScript}}== |