源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

批处理输出n阶幻方脚本

  • 时间:2021-01-02 03:29 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:批处理输出n阶幻方脚本
中国古代称为“河图”、“洛书”,又叫“纵横图”。 [img]http://files.jb51.net/file_images/article/201404/20140403095523.jpg?20143395841[/img]
[u]复制代码[/u] 代码如下:
@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
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部