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 ]

我也得个沙发来。
不错，向你学习findstr用法。

好像输入特殊符号就不能判断了。<img src="images/smilies/face-raspberry.png" align="absmiddle" border="0">

Last edited by wxcute on 2008-7-5 at 06:57 PM ]

学习，太强大了。