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

Posted 2022-07-14 皇后

篇首语：行是知之始,知是行之成。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全基于Delphi的“八皇后”问题动态实现[2]相关的知识，希望对你有一定的参考价值。

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

　　组件设置　　paintbox 绘图板显示当前的合法布局　　Label 文字标签显示当前合法布局的序号　　Button button button button 开始单幅连续退出按纽

　　程序清单　　（）代码单元unit procedure TForm Button Click(Sender: TObject);begin　dstep:=true;　bhh:=tbhh create(false);　button enabled:=false;　button enabled:=true;　button enabled:=true;end;procedure TForm Button Click(Sender: TObject);begin　if dstep=false then begin bhh suspend; dstep:=true end　else bhh resumeend;procedure TForm Button Click(Sender: TObject);begin　dstep:=false; bhh resume;end;　　（）代码单元unit uses unit ;procedure Tbhh Execute;begin　hsu( );　form button enabled:=true;　form button enabled:=false;　form button enabled:=false;end;procedure tbhh prt;//显示　var i j ix iy:integer;　s:real;iis:string[ ];begin　str(tt: iis);　form label caption:= 第 +iis+ 幅 ;　form paintbox canvas draw( q);　for i:= to do　　for j:= to do　　　if a[i j]= then　　　begin　　　　ix:=(i )* + ;　　　　iy:=(j )* + ;　　　　form paintbox canvas draw(iy ix c);　　　end;　　　if dstep=true then suspend　　　else begin s:= ; for i:= to do s:=s*s/s end;　　end;　　procedure tbhh hsu(i:integer);//回溯求解　　var j:integer;　　begin　　　if i> then begin tt:=tt+ ; synchronize(prt)end　　　else for j:= to do　　　begin a[i j]:= ;if pd(i j) then hsu(i+ );a[i j]:= ;end　　end;　　constructor tbhh create(flag:boolean);//创建该线程的一实例并对有关的变量进行初始化　var i j:integer;　begin　　inherited create(flag);　　q:=tbitmap create;q loadfromfile( e:\\八皇后\\backing bmp );　　c:=tbitmap create;c loadfromfile( e:\\八皇后\\queen bmp );　　for i:= to do　　　for j:= to do　　　　a[i j]:= ; tt:= ;　　　end;　　end cha138/Article/program/Delphi/201311/8515

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

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