Contributor: SWAG SUPPORT TEAM { > 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;