Multiplication tables: Difference between revisions

</pre>

=={{header|XPL0}}==

<lang XPL0>include c:\cxpl\codes;

int X, Y;

[Format(4, 0);

Text(0, " |"); for X:= 1 to 12 do RlOut(0, float(X));

CrLf(0);

Text(0, " --+"); for X:= 1 to 12 do Text(0, "----");

CrLf(0);

for Y:= 1 to 12 do

[RlOut(0, float(Y)); ChOut(0, ^|);

for X:= 1 to 12 do

if X>=Y then RlOut(0, float(X*Y)) else Text(0, " . .");

CrLf(0);

];

]</lang>

Output:

<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