home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / multary1.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.1 KB  |  52 lines
  1.                                        -- Chapter 10 - Program 3
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure MultAry1 is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    type MATRIX is array(INTEGER range 1..3,
  11.                         INTEGER range 1..4) of INTEGER;
  12.  
  13.    Square_Board  : MATRIX;
  14.    Checker_Board : MATRIX;
  15.    Chess_Board   : array(INTEGER range 1..3,
  16.                          INTEGER range 1..4) of INTEGER;
  17.    Across, Over  : INTEGER;
  18.  
  19. begin
  20.  
  21.    for Across in 1..3 loop
  22.       for Over in 1..4 loop
  23.          Square_Board(Across,Over) := Across * Over;
  24.          Chess_Board(Across,Over) := 0;
  25.       end loop;
  26.    end loop;
  27.  
  28.    Checker_Board := Square_Board;
  29.  
  30.    Checker_Board(2,3) := 2;
  31.    Checker_Board(Checker_Board(2,3),4) := 17;
  32.    Checker_Board(3,3) := Chess_Board(3,3);
  33.  
  34.    for Across in 1..3 loop
  35.       for Over in 1..4 loop
  36.          Put(Checker_Board(Across,Over));
  37.       end loop;
  38.       New_Line;
  39.    end loop;
  40.  
  41. end MultAry1;
  42.  
  43.  
  44.  
  45.  
  46. -- Result of execution
  47.  
  48. --      1     2     3     4
  49. --      2     4     2    17
  50. --      3     6     0    12
  51.  
  52.