Multiplication tables: Difference between revisions

=={{header|Simula}}==

{{trans|ALGOL W}}

<lang simula>begin

integer i, j;

outtext( " " );

for i := 1 step 1 until 12 do outint( i, 4 );

outimage;

outtext( " +" );

for i := 1 step 1 until 12 do outtext( "----" );

outimage;

for i := 1 step 1 until 12 do

begin

outint( i, 3 );

outtext( "|" );

for j := 1 step 1 until i - 1 do outtext( " " );

for j := i step 1 until 12 do outint( i * j, 4 );

outimage

end;

end</lang>

{{out}}

<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</pre>