[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 36# foxJL


    能否解释解释啊
[color=BLUE]一切只为了批处理&DOS[/color]

TOP

非常不错~学习了

TOP

水仙花数
最笨的办法了~~
  1. @echo off
  2. set num=100
  3. :main
  4. set/a num=num+1
  5. set/a m=num/100
  6. set/a n=(num-100*m)/10
  7. set/a j=(num-100*m-10*n)
  8. set/a sum=%m%*%m%*%m%+%n%*%n%*%n%+%j%*%j%*%j%
  9. if %num% equ %sum% echo %sum%
  10. if %num% equ 999 goto skip
  11. goto main
  12. :skip
  13. pause
  14. exit
复制代码
无所谓而无所为 无所谓而无所不为

TOP

回复 33# huajinghua
  1. @echo off & setlocal enabledelayedexpansion
  2. for /l %%a in (1 1 20) do (
  3.    set s=1
  4.    for /l %%b in (1 1 %%a) do (
  5.       set /a s*=%%b
  6.    )
  7.    set /a sum+=!s!
  8. )
  9. echo %sum%
  10. pause
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

回复 32# huajinghua
  1. @echo off & setlocal enabledelayedexpansion
  2. set a=1
  3. for /l %%i in (1 1 9) do (
  4.    set /a a=a*2+1
  5. )
  6. echo 猴子一共摘了%a%个桃子。
  7. pause
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

  1. @echo off & setlocal enabledelayedexpansion
  2. set "str=1 2 3 4"
  3. for %%a in (%str%) do (
  4.    set str1=!str:%%a=!
  5.    for %%b in (!str1!) do (
  6.       set str2=!str1:%%b=!
  7.       for %%c in (!str2!) do (
  8.          echo %%a%%b%%c
  9.       )     
  10.    )
  11. )
  12. pause
复制代码
回复 5# youxi01
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

回复 21# 随风
还是我的代码简洁点:
  1. @echo off & setlocal enabledelayedexpansion
  2. for %%a in (1 3 6 8 6 3 1) do (
  3.    for /l %%b in (1 1 %%a) do (
  4.       set c=!c!*
  5.    )
  6.    echo !c!
  7.    set c=
  8. )
  9. pause
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

回复 7# youxi01
  1. @echo off & setlocal enabledelayedexpansion
  2. for /l %%i in (1 1 9) do (
  3.    if %%i gtr 1 echo.
  4.    for /l %%j in (1 1 %%i) do (
  5.       set /a c=%%j*%%i
  6.       set "c=!c!   "
  7.       set /p=%%j*%%i=!c:~,2!  <nul
  8.    )
  9. )
  10. echo.
  11. pause
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

RE: 求水仙花数

  1. @echo off & setlocal enabledelayedexpansion
  2. for /l %%a in (100 1 999) do (
  3.    set s=%%a
  4.    set a=!s:~,1!
  5.    set b=!s:~1,1!
  6.    set c=!s:~2,1!
  7.    set /a sum=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!
  8.    if !sum!==!s! echo %%a
  9. )
  10. pause
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

TOP

回复 5# youxi01


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

TOP

真考验  数学逻辑 啊

TOP

程序37
  1. @echo off
  2. :l
  3. cls
  4. setlocal enabledelayedexpansion
  5. set /p a=请输入第一个数:
  6. set /p b=      第二个数:
  7. set /p c=      第三个数:
  8. set /p d=      第四个数:
  9. set /p e=      第五个数:
  10. set /p f=      第六个数:
  11. set /p g=      第七个数:
  12. set /p h=      第八个数:
  13. set /p i=      第九个数:
  14. set /p j=      第十个数:
  15. echo 您输入的十个数为:%a% %b% %c% %d% %e% %f% %g% %h% %i% %j%
  16. if %a% lss %b% (
  17. set t1=%a%
  18. set a=%b%
  19. set b=!t1!
  20. )
  21. if %a% lss %c% (
  22. set t2=%a%
  23. set a=%c%
  24. set c=!t2!
  25. )
  26. if %a% lss %d% (
  27. set t3=%a%
  28. set a=%d%
  29. set d=!t3!
  30. )
  31. if %a% lss %e% (
  32. set t4=%a%
  33. set a=%e%
  34. set e=!t4!
  35. )
  36. if %a% lss %f% (
  37. set t5=%a%
  38. set a=%f%
  39. set f=!t5!
  40. )
  41. if %a% lss %g% (
  42. set t6=%a%
  43. set a=%g%
  44. set g=!t6!
  45. )
  46. if %a% lss %h% (
  47. set t7=%a%
  48. set a=%h%
  49. set h=!t7!
  50. )
  51. if %a% lss %i% (
  52. set t8=%a%
  53. set a=%i%
  54. set i=!t8!
  55. )
  56. if %a% lss %j% (
  57. set t9=%a%
  58. set a=%j%
  59. set j=!t9!
  60. )
  61. rem -----------------------确定第一位数。-------------------------
  62. if %b% lss %c% (
  63. set t5=%b%
  64. set b=%c%
  65. set c=!t5!
  66. )
  67. if %b% lss %d% (
  68. set t6=%b%
  69. set b=%d%
  70. set d=!t6!
  71. )
  72. if %b% lss %e% (
  73. set t7=%b%
  74. set b=%e%
  75. set e=!t7!
  76. )
  77. if %b% lss %f% (
  78. set t7=%b%
  79. set b=%f%
  80. set f=!t7!
  81. )
  82. if %b% lss %g% (
  83. set t7=%b%
  84. set b=%g%
  85. set g=!t7!
  86. )
  87. if %b% lss %h% (
  88. set t7=%b%
  89. set b=%h%
  90. set h=!t7!
  91. )
  92. if %b% lss %i% (
  93. set t7=%b%
  94. set b=%i%
  95. set i=!t7!
  96. )
  97. if %b% lss %j% (
  98. set t7=%b%
  99. set b=%j%
  100. set j=!t7!
  101. )
  102. rem -----------------------确定第二位数。-------------------------
  103. if %c% lss %d% (
  104. set t8=%c%
  105. set c=%d%
  106. set d=!t8!
  107. )
  108. if %c% lss %e% (
  109. set t9=%c%
  110. set c=%e%
  111. set e=!t9!
  112. )
  113. if %c% lss %f% (
  114. set t9=%c%
  115. set c=%f%
  116. set f=!t9!
  117. )
  118. if %c% lss %g% (
  119. set t9=%c%
  120. set c=%g%
  121. set g=!t9!
  122. )
  123. if %c% lss %h% (
  124. set t9=%c%
  125. set c=%h%
  126. set h=!t9!
  127. )
  128. if %c% lss %i% (
  129. set t9=%c%
  130. set c=%i%
  131. set i=!t9!
  132. )
  133. if %c% lss %j% (
  134. set t9=%c%
  135. set c=%j%
  136. set j=!t9!
  137. )
  138. rem -----------------------确定第三位数。-------------------------
  139. if %d% lss %e% (
  140. set t10=%d%
  141. set d=%e%
  142. set e=!t10!
  143. )
  144. if %d% lss %f% (
  145. set t10=%d%
  146. set d=%f%
  147. set f=!t10!
  148. )
  149. if %d% lss %g% (
  150. set t10=%d%
  151. set d=%g%
  152. set g=!t10!
  153. )
  154. if %d% lss %h% (
  155. set t10=%d%
  156. set d=%h%
  157. set h=!t10!
  158. )
  159. if %d% lss %i% (
  160. set t10=%d%
  161. set d=%i%
  162. set i=!t10!
  163. )
  164. if %d% lss %j% (
  165. set t10=%d%
  166. set d=%j%
  167. set j=!t10!
  168. )
  169. rem -----------------------确定第四位数。-------------------------
  170. if %e% lss %f% (
  171. set t10=%e%
  172. set e=%f%
  173. set f=!t10!
  174. )
  175. if %e% lss %g% (
  176. set t10=%e%
  177. set e=%g%
  178. set g=!t10!
  179. )
  180. if %e% lss %h% (
  181. set t10=%e%
  182. set e=%h%
  183. set h=!t10!
  184. )
  185. if %e% lss %i% (
  186. set t10=%e%
  187. set e=%i%
  188. set i=!t10!
  189. )
  190. if %e% lss %j% (
  191. set t10=%e%
  192. set e=%j%
  193. set j=!t10!
  194. )
  195. rem -----------------------确定第五位数。-------------------------
  196. if %f% lss %g% (
  197. set t10=%f%
  198. set f=%g%
  199. set g=!t10!
  200. )
  201. if %f% lss %h% (
  202. set t10=%f%
  203. set f=%h%
  204. set h=!t10!
  205. )
  206. if %f% lss %i% (
  207. set t10=%f%
  208. set f=%i%
  209. set i=!t10!
  210. )
  211. if %f% lss %j% (
  212. set t10=%f%
  213. set f=%j%
  214. set j=!t10!
  215. )
  216. rem -----------------------确定第六位数。-------------------------
  217. if %g% lss %h% (
  218. set t10=%g%
  219. set g=%h%
  220. set h=!t10!
  221. )
  222. if %g% lss %i% (
  223. set t10=%g%
  224. set g=%i%
  225. set i=!t10!
  226. )
  227. if %g% lss %j% (
  228. set t10=%g%
  229. set g=%j%
  230. set j=!t10!
  231. )
  232. rem -----------------------确定第七位数。-------------------------
  233. if %h% lss %i% (
  234. set t10=%h%
  235. set h=%i%
  236. set i=!t10!
  237. )
  238. if %h% lss %j% (
  239. set t10=%h%
  240. set h=%j%
  241. set j=!t10!
  242. )
  243. rem -----------------------确定第八位数。-------------------------
  244. if %i% lss %j% (
  245. set t10=%i%
  246. set i=%j%
  247. set j=!t10!
  248. )
  249. rem -----------------------确定第九位数。-------------------------
  250. echo 排序后的结果为:%a% %b% %c% %d% %e% %f% %g% %h% %i% %j%
  251. endlocal
  252. pause>nul
  253. goto l
复制代码
学习中

TOP

程序37
battab 发表于 2013-12-13 21:15
  1. @echo off
  2. echo 这女娃代码也不错嘛,值得研究
  3. 下面是我给你补的图片
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

TOP

程序1
  1. @echo off
  2. SetLocal EnableDelayedExpansion
  3. set num=1 2 3 4
  4. for %%a in (%num%) do (
  5. set t_num=!num:%%a=!
  6. for %%b in (!t_num!) do (
  7. set tt_num=!t_num:%%b=!
  8. for %%c in (!tt_num!) do (
  9. echo %%a%%b%%c
  10. )
  11. )
  12. )
  13. pause
复制代码

TOP

程序4
  1. @echo off
  2. SetLocal EnableDelayedExpansion
  3. set /p str=Please enter(2014.7.28):
  4. for /f "delims=. tokens=1-3" %%a in ("%str%") do (
  5. call :jud %%a %%b %%c
  6. echo %%a.%%b.%%c is the !day!day for %%a
  7. pause>nul
  8. )
  9. :jud
  10. for %%i in (1 3 5 7 8 10 12) do set %%i=31
  11. for %%i in (4 6 9 11) do set %%i=30
  12. set /a jud=%1 %% 400
  13. if %jud%==0 (
  14. set 2=29
  15. ) else (
  16. set /a jud=%1 %% 4
  17. if !jud!==0 (
  18. set /a jud=%~1 %% 100
  19. if not !jud!==0 set 2=29
  20. ) else (set 2=28)
  21. )
  22. set /a month=%~2-1
  23. for /l %%i in (1 1 %month%) do (
  24. set /a day+=!%%i!
  25. )
  26. set /a day+=%3
复制代码
哎,不够熟练,竟然花了这么久...

TOP

返回列表