home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / BINARY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-14  |  1.3 KB  |  43 lines
  1. {--------------------------------------------------------------}
  2. {                           BINARY                             }
  3. {                                                              }
  4. {                Bit test demonstration program                }
  5. {                                                              }
  6. {                             by Jeff Duntemann                }
  7. {                             Turbo Pascal V5.0                }
  8. {                             Last update 5/22/88              }
  9. {                                                              }
  10. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  11. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  12. {--------------------------------------------------------------}
  13.  
  14. PROGRAM BinaryDemo;
  15.  
  16. VAR 
  17.   I,J : Integer;
  18.  
  19.  
  20. FUNCTION TestBit(VAR Target; BitNum : Integer) : Boolean;
  21.  
  22. VAR 
  23.   Subject : Integer ABSOLUTE Target;
  24.   Dummy   : Integer;
  25.  
  26. BEGIN
  27.   Dummy := Subject;
  28.   Dummy := Dummy SHR BitNum;
  29.   IF Odd(Dummy) THEN TestBit := True
  30.     ELSE TestBit := False
  31. END;
  32.  
  33.  
  34. BEGIN
  35.   REPEAT
  36.     Write('>>Enter an integer (0 to exit): ');
  37.     Readln(I);
  38.     FOR J := 15 DOWNTO 0 DO
  39.       IF TestBit(I,J) THEN Write('1') ELSE Write('0');
  40.     Writeln; Writeln
  41.   UNTIL I = 0
  42. END.
  43.