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