资源描述：
《构造奇数阶幻方的一个程序.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1,oo第2卷第期黄山高等专科学校学报V2Nl1.2年200月0ournouneeeaanl邵fhHllFb20OOaCO·构造奇数阶幻方的一个程序鲍志晖方辉料,,(黄山高专数学系安徽黄山245021),[摘要j本文用数据库语言编写了奇数阶幻方的构造程序使文〔l]的结论更加完善【关键词】奇数阶幻方矩阵计算程序,任意阶幻方的存在性问题是一个早已经解决了的问sJ变量为幻方阶数。。题文〔l]用矩阵的方法给出了奇数阶幻方的二一种构造本SJ0.,。“”12Y:T;文给出这种构造方法的程序设计运行通过@SA请输人幻方阶数GESJ、`’一定理F〔jNCTIONZ;、`’定理设Zk十1阶方阵AB为尸了CT
2、U双E99;..,VAL>=AND二l;232是Zk+1DIsJ5MOD(sJ2)“”23Zk+1ERRoR幻方阶数须不小于5且为奇数l尺五产OCLEAR+一一ZkZk112k22k关、、,、、定义A召C三个二维数组代表ABC三个矩阵+一Zk1122k1Zk,,,,,刀从伍入哪ONA(JSSJ)B(.SJJS)C(SJSJ)、`.J++`卫.xl0Zk(Zk1)l(Zk1)weltelI二1++凡艰(T〕SJ1(Zk1)2(Zk1)F口尺二1了’(〕2(Zk+l)+1)3(Zk+1)JSJ(Zk,,,A二月F(I+一1<二I+一1I十一l(IJ)JJSJJ(Zk一1)(Zk+l)(Zk一2
3、)(Zk+l)一Zk(Zk+1)SJ)+一+Zk(Zk1)(Zk1)(Zk1)⋯&&给数组A赋值二A十B令C二IFIJ,,,,,,i:=4k+ll24,()当时对矩阵C交换列()(3)(5B(I=J)0,,,,,,,6)⋯1一121)1+221+3)⋯4141+1(2(2()得矩阵E乙毖、,。T4,14卜;4:+一,二一,一,一`则T为阶幻方B(IJ)刀F(JS+IJ(JSJS+lJIJ)SJ,,,,,,11=41+3l24()当时对矩阵C交换列()(3)&&给数组B赋值,,,二,,,+,十41+l42+24`34`341+(56)()得矩阵T则T为E闪DIF。,,,3阶幻方C(IJ,二A
4、+B(IJ)(IJ)、二程序及例子&&给数组C赋值了坂O仪刃U尺EIIFE从开石叹SETI讯LK〔环下石ND(F艰,SETSAFETYOFFRELEASEAB、CLI洪R&&释放AB变量:一一收稿日期19990710,:,。;方辉作者简介鲍志晖黄山高专教师黄山高专讲师115“,”,,Tlr倒EDS(sJS)T把幻方枪出到交本幻方XT中JI.,“”&&定义二维数组T代表幻方TsETI)EVICE了DIFLE幻方1飞T,,“”,,交换列@02SAYC+SRT(JS20)二DOCASE凡刃之I1了DsJ,例刃口(=1厂石叹二CA朋SJ4)J1了飞〕SJ,,,,n=41+lI40)&&时@15JS
5、AYSRT(C(J)少刃尺J二1了’ONI(TsJ4/)公们FOR,=F口Rl1了OsJENOJ叱)R,`,,,“”,,T2一1)=C(I25+l2YT+S20}(IJJ)回SART(SJ,,,*T(I2二C(I2一lFORI二J)J)1OTsJ,,,,TI+1一2二C(I+2一2FORJ=11(JSJ)SJJ)’OjS,,,,,`,*+,TI+2一2二C(I+l一2S1+I5JSAYS(T(IJ)40)(SJJ)JSJ)回RTEM)凡〕尺ENDFO叹ENI)FOREND石石吸=1F口尺IOTsJsETI)EVICEOT义祝石EN,,T(IT(沱)+l=C(+1,,NISJ)INIT(SJ
6、龙))侧见五冷SECTsJ,,E从)凡)尺&&释放变量CTSJ,加托)D4=3,,以sE(SJ)DEFINrEWINDOWHFWNI万’ROMOO(T〕2478;“”&&n二41十3;当时ITLTE幻方厂D尺J“1T(SJ2/)SYSI飞M;OTNI于习丘I=1TOJSCO乙OR(S井伍ME11,*,`2一l二口T(IJ)C(12J)&&定义窗.,,,,;二一1了次丁W仆范旧Wl仆W到VT(I2J)C(I2J)州吧旧了OOMM幻方,END(F〕尺N〔〕凡)I了,END(F)R&&在窗口中显示文本文本可直接打印,二卢粉尺I1oTsj左石上EAsEW乃苗心WH石WIN,,T(I=C(I&&释放
7、口SJ)SJ)窗五护心刀飞〕丘RETURNENOCA朋,:117。=41+1例子例构构阶幻方()C17é1l泞,奋``.`ó几`,胜,l八`侍内ó`户nUOUnOUQ,户于门一`.几1名ln洲ó曰ùōù曰以ú训以ù尸óù曰ó口卜Olt伟口ù,ftz峥、以月口J,、274258242274563819H67851349178162件,肠464820踢5花73劝23邓513468Q1,),2,3250686040541423
