手机
当前位置:查字典教程网 >脚本专栏 >DOS/BAT >批处理输出n阶幻方脚本
批处理输出n阶幻方脚本
摘要:中国古代称为“河图”、“洛书”,又叫“纵横图”。复制代码代码如下:@echooff:startset/pn=Pleaseinputyouro...

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

批处理输出n阶幻方脚本1

复制代码 代码如下:

@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

【批处理输出n阶幻方脚本】相关文章:

批处理修改本地域名解析

批处理FTP上传文件

批处理实现网吧存档

批处理的"循环"效果脚本

Win2003设置IP安全策略批处理脚本

批处理随机取值练习代码

批处理解约瑟夫环应用题代码

不错的批处理脚本 第一部分

使用批处理按要求批量删除文件夹方法汇总

批处理脚本实现提醒下班要打卡

精品推荐
分类导航