bailong360

程序1

@echo off
SetLocal EnableDelayedExpansion
set num=1 2 3 4
for %%a in (%num%) do (
	set t_num=!num:%%a=!
	for %%b in (!t_num!) do (
		set tt_num=!t_num:%%b=!
		for %%c in (!tt_num!) do (
			echo %%a%%b%%c
		)
	)
)
pause
复制代码

bailong360

程序4

@echo off
SetLocal EnableDelayedExpansion
set /p str=Please enter(2014.7.28):
for /f "delims=. tokens=1-3" %%a in ("%str%") do (
	call :jud %%a %%b %%c
	echo %%a.%%b.%%c is the !day!day for %%a
	pause>nul
)
:jud
for %%i in (1 3 5 7 8 10 12) do set %%i=31
for %%i in (4 6 9 11) do set %%i=30
set /a jud=%1 %% 400
if %jud%==0 (
	set 2=29
) else (
	set /a jud=%1 %% 4
	if !jud!==0 (
		set /a jud=%~1 %% 100
		if not !jud!==0 set 2=29
	) else (set 2=28)
)
set /a month=%~2-1
for /l %%i in (1 1 %month%) do (
	set /a day+=!%%i!
)
set /a day+=%3
复制代码

哎，不够熟练，竟然花了这么久...

bailong360

程序8

@echo off
Setlocal enabledelayedexpansion
for /l %%i in (1 1 9) do (
	set times=1
	for /l %%j in (1 1 %%i) do (
		set /a ans=%%i*%%j
		if not !times!==%%i (
			set /p =%%ix%%j=!ans!  <nul
		) else (
			echo %%ix%%j=!ans!
		)
		set  /a times+=1
	)
)
pause>nul
复制代码

bailong360

程序9

@echo off
SetLocal EnableDelayedExpansion
for /l %%i in (1 1 8) do (
	for /l %%j in (1 1 8) do (
		set /a num=%%i+%%j,num%%=2
		if !num!==1 (set /p =■<nul) else (set /p =□<nul)
	)
	echo;
)
pause>nul
复制代码

bailong360

程序11

@echo off
Setlocal enabledelayedexpansion
set /a R0=1,R1=1
set /p month=Please enter the month:
for /l %%i in (2 1 %month%) do (
	set /a af=%%i-1,ag=%%i-2
	set /a R%%i=R!af! + R!ag!
)
echo !R%month%!
pause>nul
复制代码

貌似超过45就不对了，如果要更多的话得专门写个无限数位加法了

bailong360

程序12

@echo off
SetLocal EnableDelayedExpansion
for /l %%i in (101,2,200) do (
	set num=%%i
	call :judge
)
pause>nul
:judge
set times=2
for /l %%a in (1,1,3) do (
	set /a times+=%%i/times
	set /a times/=2
)
for /l %%j in (3,2,%times%) do (
	set /a value=%%i %% %%j
	if !value!==0 goto :eof
)
echo %num%
复制代码

用了牛顿迭代法开平方  感觉效率还可以

bailong360

程序13

@echo off
Setlocal enabledelayedexpansion
for /l %%a in (1 1 9) do (
	for /l %%b in (0 1 9) do (
		for /l %%c in (0 1 9) do (
			set /a jud=%%a*%%a*%%a+%%b*%%b*%%b+%%c*%%c*%%c
			if !jud!==%%a%%b%%c echo !jud!
		)
	)
)
pause>nul
复制代码