中国DOS联盟

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::      汉诺塔      ::::::::::::::::::::::::::::
::::::::::::::::::::::::::::{s11ss  2007-9-21}::::::::::::::::::::::::::::
:r
echo 问题：
echo 1.有三根杆子A，B，C。A杆上有若干碟子,根据直径从小到大编号；
echo 2.每次移动一块碟子,小的只能叠在大的上面；  
echo 3.把所有碟子从A杆全部移到C杆上。
echo.
echo 请输入最初A杆上的碟子数：
set /p n=
echo.
echo 解决方案：
set /a counter=1
set /a nn=!n!
set /a nnn=!n!
call :m !n! A B C
goto :eof
:m
set A=%1
set B=%2
set C=%3
if !n! equ 1 (
        call :p 1 %A% %C%
        goto :eof
) else (
        set /a nn=!nn!-1& call :m !nn! %A% %C% %B%
        call :p !n! %A% %C%
        set /a nnn=!nnn!-1& call :m !nn! %B% %A% %C%
        goto :eof
)
:p
echo !counter!. 把碟子%1号从%2杆移到%3杆
set /a counter+=1
goto :eof
:e
echo.
echo Press Any Key To Exit...
pause>nul

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::      汉诺塔      ::::::::::::::::::::::::::::
::::::::::::::::::::::::::::{s11ss  2007-9-21}::::::::::::::::::::::::::::
:r
echo 问题：
echo 1.有三根杆子A，B，C。A杆上有若干碟子,根据直径从小到大编号；
echo 2.每次移动一块碟子,小的只能叠在大的上面；  
echo 3.把所有碟子从A杆全部移到C杆上。
echo.
echo 请输入最初A杆上的碟子数：
set /p n=
echo.
echo 解决方案：
set /a counter=1
::set /a nn=%n%        ::goto :eof)
::set /a nnn=%n%
call :m %n% A B C
goto :eof
:m
set /a nn=%1
set A=%2
set B=%3
set C=%4
if %nn% equ 1 (
        call :p 1 %A% %C%
) else (
        set /a nnn=%nn%-1
        call :m !nnn! %A% %C% %B%
        call :p %nn% %A% %C%
        call :m !nnn! %B% %A% %C%
)
goto :eof
:p
echo %counter%. 把碟子%1号从%2杆移到%3杆
set /a counter+=1
goto :eof
:e
echo.
echo Press Any Key To Exit...
pause>nul

@echo off
::::::::::::::::::::::::::::      汉诺塔      ::::::::::::::::::::::::::::
::::::::::::::::::::::::::::{s11ss  2007-9-22}::::::::::::::::::::::::::::
echo 问题：
echo 1.有三根杆子A，B，C。A杆上有若干碟子，根据直径从小到大编号；
echo 2.每次移动一块碟子,小的只能叠在大的上面；  
echo 3.把所有碟子从A杆全部移到C杆上。
echo.
:RecNum
echo 请输入最初A杆上的碟子数：
set /p n=
if "%n%" equ "" goto :RecNum
set /a seq=0
:CheckNum
if %n% gtr 31 (echo 溢出...最大只能是31。 & goto :RecNum)
call set one=%%n:~%seq%,1%%
if not "%one%" equ "" (
        set isnum=False
        for /l %%a in (0,1,9) do (
                if "%one%" equ "%%a" (
                        set /a seq+=1
                        set isnum=True
                        goto :CheckNum
                )
        )
)
if %isnum% equ False goto :RecNum
set /a r=1
for /l %%a in (1,1,%n%) do (
        set /a r*=2
)
set /a stepno=%r%-1
set flag=
set /p c=是否只计算要经历多少步?(y/n)
if %c% equ y goto :CalCounter
if %c% equ Y goto :CalCounter
set /p w=是否将解决方案写入到文件%n%_HanoTower.txt?(y/n):
if not %w% equ y (if not %w% equ Y (goto :Main))
:WriteFile
set flag=^>^>%n%_HanoTower.txt
echo off >%n%_HanoTower.txt
:Main
echo.
echo 计算中...
echo.
%flag% echo 最初A杆上的碟子数是%n%。
%flag% echo 解决方案：
set /a counter=0
set punctuation=；
call :MoveOneDiscs %n% A B C
goto :EchoExit
:MoveOneDiscs
set /a nn=%1
set A=%2
set B=%3
set C=%4
if %nn% equ 1 (
        call :MoveOneDisc 1 %A% %C%
) else (
        call :MoveOneDiscs %nn%-1 %A% %C% %B%
        call :MoveOneDisc %nn% %A% %C%
        call :MoveOneDiscs %nn%-1 %B% %A% %C%
)
goto :eof
:MoveOneDisc
set /a counter+=1
if %counter% equ %stepno% (set punctuation=。)
%flag% echo %counter%. 把碟子%1号从%2杆移到%3杆%punctuation%
goto :eof
:CalCounter
set /a counter=%stepno%
:EchoExit
echo.
echo 最少须%counter%步。
echo 方案已解决。
echo 按任意键退出...
pause>nul