[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]