[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]

    {
    >  I need to transfer decimal into binary using TURBO PASCAL.
    >  One way to do this is to use the basic algorithm, dividing
    >  by 2 over and over again. if the remainder is zero the
    >  bit is a 0, else the bit is a 1.
    >
    >  However, I was wondering if there is another way to convert
    >  from decimal to binary using PASCAL. Any ideas?

    As an 8-bit (ie. upto 255) example...
    }

      Function dec2bin(b:Byte) : String;
      Var bin : String[8];
          i,a : Byte;
      begin
       a:=2;
       For i:=8 downto 1 do
        begin
         if (b and a)=a then bin[i]:='1'
                        else bin[i]:='0';
         a:=a*2;
        end;
        dec2bin:=bin;
      end;

[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]