转自: http://www.52sky.org/article/Computer%20Program/44.html- @echo off
- :start210
- cls
- echo 十进制转换
- echo.
- :start20
- set a=&set b=&set c=&set d=&set e=&set f=
- set /p a=请输入^<十进制^>:
- set e=%a%&set f=%a%
- if "%a%"=="" cls&goto start210
- if %a%==dd cls&goto start210
- if %a%==q exit
- :30
- set /a b=%a%%%2
- set /a c=%a%/2
- set d=%b%%d%
- if %c% geq 2 set a=%c%&goto 30
- if %c% equ 0 set c=
- echo 对应 [二进制]: %c%%d%
- set b=&set c=&set d=
- :10
- set /a b=%e%%%8
- set /a c=%e%/8
- set d=%b%%d%
- if %c% geq 8 set e=%c%&goto 10
- if %c% equ 0 set c=
- echo 对应 [八进制]: %c%%d%
- set a=&set b=&set c=&set d=
- :20
- set /a b=%f%%%16
- if %b%==10 set b=A
- if %b%==11 set b=B
- if %b%==12 set b=C
- if %b%==13 set b=D
- if %b%==14 set b=E
- if %b%==15 set b=F
- set /a c=%f%/16
- set d=%b%%d%
- if %c% geq 16 set f=%c%&goto 20
- if %c%==10 set c=A
- if %c%==11 set c=B
- if %c%==12 set c=C
- if %c%==13 set c=D
- if %c%==14 set c=E
- if %c%==15 set c=F
- if %c%==0 set c=
- echo 对应 [16进制]: %c%%d%&echo/
- goto start20
复制代码
|