也来一个，2、10进制互转 - 中国DOS联盟论坛

DECIMAL 2 BINARY

@echo off&TITLE Decimal to Binary&color 02
:begin
cls&set/p var=Input a decimal number: 
echo %var%|findstr /i /v "">nul||goto begin
set vari=%var%
:1
set/a ws=%var%%%2
set/a var/=2
set str=%ws%%str%
if %var% neq 0 goto 1
echo.&echo 十进制数 ^<%vari%^> 转换2进制为 ^<%str%^>.
set str=&set var=
pause>nul&goto begin

BINARY 2 DECIMAL


@echo off&title Binary to Decimal&color 0a
:begin
cls&set/p var=Input a binary number: 
echo %var%|findstr /v "">nul||goto begin
set varia=%var%&set vari=%var:~-1%&set var=%var:~0,-1%
set x=1

:1
set pus=%var:~-1%
set/a n+=1
for /l %%a in (1 1 %n%) do set/a x*=2
set/a m=pus*x
set/a z+=m
set var=%var:~0,-1%
set x=1
if defined var goto 1
if %vari% equ 1 set/a z+=1
echo.&echo 二进制数 ^<%varia%^> 转换10进制为 ^<%z%^>.
set n=0&set z=
pause>nul
goto begin

[ Last edited by pusofalse on 2008-7-5 at 06:33 PM ]

第1楼　pusofalse	发表于 2008-07-05 18:32
银牌会员　发帖 646　积分 1,604
也来一个，2、10进制互转 DECIMAL 2 BINARY @echo off&TITLE Decimal to Binary&color 02 :begin cls&set/p var=Input a decimal number: echo %var%\|findstr /i /v "">nul\|\|goto begin set vari=%var% :1 set/a ws=%var%%%2 set/a var/=2 set str=%ws%%str% if %var% neq 0 goto 1 echo.&echo 十进制数 ^<%vari%^> 转换2进制为 ^<%str%^>. set str=&set var= pause>nul&goto begin BINARY 2 DECIMAL @echo off&title Binary to Decimal&color 0a :begin cls&set/p var=Input a binary number: echo %var%\|findstr /v "">nul\|\|goto begin set varia=%var%&set vari=%var:~-1%&set var=%var:~0,-1% set x=1 :1 set pus=%var:~-1% set/a n+=1 for /l %%a in (1 1 %n%) do set/a x=2 set/a m=pusx set/a z+=m set var=%var:~0,-1% set x=1 if defined var goto 1 if %vari% equ 1 set/a z+=1 echo.&echo 二进制数 ^<%varia%^> 转换10进制为 ^<%z%^>. set n=0&set z= pause>nul goto begin [ Last edited by pusofalse on 2008-7-5 at 06:33 PM ]

第2楼　wxcute	发表于 2008-07-05 18:56
中级用户　发帖 211　积分 458
我也得个沙发来。不错，向你学习findstr用法。好像输入特殊符号就不能判断了。 [ Last edited by wxcute on 2008-7-5 at 06:57 PM ]

第3楼　zch123	发表于 2008-07-05 21:05
新手上路　发帖 5　积分 10
学习，太强大了。