D
delphi_jzy
Unregistered / Unconfirmed
GUEST, unregistred user!
如何将十进制整型转换成二进制形式的字符串，例如：edit1框中输入一个十进制整数，按按钮
在edit2中得到此数的二进制形式的字符串。谢谢！
顺便请问四舍五入的函数是啥？
在edit2中得到此数的二进制形式的字符串。谢谢！
顺便请问四舍五入的函数是啥？
少
少爷的拐杖
Unregistered / Unconfirmed
GUEST, unregistred user!
参见旧贴id：
143617
719568
143617
719568
U
ugvanxk
Unregistered / Unconfirmed
GUEST, unregistred user!
应该这样访问
http://www.delphibbs.com/delphibbs/dispq.asp?lid=143617
http://www.delphibbs.com/delphibbs/dispq.asp?lid=143617
O
output
Unregistered / Unconfirmed
GUEST, unregistred user!
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.
我编的很简单！你随便看看！
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.
我编的很简单！你随便看看！
E
eastroad
Unregistered / Unconfirmed
GUEST, unregistred user!
Trunc(x: Extended): Int64;
四舍五入返回浮点数的分数部分。
四舍五入返回浮点数的分数部分。
D
dxymzj
Unregistered / Unconfirmed
GUEST, unregistred user!
Returns the value of X rounded to the nearest whole number.
function Round(X: Extended): Int64;
function Round(X: Extended): Int64;