中国DOS联盟

@echo off
::此代码将论坛里输出勾股数与求最大公约数综合得来,非原创.
echo.
echo 100以内的勾股数如下：
setlocal enabledelayedexpansion
for /l %%i in (1,1,100) do (
for /l %%j in (%%i,1,100) do (
for /l %%k in (%%j,1,100) do (
set /a a=%%i*%%i,b=%%j*%%j,c=%%k*%%k
set /a sum=!a!+!b!
set /a v1=%%i,v2=%%j,v3=%%k

if !sum! equ !c! call :prime

)
)
)

:prime
set /a a=!v1!,b=!v2!
if %a% lss %b% goto restart

:loop
set/a num2=%a%%%b%
if %num2% gtr 0 set/a a=%b%&set/a b=%num2%&goto loop
goto show

:restart
set/a num1=%a%
set/a a=%b%
set/a b=%num1%
goto :loop

:show
if %b%==1 echo !v1! !V2! !V3!
goto :eof

不过速度还是慢,又没快速算法,大家各抒己见.

[ Last edited by plp626 on 2008-1-15 at 01:04 PM ]

这个帖子沉了,我删了