如何将十进制整型转换成二进制形式的字符串(50分)

delphi_jzy · 2002-04-24

如何将十进制整型转换成二进制形式的字符串，例如：edit1框中输入一个十进制整数，按按钮
在edit2中得到此数的二进制形式的字符串。谢谢！
顺便请问四舍五入的函数是啥？

少爷的拐杖 · 2002-04-25

参见旧贴id：
143617
719568

ugvanxk · 2002-04-25

应该这样访问
http://www.delphibbs.com/delphibbs/dispq.asp?lid=143617

output · 2002-04-25

program exer(input,output);
var
i,n:integer;
a:array [1..1000] of integer;
begin
readln

;
i:=1;
while n<>0 do
begin
a:=n mod 2;
i:=i+1;
n:=n div 2;
end;
for i:=i-1 downto 1 do
write(a);
end.
我编的很简单！你随便看看！

eastroad · 2002-04-25

Trunc(x: Extended): Int64;
四舍五入返回浮点数的分数部分。

dxymzj · 2002-04-25

Returns the value of X rounded to the nearest whole number.
function Round(X: Extended): Int64;