• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    批处理输出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

    您可能感兴趣的文章:
    • C语言实现魔方阵算法(幻方阵 奇魔方 单偶魔方实现)
    上一篇:windows常用网络命令使用脚本分享
    下一篇:Xcopy命令参数使用介绍
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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