任意进制数 算式应该成立的吧 高人看一下
谢26933062指点 gtr改geq
@echo off&setlocal enabledelayedexpansion
set/p a=请输入要转换的十进制数:
set aa=%a%
set/p b=请输入要转换的几进制?
set str=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
:hex
set/a m=!a!/!b!
set/a n=!a!%%!b!
set n=!str:~%n%,1!
set h=!n!!h!
if !m! geq !b! set a=!m! &goto hex
set m=!str:~%m%,1!
echo !aa!的!b!进制数 !m!!h!
pause
下面是单独转2进制的 要让它能转负数 有可能吗
@echo off
set/p a=请输入要转换的十进制数:
set aa=%a%
if %a% gtr 2147483647 echo 超出运算范围&goto&exit
:str
set/a b=^!(^!(%a%%%2))
set n=%b%%n%
if %a% geq 2 set/a a=%a%/2 &&goto str
cls
echo %aa% 的二进制为 %n%
pause
[
Last edited by terse on 2008-3-5 at 02:23 PM ]
