Object-oriented Software in Ada 95

Arrays 113
8.4.5 Putting it all together
When compiled and run, a possible interaction between two players could be as follows:
X’s first move O’s first move X’s second move O’s second move
X | |
---------
| |
---------
| |
X | |
---------
| |
---------
| O |
X | | X
---------
| |
---------
| O |
X | O | X
---------
| |
---------
| O |
X’s third move O’s third move X’s fourth move
X | O | X
---------
| X |
---------
| O |
X | O | X
---------
| X |
---------
O | O |
X | O | X
---------
| X |
---------
O | O | X
As can be seen
to go first is a
clear advantage.
8.5 Multidimensional arrays
Arrays can have any number of dimensions. For example, the noughts and crosses board could have been
represented by a two-dimensional array as follows:
Size_TTT : constant := 3;
subtype Board_Index is Integer range 1 .. Size_TTT;
type Board_Array is
array( Board_Index, Board_Index ) of Character;
type Board is record
Sqrs : Board_Array := ( others => (others => ' ') );
end record;
The: Board;
Note:
The two-dimensional initialization of the board to spaces is as follows:
sqrs : Board_grid:=( others => (others => ' ') );
This type of initialization is explained in Section 8.6 Initializing an array.
With this representation of the board individual elements are accessed as follows:
The.Sqrs(1,2) := 'X';
The.Sqrs(2,3) := 'X';
The.Sqrs(3,2) := 'X';
© M A Smith - May not be reproduced without permission