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

领测软件测试网

　　　if a[i,j]=1 then
　　　begin
　　　　ix:=(i-1)*50+1;
　　　　iy:=(j-1)*50+1;
　　　　form1.paintbox1.canvas.draw(iy,ix,c);
　　　end;
　　　if dstep=true then suspend
　　　else begin s:=10; for i:=1 to 100000 do s:=s*s/s end;
　　end;
　　procedure tbhh.hsu(i:integer);//回溯求解
　　var j:integer;
　　begin
　　　if i>8 then begin tt:=tt+1; synchronize(prt)end
　　　else for j:=1 to 8 do
　　　begin a[i,j]:=1;if pd(i,j) then hsu(i+1);a[i,j]:=0;end

文章来源于领测软件测试网 https://www.ltesting.net/