for 加 set /a 能否实现开方 - 中国DOS联盟论坛

　　可以实现简单的开方，但是效率不怎么样，并且只限于存在整数次方根的情况，当然，超过2^31-1的数字就不行了。基本思路就是：如果对x开n次方，则从2开始到x/n的整数止，对每个数进行测试，只到找到为止，代码如下：


@echo off

setlocal enabledelayedexpansion

: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

[ Last edited by namejm on 2007-3-16 at 01:02 PM ]

第1楼　6622186	发表于 2007-03-15 09:22
高级用户　发帖 411　积分 894
for 加 set /a 能否实现开方 for 加 set /a 能否实现开方

第2楼　vkill	发表于 2007-03-16 01:32
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
我一直没有思路

第3楼　namejm	发表于 2007-03-16 02:30
荣誉版主　发帖 1,737　积分 5,226　来自成都
可以实现简单的开方，但是效率不怎么样，并且只限于存在整数次方根的情况，当然，超过2^31-1的数字就不行了。基本思路就是：如果对x开n次方，则从2开始到x/n的整数止，对每个数进行测试，只到找到为止，代码如下： @echo off setlocal enabledelayedexpansion :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 [ Last edited by namejm on 2007-3-16 at 01:02 PM* ]

第4楼　6622186	发表于 2007-03-21 03:15
高级用户　发帖 411　积分 894
还不错, 不过当被开方数为负数会提示错误, 如 -27 3

第5楼　3dnowex	发表于 2008-07-31 21:55
初级用户　发帖 20　积分 41
回去翻一下微积分的书，重点看麦克劳林级数，再利用for循环和set/a 运算

第6楼　523066680	发表于 2008-07-31 21:59
银牌会员　发帖 1,133　积分 2,361
……郁闷中……namejm没有到我的帖子出现过……

第7楼　pusofalse	发表于 2008-07-31 23:45
银牌会员　发帖 646　积分 1,604
变化的只是头脑，来个简单的。 @echo off&setlocal enabledelayedexpansion for /l %%a in (1 1 100) do ( set/a n=%%a%%a set ..!n!=%%a %%a = !n! ) set/p var=Input: if defined ..%var% echo !..%var%! pause>nul 10000以内。。。 [ Last edited by pusofalse on 2008-7-31 at 11:46 PM ]