@echo off
set x=1
set /p max=打印出多少以内的勾股弦组合（勾^>3）：
:x
set /a x+=2,s=x*x,y=s/2,z=y+1
echo %x%,%y%,%z%
if %x% lss %max% goto x
pause
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%a in (1,1,100) do (
for /l %%b in (%%a,1,100) do (
for /l %%c in (%%b,1,100) do (
set /a aa=%%a*%%a+%%b*%%b
set /a ab=%%c*%%c
if !aa!==!ab! echo %%a %%b %%c
)
)
)
echo.&pause
复制代码

@echo off&setlocal EnableDelayedExpansion
for /l %%a in (1 1 100) do (
  set /a a%%a=%%a*%%a
  set t!a%%a!=%%a
)
  for /l %%a in (1 1 100) do (
  for /l %%b in (%%a 1 100) do (
  set /a c=%%a*%%a+%%b*%%b
  if defined t!c! (
  call echo %%a %%b %%t!c!%%
  set /a abc+=1
)))
echo.&echo 共有 %abc% 个
echo.&pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 100) do (
    set /a s1=%%i*%%i
        for /l %%j in (1 1 100) do (
            set /a s2=%%j*%%j
            set /a s3=!s1!+!s2!    
                for /l %%k in (1 1 100) do (
                    set /a s4=%%k*%%k
                    if "!s4!"=="!s3!" echo %%i^^^^2+%%j^^^^2=!s4!
)
)
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 100) do (
    set /a s1=%%i*%%i
        for /l %%j in (%%i 1 100) do (
            set /a s2=%%j*%%j
            set /a s3=!s1!+!s2!
                for /l %%k in (1 1 100) do (
                    set /a s4=%%k*%%k
                    if "!s4!"=="!s3!" echo %%i^^^^2+%%j^^^^2=!s4!
)
)
)
pause
复制代码

@echo off
setlocal EnableDelayedExpansion
for /l %%a in (1,1,100) do (
set zs1=%%a
set /a m1=!zs1!*!zs1!
for /l %%b in (!zs1!,1,100) do (
set zs2=%%b
set /a m2=!zs2!*!zs2!
for /l %%c in (!zs2!,1,100) do (
set zs3=%%c
set /a m3=!zs3!*!zs3!
set /a ds=!m1!+!m2!
if !ds! equ !m3! echo !zs1! !zs2! !zs3!
)
)
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set /p num=输入多少以内的勾股数:
for /l %%a in (3,1,%num%) do (
    for /l %%b in (4,1,%num%) do (
        for /l %%c in (5,1,%num%) do (
            set /a num1=%%a*%%a 
            set /a num2=%%b*%%b
            set /a num3=%%c*%%c  
            set /a num4=!num1!+!num2!
            if !num3!==!num4! echo;%%a,%%b,%%c
)
) 
)
pause
复制代码

@echo off & setlocal enabledelayedexpansion

for /l %%i in (1 1 100) do (
    for /l %%j in (%%i 1 100) do (
	for /l %%k in (%%i 1 100) do (
	    set /a l=%%i*%%i+%%j*%%j
	    set /a m=%%k*%%k
	    if !l!==!m! echo %%i*%%i+%%j*%%j=%%k*%%k
	)
    )
)

pause > nul
复制代码

set /a max=61
rem 这个数越大。生成的勾股数就越多。你可以改成2000试试。
rem 小程936原创出品。版权所有。

@echo off&Setlocal enabledelayedexpansion&set /a b=1
set /a min=2
rem 从第min次循环开始(默认值为2)。从第(max-1)次循环后结束。max值越高求到的勾股数越多。
rem 自动排除非互质项，(3,4,5)互质，而(6,8,10)不互质。输出结果为a,b,c (第几次循环，此次循环得到的第几个值)

set ga=勾股数-%min%-%max%.txt
echo %ga%>%ga%&title %ga%
rem  控制输出文件名和文件首行。

for /l %%j in (%min%,1,%max%) do (
 for /l %%k in (!b!,2,%%j) do (
  
  set /a a=m=%%j,b=n=%%k
  call :f
  if "!m!"=="1" (
   rem 看看a与b是否互质。
   
   set /a cmin=a*a+b*b,bmin=a*a-b*b,amin=2*a*b
   rem 计算a,b对应的勾股数amin,bmin,cmin   (a,b初始值2,1)
  
   if !amin! GTR !bmin! set /a v=bmin,bmin=amin,amin=v
   echo.!amin!,!bmin!,!cmin! ^(%%j,%%k^)
   rem 若bmin小于amin，交换位置。& 之后……记录下来。
  )
 )>>%ga%
 echo !a!/%max%
  rem 显示循环周期，

 set /a b=a%%2
 if "!b!"=="0" set /a b=2
 rem 重置b(若a为偶则b=2，若a为奇则b=1)，之后a加1。
)

start "" %ga%
 exit
 rem 打开记录文件，结束程序。

:f
@set /a r=m%%n,m=n,n=r
if "%r%"=="0" goto :eof
goto f
rem 计算m与n的最大公因数，输出m（临时占用变量r）
复制代码

set /a max=61
@echo off&Setlocal enabledelayedexpansion&set /a b=1
set /a min=2
set ga=勾股数-%min%-%max%.txt
echo %ga%>%ga%&title %ga%
for /l %%j in (%min%,1,%max%) do (
for /l %%k in (!b!,2,%%j) do (
set /a a=m=%%j,b=n=%%k
call :f
if "!m!"=="1" (
set /a cmin=a*a+b*b,bmin=a*a-b*b,amin=2*a*b
if !amin! GTR !bmin! set /a v=bmin,bmin=amin,amin=v
echo.!amin!,!bmin!,!cmin! ^(%%j,%%k^)
))>>%ga%
echo !a!/%max%
set /a b=a%%2
if "!b!"=="0" set /a b=2
)
start "" %ga%
exit
:f
@set /a r=m%%n,m=n,n=r
if "%r%"=="0" goto :eof
goto f
复制代码