Anonymous user
Multiplication tables: Difference between revisions
Added Delphi example
(Added DWScript) |
(Added Delphi example) |
||
Line 609:
11| 121 132
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}}==
| |||