techon

贴个除法函数吧

@echo off
setlocal enabledelayedexpansion

call :_div %RANDOM% 32768
echo %quo%

call :_div %RANDOM% 32768
echo %quo%

call :_div %RANDOM% 32768
echo %quo%

call :_div %RANDOM% 32768
echo %quo%

call :_div %RANDOM% 32768
echo %quo%

call :_div %RANDOM% 32768
echo %quo%

call :_div 32767 32768
echo %quo%

goto :eof

rem 除法子程序开始
:_div
  if "%1"=="" (echo 请输入被除数（参数 %%^1）&goto :EOF)
  if "%2"=="" (echo 请输入除数（参数 %%^2）&goto :EOF)
  set /a Maxd=2147483647, scp=0, ded=%1, dvr=%2&set quo=
  if %dvr% equ 0 (echo 错误，除数为零！&goto :EOF)
  if %ded% equ 0 (set quo=0&goto :EOF)
  if "%ded%"=="%1" (
    if not "%dvr%"=="%2" echo 参数 %%^2 输入错误或数值超限&goto :EOF
  ) else (
    echo 参数 %%^1 输入错误或数值超限
    if not "%dvr%"=="%2" echo 参数 %%^2 输入错误或数值超限&goto :EOF
  )
  :divbg
  set /a quo=%ded%/%dvr%, rdd=quo*dvr
  if %rdd% neq %ded% (
    if %ded% leq %Maxd:~0,-1% (
      set ded=%ded%0&set /a scp+=1&goto :divbg
    )
  )
  if %quo% equ 0 goto :EOF
  if %scp% neq 0 (
    if "!quo:~-%scp%!"=="!quo!" (
      set quo=00000000%quo%&set quo=0.!quo:~-%scp%!
    ) else (
      set quo=!quo:~0,-%scp%!.!quo:~-%scp%!
    )
  )
goto :EOF
rem End_div
复制代码