中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 也来一个，2、10进制互转

pusofalse
银牌会员

积分 1604
发帖 646
注册 2008-4-13
状态离线

『楼主』: 也来一个，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 "[a-z]">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 "[2-9a-z]">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