home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / arrayops.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.2 KB  |  57 lines
  1.                                        -- Chapter 19 - Program 3
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure ArrayOps is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    type ARY_INT is array(1..6) of INTEGER;
  11.    type ARY_BOOL is array(4..7) of BOOLEAN;
  12.  
  13.    Do_They_Compare          : BOOLEAN;
  14.    Crowd, Group1, Group2    : ARY_INT;
  15.    Result, Answer1, Answer2 : ARY_BOOL;
  16.  
  17. begin
  18.  
  19.    Group1 := (12, 17, -1, 3, -100, 5);
  20.    Group2 := (13, -2, 22, 1, 1242, -12);
  21.  
  22.    Do_They_Compare := Group1 <= Group2;
  23.    Do_They_Compare := Group1 > Group2;
  24.  
  25.    if Group1 = Group2 then
  26.       Put("The arrays are equal."); New_Line;
  27.    end if;
  28.  
  29. -- Crowd := Group1 + Group2;
  30. -- Crowd := Group1 - Group2;
  31. -- Crowd := Group1 * Group2;
  32. -- Crowd := Group1 / Group2;
  33. -- Crowd := Group1 mod Group2;
  34. -- Crowd := Group1 rem Group2;
  35.  
  36.    Answer1 := (TRUE, FALSE, TRUE, FALSE);
  37.    Answer2 := (TRUE, FALSE, FALSE, TRUE);
  38.  
  39.    Result := Answer1 and Answer2;
  40.    Result := not Answer2;
  41.    Result := Answer1 or Answer2;
  42.    Result := Answer1 xor Answer2;
  43.  
  44.    if Answer1 /= Answer2 then
  45.       Put("The BOOLEAN arrays are not equal."); New_Line;
  46.    end if;
  47.  
  48. end ArrayOps;
  49.  
  50.  
  51.  
  52.  
  53. -- Result of execution
  54.  
  55. -- The BOOLEAN arrays are not equal.
  56.  
  57.