知识大全基于Delphi的“八皇后”问题动态实现[1]

Posted 2022-07-14 皇后

篇首语：春衣少年当酒歌，起舞四顾以笑和。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全基于Delphi的“八皇后”问题动态实现[1]相关的知识，希望对你有一定的参考价值。

基于Delphi的“八皇后”问题动态实现[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

摘要对于八皇后问题的实现如果结合动态的图形演示则可以使算法的描述更形象更生动使教学能产生良好的效果　　关键词 八皇后问题冲突数据结构线程类　　八皇后问题是一个古老而著名的问题是回溯算法的典型例题该问题是十九世纪著名的数学家高斯年提出在 X 格的国际象棋上摆放八个皇后使其不能互相攻击即任意两个皇后都不能处于同一行同一列或同一斜线上问有多少种摆法　　下面用delphi 实现的八皇后问题的动态图形程序能够演示全部的组解八皇后问题动态图形的实现主要应解决以下几个问题　　冲突　　包括行列两条对角线　　（）列规定每一列放一个皇后不会造成列上的冲突　　（）行当第i行被某个皇后占领后则同一行上的所有空格都不能再放皇后要把以i　　为下标的标记置为被占领状态　　（）对角线对角线有两个方向在同一对角线上的所有点（设下标为(i j)）要么(i+j)是常数要么(i j)是常数因此当第i个皇后占领了第j列后要同时把以(i+j) (i j)为下标的标记置为被占领状态　　数据结构　　为了对该问题的执行过程进行控制需将该问题中的主要数据及相应的操作定义成一个线程类方法在New菜单中单击Other选项在对话框中选Thread object 在classs name中输线程类的类名具体定义如下 type　Tbhh = class(TThread)private　a:array[ ]of integer;　tt:integer;　q c:Tbitmap;　procedure prt;　function pd(i j:integer):boolean;　procedure hsu(i:integer);protected　procedure Execute; override;public　constructor create(flag:boolean);end;var　dstep:boolean; 　　解决冲突的具体函数 function pd(i j:integer):boolean;　var i j :integer;begin　pd:=true;　if i<> 　then begin for i := to i do for j := to do 　if a[i j ]= 　then begin if j =j then pd:=false else if abs(i i)=abs(j j)then pd:=false end 　end end; 　　棋盘与棋子的图片（需要用画图程序作出）生成装入及显示过程如下 procedure TForm PaintBox Click(Sender: TObject);　var q:tbitmap;begin　q:=tbitmap create;　q loadfromfile( e:\\八皇后\\backimg bmp );　paintbox canvas Draw( q);end;end cha138/Article/program/Delphi/201311/8516

知识大全 基于Delphi的“八皇后”问题动态实现[1]

知识大全基于Delphi的“八皇后”问题动态实现[1]