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

读心术P处理版

我测试了,真准! 哈哈
  1. :: 版本一:
  2. @echo off
  3. :: code by jm modified by youxi01 2006-12-3 CMD@XP
  4. :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=25369
  5. title 读心术P处理版
  6. mode con cols=80 lines=25
  7. :begin
  8. cls
  9. setlocal enabledelayedexpansion
  10. set str=☆★○●◎◇◆□■△▲※→←↑↓〓@〖〗【】『』≈≡∑∈⊙∵∴¤
  11. for /l %%i in (0,1,99) do (
  12. set /a random_=!random!%%32
  13. call set var%%i=%%str:~!random_!,1%%
  14. )
  15. echo.
  16. echo 99 %var99% 79 %var79% 59 %var59% 39 %var39% 19 %var19% ^| ① 从10~99之间任意选择一个数
  17. echo 98 %var98% 78 %var78% 58 %var58% 38 %var38% 18 %var81% ^|
  18. echo 97 %var97% 77 %var77% 57 %var57% 37 %var37% 17 %var17% ^| ② 把这个数的十位与个位相加
  19. echo 96 %var96% 76 %var76% 56 %var56% 36 %var81% 16 %var16% ^|
  20. echo 95 %var95% 75 %var75% 55 %var55% 35 %var35% 15 %var15% ^| ③ 再把任意选择的数减去这个和
  21. echo 94 %var94% 74 %var74% 54 %var81% 34 %var34% 14 %var14% ^|
  22. echo 93 %var93% 73 %var73% 53 %var53% 33 %var33% 13 %var13% ^|   例如:你选的数是23
  23. echo 92 %var92% 72 %var81% 52 %var52% 32 %var32% 12 %var12% ^|
  24. echo 91 %var91% 71 %var71% 51 %var51% 31 %var31% 11 %var11% ^|   然后2+3=5,然后23-5=18
  25. echo 90 %var90% 70 %var70% 50 %var50% 30 %var30% 10 %var10% ^|
  26. echo 89 %var89% 69 %var69% 49 %var49% 29 %var29% 9 %var81% ^| ④ 在图表中找出与差值对应的图形
  27. echo 88 %var88% 68 %var68% 48 %var48% 28 %var28% 8 %var8% ^|
  28. echo 87 %var87% 67 %var67% 47 %var47% 27 %var81% 7 %var7% ^|   并把这个图形牢记心中
  29. echo 86 %var86% 66 %var66% 46 %var46% 26 %var26% 6 %var6% ^|
  30. echo 85 %var85% 65 %var65% 45 %var81% 25 %var25% 5 %var5% ^| ⑤ 然后进入下一步
  31. echo 84 %var84% 64 %var64% 44 %var44% 24 %var24% 4 %var4% ^|
  32. echo 83 %var83% 63 %var81% 43 %var43% 23 %var23% 3 %var3% ^| ⑥ 你会发现:显示出来的图形
  33. echo 82 %var82% 62 %var62% 42 %var42% 22 %var22% 2 %var2% ^|
  34. echo 81 %var81% 61 %var61% 41 %var41% 21 %var21% 1 %var1% ^|   就是你刚刚心里记下的那个图形
  35. echo 80 %var80% 60 %var60% 40 %var40% 20 %var20% 0 %var0% ^|
  36. echo ^|
  37. echo _______________________________________________________________________________
  38. echo 按任意键进入下一步...
  39. pause>nul
  40. cls
  41. for /l %%i in (1,1,9) do echo.
  42. echo 通过心灵感应,发现这个图形正是你所想的:%var81%
  43. for /l %%i in (1,1,9) do echo.
  44. echo.
  45. echo.
  46. echo 按任意键再来一次...
  47. pause>nul
  48. goto begin
  49. pause>nul
  50. goto begin
  51. :: 版本二:
  52. @echo off
  53. :: code by jm 2006-12-21 CMD@XP
  54. :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=25369
  55. title 读心术P处理版
  56. :begin
  57. mode con cols=90 lines=30
  58. cls
  59. echo.
  60. echo   从10~99之间任意选择一个数,把这个数的十位与个位相加,再把任意选择的数减去这个和,
  61. echo 例如:你选的数是23,然后2+3=5,然后23-5=18,在图表中找出与差值对应的符号,并把这个符号
  62. echo 牢记心中,然后进入下一步,你会发现:显示出来的符号就是你刚刚心里记下的那个符号。
  63. echo.
  64. echo _________________________________________________________________________________________
  65. echo.
  66. set str=☆★○●◎◇◆□■△▲※→←↑↓〓@〖〗【】『』≈≡∑∈⊙∵∴¤
  67. set begin_num=9
  68. set end_num=1
  69. set num=0
  70. setlocal enabledelayedexpansion
  71. :loop
  72. for /l %%i in (9,-1,0) do (
  73. for /l %%j in (%begin_num%,-2,%end_num%) do (
  74. set /a num+=1
  75. set /a random_=!random!%%32
  76. set /a ordinal=1%%j%%i-100
  77. if !ordinal! lss 10 set ordinal= !ordinal!
  78. call set var!ordinal!=%%str:~!random_!,1%%
  79. set /a ordinal_mod=!ordinal!%%9
  80. if !num! gtr 1 if !num! lss 100 if !ordinal_mod! equ 0 set var!ordinal!=!var18!
  81. set /a line_mod=!num!%%5
  82. call set var=!var! !ordinal! %%var!ordinal!%%
  83. if !line_mod! equ 0 echo !var!&set var=
  84. )
  85. )
  86. if %num% equ 100 goto end
  87. if %num% equ 50 (
  88. set begin_num=8
  89. set end_num=0
  90. goto loop
  91. )
  92. :end
  93. echo _________________________________________________________________________________________
  94. echo 按任意键进入下一步...
  95. pause>nul
  96. cls
  97. mode con cols=25 lines=10
  98. echo.
  99. echo 你想要的符号是:
  100. echo ╭────╮
  101. echo │ │
  102. echo │ %var18% │
  103. echo │ │
  104. echo ╰────╯
  105. echo.
  106. echo 按任意键再来一次...
  107. pause>nul
  108. goto begin
复制代码
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

原理很简单嘛!刚开始我就看出来了,10-19之间的数字按照那个算法得到的数字都是9,20-29之间的数得到的数都是18,30-39之间的数的到的数都是27,。。。。90-99的数得到的数都是81。看结果9,18,27,。。。81,看出来了吧!你再看看这几个数字所代表的图形是不是都一样的!呵呵。。明白了吧!所以这不是读心术,完全是骗懒人的!呵呵。。抱歉,你也要活动活动了!哈哈。。

TOP

哈哈
发现了。。。
我说怎么这么神奇呢
smilodiao好久没出作品了啊
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

关键是我现在还是学生,不能成天的研究批处理啊,呵呵。。我现在在自学vb编程,打算把vb学习得差不多了就自学c++,上学期学校教c++了,可惜啊,只学习到了冒泡排序法的编写,可能以后就不教了,我们的专业和计算机沾边,大学是什么都学,但是不求精,可能连皮毛都没有学习到,难怪大学生都找不到工作!因为奇怪了,大学计算机专业是先学习c++再学习vb,结果呢c++编写的程序还是黑忽忽的界面和dos差不多,连mfc都没学,而vb呢?到了快毕业还不会编写俄罗斯方块!真丢人啊!所以我还是靠自学吧!我现在自学的vb水平比大三的水平还要高好多!不是我聪明!是大学的白痴教育!还吹虚说什么全面教育!屁!什么都学什么都不会!呵呵。。。我的废话好多。。见谅。。

TOP

呵呵我大2呢
其实我觉的大学教育做的比较好了
o(∩_∩)o
毕竟是大学,不是小学不?
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

@goto start1
楼主啊!  
两个代码为什么不用两个code来扩呢?这样我们还是不好复制啊!!!
这么多 echo  我来整理整理。
:: 版本一:
:start1
  1. @echo off&title 读心术P处理版
  2. mode con cols=80 lines=25
  3. :begin
  4. setlocal enabledelayedexpansion
  5. set 4=① 从10~99之间任意选择一个数
  6. set 14=② 把这个数的十位与个位相加
  7. set 24=③ 再把任意选择的数减去这个和
  8. set 34=   例如:你选的数是23
  9. set 44=   然后2+3=5,然后23-5=18
  10. set 54=④ 在图表中找出与差值对应的图形,
  11. set 64=   并把这个图形牢记心中
  12. set 74=⑤ 然后进入下一步
  13. set 84=⑥ 你会发现:
  14. set 94=   显示出来的图形就是你刚刚心里记下的那个图形
  15. echo.
  16. set str=☆★○●◎◇◆□■△▲※→←↑↓〓@〖〗【】『』≈≡∑∈⊙∵∴¤
  17. for /l %%i in (0,1,99) do (
  18.   set /a random_=!random!%%32
  19.   call set var%%i=%%str:~!random_!,1%%
  20. )
  21. for /l %%a in (9 9 117) do set var%%a=!var81!
  22. for /l %%a in (0 1 99) do (
  23.   set /a max+=1&set abc=00%%a
  24.   set abc=!abc:~-2!
  25.   set /p=!abc! !var%%a! <nul
  26.   if !max! equ 5 set /p= ^| !%%a!<nul&echo.&set max=0
  27.   )
  28. echo.&echo  按任意键进入下一步...
  29. pause>nul&cls
  30. for /l %%i in (1,1,18) do (
  31.   echo.&if %%i equ 9 echo  通过心灵感应,发现这个图形正是你所想的:%var117%
  32. )
  33. echo  按任意键再来一次...
  34. endlocal&pause>nul
  35. cls&goto begin
复制代码

[ 本帖最后由 随风 于 2007-11-27 15:18 编辑 ]
技术问题请到论坛发帖求助!

TOP

呵呵
转载的,只注意了功能。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

如果这个数的十位是x个位是y
这个数就是10x+y
(10x+y)-(x+y)=9x
永远是9的倍数

TOP

收藏了,学习一下。谢谢分享。

TOP

回复 8# zxr1001


聪明~
所以只要让9的倍数9、18、27...都是同样的图形就可以了~
我玩flash版本的~

TOP

回复 1# novaa


    这个算法我完全看不懂

TOP

回复 6# 随风


    我发现有时候不准,比如我想了个18

TOP

返回列表