Multiplication tables: Difference between revisions
Content deleted Content added
Ada solution added |
m Fixed language sections order |
||
Line 4:
Only print the top half triangle of products.
=={{header|Ada}}==▼
<lang Ada>▼
with Ada.Text_IO; use Ada.Text_IO;▼
with Ada.Strings.Fixed; use Ada.Strings.Fixed;▼
procedure Multiplication_Table is▼
package IO is new Integer_IO (Integer);▼
use IO;▼
begin▼
Put (" | ");▼
for Row in 1..12 loop▼
Put (Row, Width => 4);▼
end loop;▼
New_Line;▼
Put_Line ("--+-" & 12 * 4 * '-');▼
for Row in 1..12 loop▼
Put (Row, Width => 2);▼
Put ("| ");▼
for Column in 1..12 loop▼
if Column < Row then▼
Put (" ");▼
else▼
Put (Row * Column, Width => 4);▼
end if;▼
end loop;▼
New_Line;▼
end loop;▼
end Multiplication_Table;▼
</lang>▼
<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>▼
=={{header|ALGOL 68}}==
{{works with|ALGOL 68|Standard - no extensions to language used}}
Line 47 ⟶ 91:
| 12| | | | | | | | | | | |144|
+---+---+---+---+---+---+---+---+---+---+---+---+---+
▲</pre>
▲=={{header|Ada}}==
▲<lang Ada>
▲with Ada.Text_IO; use Ada.Text_IO;
▲with Ada.Strings.Fixed; use Ada.Strings.Fixed;
▲procedure Multiplication_Table is
▲ package IO is new Integer_IO (Integer);
▲ use IO;
▲begin
▲ Put (" | ");
▲ for Row in 1..12 loop
▲ Put (Row, Width => 4);
▲ end loop;
▲ New_Line;
▲ Put_Line ("--+-" & 12 * 4 * '-');
▲ for Row in 1..12 loop
▲ Put (Row, Width => 2);
▲ Put ("| ");
▲ for Column in 1..12 loop
▲ if Column < Row then
▲ Put (" ");
▲ else
▲ Put (Row * Column, Width => 4);
▲ end if;
▲ end loop;
▲ New_Line;
▲ end loop;
▲end Multiplication_Table;
▲</lang>
▲<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>
=={{header|AppleScript}}==
|