中国DOS联盟

能正确处理的最大数为2147483647，也就是31位2进制数，第32位就出错了，3742668 版主的那个版本也一样，输入2147483648就出错，虽然可以通过位移的次数来判断使精确度达到4294967295，但是我在应用上是碰不到这么大的数了，也就不多麻烦了。

@echo off

setlocal enabledelayedexpansion

set hexstr=0 1 2 3 4 5 6 7 8 9 A B C D E F

set d=0

for %%i in (%hexstr%) do (set d!d!=%%i&set/a d+=1)

set/p scanf=能正确处理的最大数为，请输入需要转换的十进制数：

if not defined scanf exit/b

set dec=%scanf%

call :d2h

if not defined hex set hex=0

echo %dec% 的十六进制为：0x%hex%

pause>nul

exit/b



:d2h

if %scanf% equ 0 exit/b

set/a tscanf=%scanf%"&"15

set/a scanf">>="4

set hex=!d%tscanf%!!hex!

goto :d2h

==已被删除==

[ Last edited by 0401 on 2007-1-25 at 09:19 AM ]

楼主强人

Originally posted by electronixtar at 2007-1-7 08:46:
楼主强人

我是菜鸟，而且害羞。
用同一种方法再贴一个十进制转二进制的。

@echo off

setlocal enabledelayedexpansion

set/p scanf=能正确处理的最大数为，请输入需要转换的十进制数：

if not defined scanf exit/b

set dec=%scanf%

call :d2b

echo %dec% 的二进制为：%bin%

pause>nul

exit/b



:d2b

set a=1

for /l %%i in (1,1,31) do (

	set/a t=%scanf%"&"!a!

	set/a a*=2

	if !t! equ 0 (set bin=0!bin!) else (set bin=1!bin!)

)

if %bin% equ 0 set bin=0 & goto :eof

:cut0

if %bin:~0,1% equ 0 set bin=%bin:~1%&goto :cut0

超级顶！欣赏～～：）

用的果然爽,厉害。

的是厉害。顶了

0401 兄4楼的 十进制转二进制的 还可以改改的，后面的那 标签:cut0 属于多余

改为这样就好了

:d2b
set a=1
for /l %%i in (1,1,30) do (
set/a t=%scanf%"&"!a!
set/a a*=2
if !t! equ 0 (set bin=0!bin!) else (set bin=1!bin!)
if %scanf% lss !a! exit/b
)
if %bin% equ 0 set bin=0 & goto :eof

修改如下:
1: 1,1,30 因为你for /l %%i in (1,1,31) do (set/a a*=a) 就已经出错了
2: 加了一句 if %scanf% lss !a! exit/b ,因为数a 与 运算 比它大的数永远是0，既然这样还不如直接if %scanf% lss !a! exit/b结束，后面也就不去前面的 0 了

先加个"戳",不然下次用时找不到!

我来回复9楼

if %scanf% lss !a! exit/b
你的这段代码缺点很明显，
每做一次循环，都要判断一次，降低了程序效率

还有一个问题
“ 1,1,30 因为你for /l %%i in (1,1,31) do (set/a a*=a) 就已经出错了”

这里%%i=31的时候，a=2(30)，并没有错，要到%%i=32时，a=2(31)，
这时才有错

所以9楼的代码才是正确的！

我用取余的方法写了一个 十进制转十六进制，证实了最大极限处理确实是2147483647，即十六进制极限为7FFFFFFF，反转也同样说明了这个问题。应该说是CMD的极限。