[数值计算] 初次练手做个批处理进制转换的小东西

oowgsoo

@echo off
setlocal EnableDelayedExpansion

::输入条件，输入错误就重新输入

set /a minInt=1^<^<31,maxInt="~minInt"

:inputValue
set /p value=请输入需要转换的数字(0-%maxInt%)：
if %value% lss 0 goto inputValue
::最大整数范围没有判断，下面这句不会起作用的
::if %value% gtr %maxInt% goto inputValue

:inputBit
set /p bit=请输入需要转换的进制(2-16)：
if %bit% lss 2 goto inputBit
if %bit% gtr 16 goto inputBit

::进行计算
set unit=0123456789ABCDE
call :change

::返回结果
echo 转换结果：%result%

goto :end

::change函数，计算原理，就是用%和/嘛
:change

set result=
::for循环用不上了，只好用goto了
:changei
set /a index=%value%^%%bit%
set /a value/=%bit%
set ret=!unit:~%index%,1!
set result=%ret%%result%
if %value% neq 0 goto changei

goto :eof

:end
复制代码

基拉freedom

::getChar函数
不是c里用来从终端输入字符的？？
不太记得了