濮阳杆衣贸易有限公司

主頁 > 知識庫 > 批處理輸出n階幻方腳本

批處理輸出n階幻方腳本

熱門標(biāo)簽:電話機器人全國招商 雷霆電銷機器人怎么樣 電話機器人產(chǎn)品怎么樣 如何申請400電話業(yè)務(wù)mm 清遠百度地圖標(biāo)注店鋪位置 玉林市機器人外呼系統(tǒng)哪家好 呼倫貝爾外呼系統(tǒng) 如何弄地圖標(biāo)注 智能打電話機器人收費

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

復(fù)制代碼 代碼如下:

@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語言實現(xiàn)魔方陣算法(幻方陣 奇魔方 單偶魔方實現(xiàn))

標(biāo)簽:樂山 株洲 公主嶺 白銀 江西 蕪湖 三門峽 臺州

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《批處理輸出n階幻方腳本》,本文關(guān)鍵詞  批處理,輸出,階幻方,腳本,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《批處理輸出n階幻方腳本》相關(guān)的同類信息!
  • 本頁收集關(guān)于批處理輸出n階幻方腳本的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    平邑县| 宁国市| 兴化市| 封丘县| 大冶市| 泸水县| 都匀市| 湘潭县| 开化县| 云林县| 冷水江市| 资中县| 田东县| 商河县| 卢龙县| 黎城县| 天门市| 韩城市| 宣恩县| 呈贡县| 三穗县| 黎城县| 花垣县| 河南省| 哈巴河县| 龙山县| 凯里市| 黔西县| 梅州市| 万安县| 嵊泗县| 仪征市| 荥阳市| 分宜县| 伊金霍洛旗| 德兴市| 邯郸县| 察隅县| 阿巴嘎旗| 安龙县| 张家港市|