水仙花数算法.bat

namejm写的批处理

@echo off
:: 求三位数的水仙花数
:: 所谓的水仙花数，是形如abc=a*a*a+b*b*b+c*c*c的数字
echo.
echo         三位的水仙花数有：
echo.
setlocal enabledelayedexpansion
for /l %%i in (1,1,9) do (
    for /l %%j in (0,1,9) do (
        for /l %%k in (0,1,9) do (
            set a=%%i
            set b=%%j
            set c=%%k
            set num1=!a!!b!!c!
            set /a num2=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!
            if !num1! equ !num2! echo                !num1!
        )
    )
)
pause
goto :eof


另外一种算法
@echo off
set Out=水仙花3.txt
title 水仙花（三位数）
echo 正在计算...
if exist %Out% del %Out%

set /a c=0

:loopc
if %c%==9 goto exit
set /a c=%c%+1
set /a b=0
set /a a=0
cls
echo 已完成 %c%/10
goto loopa

:loopb
if %b%==9 goto loopc
set /a b=%b%+1
set /a a=0
goto loopa

:loopa
if %a%==10 goto loopb
set /a num1=%c%*%c%*%c%+%b%*%b%*%b%+%a%*%a%*%a%
set /a num2=100*%c%+10*%b%+%a%
if %num1%==%num2% echo %num1%>>%Out%
REM echo %num2%>>%Out%
set /a a=%a%+1
goto loopa

:exit