出题，通过批处理输出九宫格(不限级别) - 中国DOS联盟论坛

结果是8种啊, 我在2楼说2次随机数, 第一次随机数取法有4种可能, 第2次取法只剩2种可能.

所以结果是 4*2=8, 就像15楼做的那样.

确实是有 8 种，
原来如此简单，交换一下位置就可以了。。

@echo off&color 1f

:start

set /a str=2468,e=5,flag=0

set /a w=%random%%%4

call set x=%%str:~%w%,1%%

if defined #%x% goto start

set /a #%x%=1,a=x

call set str=%%str:%a%=%%

set /a i=15-e-a

call set str=%%str:%i%=%%

set /a w=%random%%%2

call set c=%%str:~%w%,1%%

call set str=%%str:%c%=%%

set /a b=15-a-c,d=15-str-a,f=15-d-e,g=str,h=15-g-i

:loop

set /a nn+=1

echo.&echo 第 %nn% 种&echo.

echo ┏━━┳━━┳━━┓

echo ┃ %a% ┃ %b% ┃ %c% ┃

echo ┣━━╋━━╋━━┫

echo ┃ %d% ┃ %e% ┃ %f% ┃

echo ┣━━╋━━╋━━┫

echo ┃ %g% ┃ %h% ┃ %i% ┃

echo ┗━━┻━━┻━━┛

pause>nul&cls

if %flag% equ 0 (

set b=%d%&set d=%b%&set g=%c%&set c=%g%&set h=%f%&set f=%h%&set flag=1&goto loop

)

if %nn% neq 8 goto start

echo.&echo 总共 %nn% 种

pause>nul

小楼一夜听春雨 2008-07-17 11:26

如果纯为显示,而不考虑通用性, 那么我下面的简单代码也能实现.

@echo off

:start
set /a num=%random%%%8
set /a num1=%num%%%2
if %num1%==0 (set str=14789632) else (set str=23698741)

call set "str=%%str:~%num%%%%%str:~0,%num%%%"

for /l %%i in (0,1,7) do call set n%%i=%%str:~%%i,1%%

echo %n1% %n6% %n3%
echo %n4% 5 %n0%
echo %n7% %n2% %n5%
echo.
pause
goto :start

经改良后的方案：


@echo off&setlocal enabledelayedexpansion
:begin
for /l %%i in (1,1,9) do set "_%%i="
set "_5=5"&set "code=12346789"&set /a v=8,n=1
:again
if defined _%n% goto next
set /a a=%random%%%%v%
set "a=!code:~%a%,1!"
set /a m=n%%2,as=a%%2
if %m% equ %as% goto again
set "_%n%=%a%"&set /a b=10-a,c=10-n
set "code=!code:%a%=!"&set "code=!code:%b%=!"&set "_%c%=%b%"&set /a v-=2
:next
set /a n+=1&if !n! neq 5 goto again
set /a num1=_1+_2+_3,num2=_1+_4+_7
for %%i in (1 2) do if !num%%i! neq 15 goto begin
for /l %%i in (1,1,9) do set str=!str!!_%%i!
if defined _%str% (set "str="&goto begin) else (set "_%str%=%str%"&set /a num+=1)
cls&echo.&echo 第%num%种&echo.
set n=0&echo ┏━━┳━━┳━━┓
for /l %%i in (1,1,9) do (set /a n+=1
    set /p=┃ !_%%i!  <nul
    if !n! equ 3 (
       set "n=0"&set /p=┃<nul&echo.
       if %%i neq 9 (
          echo ┣━━╋━━╋━━┫
          ) else (
          echo ┗━━┻━━┻━━┛
)))
if %num% neq 8 ping /n 3 127.1>nul&goto begin
pause>nul

[ Last edited by zw19750516 on 2008-7-17 at 05:43 PM ]

Originally posted by 26933062 at 2008-7-17 11:37:
确实是有 8 种，
原来如此简单，交换一下位置就可以了。。

现在仔细看了小楼兄的代码才知道自己想复杂了，看来老土的思路是完全正确的，确实刚开始写之前多思考下就不至于走那么大的弯路了。

但最值得一提的还是quya老土的解题思路，思路对才能正确解决问题，
这也是我所一直以来信奉的原则，所以我给老土加了满分20分。

非常同意楼主的这个观点，解题思路是首位、代码技巧其次。
一开始看到这个题，我都不知道从哪里下手，本决定放弃解此题的，所以有了3楼的回帖，（2楼的解题思路是后来补上去的）但一看到2楼的思路，茅塞顿开。。。

第16楼　quya	发表于 2008-07-17 08:28
高级用户　发帖 172　积分 558　来自江苏
结果是8种啊, 我在2楼说2次随机数, 第一次随机数取法有4种可能, 第2次取法只剩2种可能. 所以结果是 4*2=8, 就像15楼做的那样.

第17楼　26933062	发表于 2008-07-17 11:37
银牌会员　发帖 879　积分 2,268
确实是有 8 种，原来如此简单，交换一下位置就可以了。。 @echo off&color 1f :start set /a str=2468,e=5,flag=0 set /a w=%random%%%4 call set x=%%str:~%w%,1%% if defined #%x% goto start set /a #%x%=1,a=x call set str=%%str:%a%=%% set /a i=15-e-a call set str=%%str:%i%=%% set /a w=%random%%%2 call set c=%%str:~%w%,1%% call set str=%%str:%c%=%% set /a b=15-a-c,d=15-str-a,f=15-d-e,g=str,h=15-g-i :loop set /a nn+=1 echo.&echo 第 %nn% 种&echo. echo ┏━━┳━━┳━━┓ echo ┃ %a% ┃ %b% ┃ %c% ┃ echo ┣━━╋━━╋━━┫ echo ┃ %d% ┃ %e% ┃ %f% ┃ echo ┣━━╋━━╋━━┫ echo ┃ %g% ┃ %h% ┃ %i% ┃ echo ┗━━┻━━┻━━┛ pause>nul&cls if %flag% equ 0 ( set b=%d%&set d=%b%&set g=%c%&set c=%g%&set h=%f%&set f=%h%&set flag=1&goto loop ) if %nn% neq 8 goto start echo.&echo 总共 %nn% 种 pause>nul 小楼一夜听春雨 2008-07-17 11:26

第18楼　quya	发表于 2008-07-17 13:46
高级用户　发帖 172　积分 558　来自江苏
如果纯为显示,而不考虑通用性, 那么我下面的简单代码也能实现. @echo off :start set /a num=%random%%%8 set /a num1=%num%%%2 if %num1%==0 (set str=14789632) else (set str=23698741) call set "str=%%str:~%num%%%%%str:~0,%num%%%" for /l %%i in (0,1,7) do call set n%%i=%%str:~%%i,1%% echo %n1% %n6% %n3% echo %n4% 5 %n0% echo %n7% %n2% %n5% echo. pause goto :start

第19楼　bat-zw	发表于 2008-07-17 14:10
金牌会员　发帖 1,276　积分 3,105
经改良后的方案： @echo off&setlocal enabledelayedexpansion :begin for /l %%i in (1,1,9) do set "_%%i=" set "_5=5"&set "code=12346789"&set /a v=8,n=1 :again if defined _%n% goto next set /a a=%random%%%%v% set "a=!code:~%a%,1!" set /a m=n%%2,as=a%%2 if %m% equ %as% goto again set "_%n%=%a%"&set /a b=10-a,c=10-n set "code=!code:%a%=!"&set "code=!code:%b%=!"&set "_%c%=%b%"&set /a v-=2 :next set /a n+=1&if !n! neq 5 goto again set /a num1=_1+_2+_3,num2=_1+_4+_7 for %%i in (1 2) do if !num%%i! neq 15 goto begin for /l %%i in (1,1,9) do set str=!str!!_%%i! if defined _%str% (set "str="&goto begin) else (set "_%str%=%str%"&set /a num+=1) cls&echo.&echo 第%num%种&echo. set n=0&echo ┏━━┳━━┳━━┓ for /l %%i in (1,1,9) do (set /a n+=1 set /p=┃ !_%%i! <nul if !n! equ 3 ( set "n=0"&set /p=┃<nul&echo. if %%i neq 9 ( echo ┣━━╋━━╋━━┫ ) else ( echo ┗━━┻━━┻━━┛ ))) if %num% neq 8 ping /n 3 127.1>nul&goto begin pause>nul [ Last edited by zw19750516 on 2008-7-17 at 05:43 PM ]

第20楼　bat-zw	发表于 2008-07-17 17:24
金牌会员　发帖 1,276　积分 3,105
Originally posted by 26933062 at 2008-7-17 11:37: 确实是有 8 种，原来如此简单，交换一下位置就可以了。。现在仔细看了小楼兄的代码才知道自己想复杂了，看来老土的思路是完全正确的，确实刚开始写之前多思考下就不至于走那么大的弯路了。

第21楼　26933062	发表于 2008-07-17 21:30
银牌会员　发帖 879　积分 2,268
但最值得一提的还是quya老土的解题思路，思路对才能正确解决问题，这也是我所一直以来信奉的原则，所以我给老土加了满分20分。非常同意楼主的这个观点，解题思路是首位、代码技巧其次。一开始看到这个题，我都不知道从哪里下手，本决定放弃解此题的，所以有了3楼的回帖，（2楼的解题思路是后来补上去的）但一看到2楼的思路，茅塞顿开。。。