[数值计算] 批处理穷举法计算开方

irresolute

@echo off
:Main
cls
set x=
set n=
set /p x=     请输入被开方的数：
set /p n=     请输入开方次数：
set /a mod=%n%%%2
if %x% equ 1 (
    echo.
    echo      %x% 的 %n% 次方根是 1
    echo.
    pause
    goto Main
)
set /a quotient=x/n
set flag=
for /l %%i in (2,1,%quotient%) do (
    set num=%%i
    for /l %%j in (2,1,%n%) do (
        set /a num=%%i*!num!
    )
    if !num! equ %x% (
        echo.
        if %mod% equ 0 (
            echo      %x% 的 %n% 次方根是 ±%%i
        ) else echo      %x% 的 %n% 次方根是 %%i
        echo.
        set flag=1
        goto end
    )
)
:end
if not defined flag (
    echo.
    echo      %x% 的 %n% 次方根不是整数
    echo.
)
pause
goto Main
复制代码

irresolute

这是穷举法
前面少了句setlocal enabledelayedexpansion
不是原创，只是看到了算法，拿了来共享

irresolute

批处理我还是小儿科，请大家多多关照