home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
intlogdm.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-05-18
|
898b
|
26 lines
(*------------------------------------------------------------------------*)
PROGRAM INTLogiktest; (* Demoprogramm fuer das INCLUDE-Modul "INTLOGIK" *)
VAR i1, i2: INTEGER;
(*$I INTLOGIK.PAS *) (* INCLUDE-Modul benutzen *)
BEGIN
REPEAT
WriteLn('(Ende durch Eingabe zweier Nullen )');
WriteLn; WriteLn; WriteLn;
Write('INTEGER-Operand Nr.1 (i1) : '); ReadLn(i1);
Write('INTEGER-Operand Nr.2 (i2) : '); ReadLn(i2);
WriteLn;
WriteLn('i1 AND i2 = ', int_AND(i1, i2));
WriteLn('i1 OR i2 = ', int_OR (i1, i2));
WriteLn('i1 XOR i2 = ', int_XOR(i1, i2));
WriteLn('i1 EQV i2 = ', int_EQV(i1, i2));
WriteLn('i1 IMP i2 = ', int_IMP(i1, i2));
WriteLn;
WriteLn('NOT i1 = ', int_NOT(i1));
Write ('NOT i2 = ', int_NOT(i2), ' ');
UNTIL (i1 = 0) AND (i2 = 0)
END.