编程基础训练题目及题解（第二辑）.doc

《编程基础训练题目及题解（第二辑）.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、编程某础训练题冃及题解（第二辑）【题目】N皇后问题(含八皇后问题的扩展，规则同八皇后)：在N*N的棋盘上，放置N个皇后，要求每一横行每一列，每一对角线上均只能放置一个皇后，问可能的方案及方案数。constmax^S:vari,j:integer;a:array[1..max]of0..max;｛放皇后数组｝b:array[2..2^max]ofboolean;｛/对角线标志数组｝c:array[-(max-1)..max-1]ofboolean;｛对角线标志数组｝col:array[1..max]ofboolea

2、n;｛列标志数组｝total:integer;｛统计总数｝procedureoutput;｛输出｝vari:integer;beginwriteNo.':4,'[',total+1:2,';fori:=ltomaxdowrite(a[i]:3);write(‘’);if(total+1)mod2=0thenwriteIn;inc(total);encl;functionok(i,dep:integer):boolean;｛判断第dep彳亍第i列可放否｝beginok:二false;if(b[i+dep]二true)

3、and(c[dep-i]二true)｛and(a[dep]=0)｝and(col[i]=true)thenok:=trueend;proceduretry(dep:integer);vari,j:integer;beginfori:=ltomaxdo｛每一行均有max种放法｝ifok(i,dep)thenbegina[dep]:=i;b[i+dep]:=false;｛/对角线已放标志｝c[dep-i]:二false;｛对•角线已放标志｝col[i]:二false;｛列已放标志｝ifdep=maxthenoutpu

4、telsetry(dep+1);｛递归下一*层｝a[dep]:=0;｛取走皇后，冋溯｝b[i+dep]:=true;｛恢复标志数纽｝c[dep-i]:二true;col[i]:二true;end;end;beginfori:=1tomaxdobegina[i]:=0;col[i]:=true;end;fori:二2to2*maxdob[i]:=true;fori:二-(max-1)tomax-1doc[i]:=true;total:=0;try(l);writeln('total:,,total);end.【测试数

5、据】n二8八皇后问题No.[1]1□863724No.[2]16837425No.[3]17468253No.[4]17582463No.[5]24683175No.[6]25713864No.[7]25741863No.[8]26174835No.[9]26831475No.[10]27368亡□14No.[11]27□81463No.[12]28613574No.[13]31758246No.[14]35281746No.[15]35286471No.[16]35714286No.[17]35841726No.

6、[18]36258174No.[19]36271485No.[20]3627L□184No.[21]36418572No.[22]36428571No.[23]36814752No.[24]36815724No.[25]36824175No.[26]37285146No.[27]37286415No.[28]3847162L□No.[29]41582736No.[30]41586372No.[31]42586137No.L32]42736815No.[33]42736851No.[34]42751863No.[35

7、]42857136No.[36]42861357No.[37]46152837No.[38]46827135No.[39]46831752No.[40]47185263No.[41]47382516No.[42]47526138No.[43]47531682No.[44]48136275No.[45]48157263No.[46]48531726No.[47]51468273No.[48]51842736No.[49]51863724No.[50]52468317No.[51]52473861No.[52]5261

8、7483No.[53]52814736No.[54]53168247No.[55]53172864No.[56]53847162No.[57]57138642No.[58]f07142863No.[59]57248136No.[60]L□7263148No.[61]57263184No.[62]57413862No.[63]58413627No.[64]58