PCL505512957

回复 36# foxJL


    能否解释解释啊

xuhuihihi

非常不错~学习了

539956485

水仙花数
最笨的办法了~~

@echo off
set num=100
:main
set/a num=num+1
set/a m=num/100
set/a n=(num-100*m)/10
set/a j=(num-100*m-10*n)
 set/a sum=%m%*%m%*%m%+%n%*%n%*%n%+%j%*%j%*%j%
if %num% equ %sum% echo %sum%
if %num% equ 999 goto skip
goto main
:skip
pause
exit
复制代码

悬崖之树

回复 33# huajinghua

@echo off & setlocal enabledelayedexpansion

for /l %%a in (1 1 20) do (
   set s=1
   for /l %%b in (1 1 %%a) do (
      set /a s*=%%b
   )
   set /a sum+=!s!
)
echo %sum%

pause
复制代码

悬崖之树

回复 32# huajinghua

@echo off & setlocal enabledelayedexpansion
set a=1
for /l %%i in (1 1 9) do (
   set /a a=a*2+1
)
echo 猴子一共摘了%a%个桃子。

pause
复制代码

悬崖之树

@echo off & setlocal enabledelayedexpansion
set "str=1 2 3 4"
for %%a in (%str%) do (
   set str1=!str:%%a=!
   for %%b in (!str1!) do (
      set str2=!str1:%%b=!
      for %%c in (!str2!) do (
         echo %%a%%b%%c
      )     
   )
)
pause
复制代码

回复 5# youxi01

悬崖之树

回复 21# 随风
还是我的代码简洁点:

@echo off & setlocal enabledelayedexpansion
for %%a in (1 3 6 8 6 3 1) do (
   for /l %%b in (1 1 %%a) do (
      set c=!c!*
   )
   echo !c!
   set c=
)
pause
复制代码

悬崖之树

回复 7# youxi01

@echo off & setlocal enabledelayedexpansion
for /l %%i in (1 1 9) do (
   if %%i gtr 1 echo.
   for /l %%j in (1 1 %%i) do (
      set /a c=%%j*%%i
      set "c=!c!   "
      set /p=%%j*%%i=!c:~,2!  <nul
   )
)
echo.



pause
复制代码

悬崖之树

@echo off & setlocal enabledelayedexpansion
for /l %%a in (100 1 999) do (
   set s=%%a
   set a=!s:~,1!
   set b=!s:~1,1!
   set c=!s:~2,1!
   set /a sum=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!
   if !sum!==!s! echo %%a
)



pause
复制代码

kuhaiqiudu120

回复 5# youxi01


    牛叉  我想了半天  哎 人比人气死人

kuhaiqiudu120

真考验  数学逻辑 啊

battab

程序37

@echo off
:l
cls
setlocal enabledelayedexpansion
set /p a=请输入第一个数：
set /p b=      第二个数：
set /p c=      第三个数：
set /p d=      第四个数：
set /p e=      第五个数：
set /p f=      第六个数：
set /p g=      第七个数：
set /p h=      第八个数：
set /p i=      第九个数：
set /p j=      第十个数：

echo 您输入的十个数为：%a% %b% %c% %d% %e% %f% %g% %h% %i% %j%
if %a% lss %b% (
set t1=%a%
set a=%b%
set b=!t1!
)
if %a% lss %c% (
set t2=%a%
set a=%c%
set c=!t2!
)
if %a% lss %d% (
set t3=%a%
set a=%d%
set d=!t3!
)
if %a% lss %e% (
set t4=%a%
set a=%e%
set e=!t4!
)
if %a% lss %f% (
set t5=%a%
set a=%f%
set f=!t5!
)
if %a% lss %g% (
set t6=%a%
set a=%g%
set g=!t6!
)
if %a% lss %h% (
set t7=%a%
set a=%h%
set h=!t7!
)
if %a% lss %i% (
set t8=%a%
set a=%i%
set i=!t8!
)
if %a% lss %j% (
set t9=%a%
set a=%j%
set j=!t9!
)
rem -----------------------确定第一位数。-------------------------
if %b% lss %c% (
set t5=%b%
set b=%c%
set c=!t5!
)
if %b% lss %d% (
set t6=%b%
set b=%d%
set d=!t6!
)
if %b% lss %e% (
set t7=%b%
set b=%e%
set e=!t7!
)
if %b% lss %f% (
set t7=%b%
set b=%f%
set f=!t7!
)
if %b% lss %g% (
set t7=%b%
set b=%g%
set g=!t7!
)
if %b% lss %h% (
set t7=%b%
set b=%h%
set h=!t7!
)
if %b% lss %i% (
set t7=%b%
set b=%i%
set i=!t7!
)
if %b% lss %j% (
set t7=%b%
set b=%j%
set j=!t7!
)
rem -----------------------确定第二位数。-------------------------

if %c% lss %d% (
set t8=%c%
set c=%d%
set d=!t8!
)
if %c% lss %e% (
set t9=%c%
set c=%e%
set e=!t9!
)
if %c% lss %f% (
set t9=%c%
set c=%f%
set f=!t9!
)
if %c% lss %g% (
set t9=%c%
set c=%g%
set g=!t9!
)
if %c% lss %h% (
set t9=%c%
set c=%h%
set h=!t9!
)
if %c% lss %i% (
set t9=%c%
set c=%i%
set i=!t9!
)
if %c% lss %j% (
set t9=%c%
set c=%j%
set j=!t9!
)
rem -----------------------确定第三位数。-------------------------

if %d% lss %e% (
set t10=%d%
set d=%e%
set e=!t10!
)
if %d% lss %f% (
set t10=%d%
set d=%f%
set f=!t10!
)
if %d% lss %g% (
set t10=%d%
set d=%g%
set g=!t10!
)
if %d% lss %h% (
set t10=%d%
set d=%h%
set h=!t10!
)
if %d% lss %i% (
set t10=%d%
set d=%i%
set i=!t10!
)
if %d% lss %j% (
set t10=%d%
set d=%j%
set j=!t10!
)
rem -----------------------确定第四位数。-------------------------
if %e% lss %f% (
set t10=%e%
set e=%f%
set f=!t10!
)
if %e% lss %g% (
set t10=%e%
set e=%g%
set g=!t10!
)
if %e% lss %h% (
set t10=%e%
set e=%h%
set h=!t10!
)
if %e% lss %i% (
set t10=%e%
set e=%i%
set i=!t10!
)
if %e% lss %j% (
set t10=%e%
set e=%j%
set j=!t10!
)
rem -----------------------确定第五位数。-------------------------
if %f% lss %g% (
set t10=%f%
set f=%g%
set g=!t10!
)
if %f% lss %h% (
set t10=%f%
set f=%h%
set h=!t10!
)
if %f% lss %i% (
set t10=%f%
set f=%i%
set i=!t10!
)
if %f% lss %j% (
set t10=%f%
set f=%j%
set j=!t10!
)
rem -----------------------确定第六位数。-------------------------
if %g% lss %h% (
set t10=%g%
set g=%h%
set h=!t10!
)
if %g% lss %i% (
set t10=%g%
set g=%i%
set i=!t10!
)
if %g% lss %j% (
set t10=%g%
set g=%j%
set j=!t10!
)
rem -----------------------确定第七位数。-------------------------
if %h% lss %i% (
set t10=%h%
set h=%i%
set i=!t10!
)
if %h% lss %j% (
set t10=%h%
set h=%j%
set j=!t10!
)
rem -----------------------确定第八位数。-------------------------
if %i% lss %j% (
set t10=%i%
set i=%j%
set j=!t10!
)
rem -----------------------确定第九位数。-------------------------
echo 排序后的结果为：%a% %b% %c% %d% %e% %f% %g% %h% %i% %j%
endlocal
pause>nul
goto l
复制代码

zh_1452

程序37
battab 发表于 2013-12-13 21:15

@echo off
echo 这女娃代码也不错嘛，值得研究
下面是我给你补的图片
复制代码

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
复制代码

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