home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / intlogdm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  898 b   |  26 lines
  1. (*------------------------------------------------------------------------*)
  2.  
  3. PROGRAM INTLogiktest;   (* Demoprogramm fuer das INCLUDE-Modul "INTLOGIK" *)
  4.  
  5. VAR  i1, i2: INTEGER;
  6.  
  7. (*$I INTLOGIK.PAS *)      (* INCLUDE-Modul benutzen *)
  8.  
  9. BEGIN
  10.   REPEAT
  11.     WriteLn('(Ende durch Eingabe zweier Nullen )');
  12.     WriteLn;  WriteLn;  WriteLn;
  13.     Write('INTEGER-Operand Nr.1 (i1) : ');  ReadLn(i1);
  14.     Write('INTEGER-Operand Nr.2 (i2) : ');  ReadLn(i2);
  15.     WriteLn;
  16.     WriteLn('i1 AND i2  =  ', int_AND(i1, i2));
  17.     WriteLn('i1 OR  i2  =  ', int_OR (i1, i2));
  18.     WriteLn('i1 XOR i2  =  ', int_XOR(i1, i2));
  19.     WriteLn('i1 EQV i2  =  ', int_EQV(i1, i2));
  20.     WriteLn('i1 IMP i2  =  ', int_IMP(i1, i2));
  21.     WriteLn;
  22.     WriteLn('NOT i1  =  ', int_NOT(i1));
  23.     Write  ('NOT i2  =  ', int_NOT(i2), ' ');
  24.   UNTIL (i1 = 0) AND (i2 = 0)
  25. END.
  26.