home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / inttobin / inttobin.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-12-18  |  1.0 KB  |  44 lines
  1. (* ------------------------------------------------- *)
  2. (*                  INTTOBIN.PAS                     *)
  3. (*        (c) 1991 Timo Becker & DMV-Verlag          *)
  4. (*  Funktion: Umwandeln von Integer nach Binärstring *)
  5. (*  Sprache:  Turbo Pascal ab 4.0                    *)
  6. (* ------------------------------------------------- *)
  7. PROGRAM Decimal_to_binary;
  8.  
  9. USES Crt;
  10.  
  11. TYPE
  12.   Str32 = STRING[32];
  13.  
  14. VAR
  15.   Y : LongInt;
  16.  
  17.   FUNCTION InttoBin(X : LongInt) : Str32;
  18.   CONST
  19.     BinLen = 32; { Bits in LongInt }
  20.   VAR
  21.     Erg : Str32;
  22.     i   : BYTE ABSOLUTE Erg;
  23.   BEGIN
  24.     FOR i := BinLen DOWNTO 1 DO BEGIN
  25.       IF Odd(X) THEN Erg[i] := '1'
  26.                 ELSE Erg[i] := '0';
  27.       x := x SHR 1;
  28.     END;
  29.     Erg[0]   := Chr(BinLen);
  30.     InttoBin := Erg;
  31.   END;
  32.  
  33. BEGIN
  34.   ClrScr;
  35.   REPEAT
  36.     Write('Zahl (LongInt) ?: ');
  37.     Readln(Y);
  38.     Writeln(Y:11, ' = ', InttoBin(Y))
  39.   UNTIL FALSE;
  40. END.
  41. (* ------------------------------------------------- *)
  42. (*                Ende von INTTOBIN.PAS              *)
  43.  
  44.