home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / BOOLMATH.MOD < prev    next >
Text File  |  1989-01-18  |  2KB  |  49 lines

  1.                                          (* Chapter 3 - Program 6 *)
  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.    WillIt := IsIt & What;        (* Alternate form of AND       *)
  36.    WillIt := IsIt ~ What;        (* Alternate form of OR        *)
  37.  
  38. END BoolMath.
  39.  
  40.  
  41.  
  42.  
  43. (* Result of execution
  44.  
  45. (There is no output from this program)
  46.  
  47. *)
  48.  
  49.