国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > BAT > 正文

批處理輸出n階幻方腳本

2020-07-26 20:16:26
字體:
來源:轉載
供稿:網友

中國古代稱為“河圖”、“洛書”,又叫“縱橫圖”。

復制代碼 代碼如下:

@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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 岐山县| 济南市| 四平市| 周口市| 凤冈县| 手游| 沧州市| 株洲市| 平利县| 师宗县| 山西省| 蚌埠市| 汶川县| 磴口县| 东源县| 集安市| 景洪市| 福泉市| 密山市| 巴林左旗| 安吉县| 大渡口区| 彰武县| 阳江市| 定结县| 游戏| 泾阳县| 静宁县| 惠来县| 信宜市| 雷山县| 禄丰县| 修武县| 五寨县| 晴隆县| 南陵县| 冷水江市| 合川市| 彭州市| 横山县| 陕西省|