随风

好复杂 。。。

@echo off&setlocal enabledelayedexpansion
set "str=12345670"
for /l %%a in (1 1 7) do (
   set "var=!str!"
   for /l %%i in (1 1 4) do (
     set "var=!var: =!"&set "num1=!var:~0,1!"&set "flag="
     for /l %%b in (0 1 7) do set var=!var:%%b= %%b !
     set "var2=!var:~2!"
     for %%b in (!var2!) do (
        if not defined flag (
          if not defined .!Num1!%%b if not defined .%%b!Num1! (
             set .!Num1!%%b=a&set .%%b!Num1!=a&set flag=a&set "t=!Num1!-%%b"
             for %%i in (!num1! %%b) do set var=!var:%%i=!
    )))
     set "#%%a=!#%%a! !t!"
    )
    echo 第 %%a 天 !#%%a!
)
echo=&pause
复制代码

[ 本帖最后由 随风 于 2009-5-27 01:16 编辑 ]

随风

好思路，不过代码好像可以更简单。

@echo off&setlocal enabledelayedexpansion
set "str=1234567"
for /l %%i in (1 1 7) do (
   set "str=!str:~1!!str:~0,1!"
   set "var= !str:~0,-1!"
   for /l %%a in (1 1 3)do set .%%i=!.%%i! !var:~%%a,1!-!var:~-%%a,1!
   echo 第 %%i 天  !.%%i! !str:~-1!-0
)
echo=&pause
复制代码

[ 本帖最后由 随风 于 2009-5-27 11:50 编辑 ]

随风

这种算法只适合队伍数为单数时，否则会有重复。

@echo off
set "zm=ABCDEFGHIJLMNOPQRSTUVWXYZ"
:loop
setlocal enabledelayedexpansion
set /p n=请输入队伍的数量，只能是单数（从3—25）：&cls
set /a m=n/2,x=n%%2
if !x! equ 0 endlocal&goto loop
set "str=!zm:~0,%n%!"
for /l %%i in (1 1 !n!) do (
   set "str=!str:~1!!str:~0,1!"
   set "var= !str:~0,-1!"
   for /l %%a in (1 1 !m!)do set .%%i=!.%%i! !var:~%%a,1!-!var:~-%%a,1!
   echo 第 %%i 轮对阵表：!.%%i!  轮空：!str:~-1!
)
echo=&endlocal&goto loop
复制代码