如何将10进制的整数转换为相应二进制的数（用字符串表示）(50分)

G

Grape

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #1

多谢！

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #2

function inttobin(n:integer):string
var t:integer;
begin
t := abs;
result := '';
while t <> 0 do
begin
result := inttostr(t mod 2) + Result;
t := t div 2;
end;
end;

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #3

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do
begin
if Value and (1 shl i)<>0 then
Result:=Result+'1';
else
Result:=Result+'0';
end;
end;

 

G

Grape

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #4

多人接受答案了。