home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / BOOLMATH.MOD < prev    next >
Encoding:
Text File  |  1987-02-09  |  1.4 KB  |  36 lines
  1.                                          (* Chapter 3 - Program 5 *)
  2. MODULE BoolMath;
  3.  
  4. VAR IsIt, WillIt, What : BOOLEAN;
  5.     A, B, C            : INTEGER;
  6.  
  7. BEGIN
  8.  
  9.    A := 22;        (* Assign some values to work with *)
  10.    B := 12;
  11.    C := -12;
  12.  
  13.    IsIt := A = 22;     (* TRUE    - equal to                    *)
  14.    IsIt := A = 23;     (* FALSE   - equal to                    *)
  15.    WillIt := A > B;    (* TRUE    - greater than                *)
  16.    WillIt := A < B;    (* FALSE   - less than                   *)
  17.    What := WillIt;     (* FALSE   - assignment                  *)
  18.    IsIt := B <= 12;    (* TRUE    - less than or equal          *)
  19.    IsIt := B >= 4;     (* TRUE    - greater than or equal       *)
  20.    IsIt := A # B;      (* FALSE   - not equal                   *)
  21.    IsIt := A <> B;     (* TRUE    - not equal                   *)
  22.  
  23.    IsIt := TRUE;
  24.    What := FALSE;
  25.    WillIt := IsIt AND What;      (* FALSE because What is FALSE *)
  26.    WillIt := IsIt AND NOT What;  (* TRUE                        *)
  27.    WillIt := IsIt OR What;       (* TRUE because one is TRUE    *)
  28.    WillIt := NOT IsIt OR What;   (* FALSE                       *)
  29.    IsIt := (A = B) OR (B = C) OR (A = 22);
  30.    IsIt := ((A < B) AND (B < C)) OR NOT (B > C);
  31.  
  32.    (* We have not studied a way to print out representations of *)
  33.    (* BOOLEAN variables so it will have to wait.                *)
  34.  
  35. END BoolMath.
  36.