批处理输出n阶幻方脚本

中国古代称为“河图”、“洛书”，又叫“纵横图”。

复制代码 代码如下:
@echo off
:start
set /p n=Please input your odd integer:
set /a p=n%%2
if %p% equ 0 echo Input error!goto start

set /a i=%n%
set /a t=(%n%+1)/2
set /a a%t%_%n%=1,temp=1,m=n-1,p=n
:repeat
set /a p-=1
if %p% lss 0 goto array
for /l %%a in (1 1 %m%) do (
nbsp;nbsp; setlocal enabledelayedexpansion
nbsp;nbsp; if !t! gtr %n% set /a t=1
nbsp;nbsp; if !i! gtr %n% set /a i=1
nbsp;nbsp; set /a s=!t!+1,q=!i!+1
nbsp;nbsp; if !s! gtr %n% set /a s=1
nbsp;nbsp; if !q! gtr %n% set /a q=1
nbsp;nbsp; set /a a!s!_!q!=a!t!_!i!+1,t+=1,i+=1
nbsp;nbsp; set /a temp+=1
nbsp;nbsp; if !temp! equ %n% (
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; set /a temp=1,tmp=a!s!_!q!,q-=1,i-=1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; if !q! equ 0 set /a q=n
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; set /a a!s!_!q!=tmp+1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; goto repeat
)nbsp;nbsp;
)
pause
:array
echo Now behold the powerful Magic Sqaure^^!:
set /a a!t!_!n!=1
for /l %%c in (!n! -1 1) do (
nbsp;nbsp; for /l %%d in (1 1 !n!) do (
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; set /a result=a%%d_%%c
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; set /p=!result!lt;nulnbsp;nbsp;nbsp;nbsp;nbsp;
)
echo.
)
pausegt;nul

（编辑：应用网_丽江站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!