中国DOS联盟

九宫           

 4  9  2

3  5  7

8  1  6



变成

2  9  4

7  5  3

6  1  8



又变成

6  1  8

7  5  3

2  9  4



又变成

8  1  6

3  5  7

4  9  2



又变成

6  7  2

1  5  9

8  3  4



又变成

8  3  4

1  5  9

6  7  2



等等等等，要求列举所有可能，记住不是罗列，每次显示一种。

@echo off

title 九宫格

mode con cols=40 lines=20

set n1=0

setlocal enabledelayedexpansion



:begin

cls

set n5=5

set str= 1 2 3 4 6 7 8 9

set /a n1+=1

if %n1% gtr 9 exit

call :intercept %n1%

set /a n9=15-%n1%-%n5%

call :intercept %n9%

for %%i in (%str%) do (

    set flag=

    set n2=%%i

    set str_tmp=%str%

    call :intercept !n2!

    set /a n8=15-!n2!-!n5!

    set /a n3=15-!n1!-!n2!

    set /a n7=15-!n8!-!n9!

    set /a n4=15-!n1!-!n7!

    set /a n6=15-!n3!-!n9!

    for %%j in (!n3! !n4! !n6! !n7! !n8!) do call :intercept %%j

    if not "!str!"=="" set flag=1

    set /a sum1=!n3!+!n5!+!n7!

    set /a sum2=!n4!+!n5!+!n6!

    if !sum1! equ 15 if !sum1! equ !sum2! if not defined flag call :result

    set str=!str_tmp!

)

goto begin



:intercept

set str=!str: %1=!

goto :eof



:result

cls

echo.

echo.

echo.

echo            ┌──┬──┬──┐

echo            │ %n1%  │ %n2%  │ %n3%  │

echo            ├──┼──┼──┤

echo            │ %n4%  │ %n5%  │ %n6%  │

echo            ├──┼──┼──┤

echo            │ %n7%  │ %n8%  │ %n9%  │

echo            └──┴──┴──┘

echo.

echo ________________________________________

echo.

echo             按任意键显示下一个

pause>nul

goto :eof

Originally posted by lxmxn at 2007-1-13 04:30 PM:

　　版主实在厉害啊，PF。

所谓魔方阵是指这样的方阵,它的每一行、每一列和对角线之和均相等。如下是三阶魔方阵:



8  1  6

3  5  7

4  9  2





打印魔方阵算法:



1、将1放在第一行中间一列;



2、从2开始直到n*n止各数依次按下列规则存放;每一个数存放的行比前一个数的行数减1,列数加1. 例如上面的三阶魔方阵,5在4的上一行后一列;



3、如果上一个数的行数为1,则下一个数的行数为n(指最下一行). 例如: 1在第1行,则2应放在最下一行,列数同样加1;



4、当上一个数的列数为n时,下一个数的列数应为1,行数减1. 例如: 2在第3行最后一列,则3应放在第2行第1列;



5、如果按上面规则确定的位置上已有数,或上一个数是第1行第n列时,则把下一个数放在上一个数的下面. 例如: 按上面的规定,4应该放在第1行第2列,但该位置已被1占据,所以4就放在3的下面.由于6是第1行第3列(即最后一列),故7放在6下面.按此方法可以得到任何阶的魔方阵.

@ECHO OFF

:TOP

SET /A R=%RANDOM%%%8

SET /A R=%R%+%R%%%2

IF %R% LEQ 0 GOTO TOP

IF 0x00%R% EQU 0x00%A% (

SET Ct=1) ELSE (

SET Ct=0)

SET A=%R%

SET /A E=5

SET /A At=15-%A%

SET /A I=%At%-%E%

SET /A It=15-%I%

SET /A X=15-%A%*2-%E%

IF %X% LEQ 0 SET /A X=~%X%+1

SET /A Y=20-%A%-%X%-%I%

IF %Ct% EQU 0 (SET /A C=%X%,G=%Y%) ELSE SET /A C=%Y%,G=%X% 

SET /A B=%At%-%C%,D=%At%-%G%,F=%It%-%C%,H=%It%-%G%



ECHO %A% %B% %C%

ECHO %D% %E% %F%

ECHO %G% %H% %I%

pause>nul

cls&&goto top