简要咨询咨询QQ网站导航网站搜索手机站点联系我们设为首页加入收藏 

批处理输出n阶幻方脚本

来源:易贤网   阅读:999 次  日期:2014-05-13 11:34:23

温馨提示:易贤网小编为您整理了“批处理输出n阶幻方脚本”,方便广大网友查阅!

批处理输出n阶幻方脚本

幻方又称为魔方,方阵或厅平方。在一个由若干个排列整齐的数组成的正方形中,图中任意一横行、一纵行及对角线的几个数之和都相等,具有这种性质的图表,称为“幻方”,下面是一个用批处理输出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 (

setlocal enabledelayedexpansion

if !t! gtr %n% set /a t=1

if !i! gtr %n% set /a i=1

set /a s=!t!+1,q=!i!+1

if !s! gtr %n% set /a s=1

if !q! gtr %n% set /a q=1

set /a a!s!_!q!=a!t!_!i!+1,t+=1,i+=1

set /a temp+=1

if !temp! equ %n% (

set /a temp=1,tmp=a!s!_!q!,q-=1,i-=1

if !q! equ 0 set /a q=n

set /a a!s!_!q!=tmp+1

goto repeat

)

)

pause

:array

echo Now behold the powerful Magic Sqaure^^!:

set /a a!t!_!n!=1

for /l %%c in (!n! -1 1) do (

for /l %%d in (1 1 !n!) do (

set /a result=a%%d_%%c

set /p=!result!<nul

)

echo.

)

pause>nul

更多信息请查看IT技术专栏

更多信息请查看脚本栏目
点此处就本文及相关问题在本站进行非正式的简要咨询(便捷快速)】     【点此处查询各地各类考试咨询QQ号码及交流群
上一篇:bat+xcopy实现只复制比目标文件更新的文件
下一篇:windows常用网络命令使用脚本分享
易贤网手机网站地址:批处理输出n阶幻方脚本
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!