广度优先搜索(9)

begin

for i:=1 to 3 do

for j:=1 to 3 do read(Source[i,j]); for i:=1 to 3 do

for j:=1 to 3 do read(Target[i,j]); end;

procedure Initialize; {初始化} var x,y : integer; begin

Found:=false;

Closed:=0;Open:=1;

with List[1] do begin

State:=Source;dep:=0;Father:=0; For x:=1 to 3 do For y:=1 to 3 do

if State[x,y]=0 then Begin x0:=x;y0:=y; End; end; end;

Function Same(A,B : T8No):Boolean; {判断A,B状态是否相等 } Var i,j : integer; Begin

Same:=false;

For i:=1 to 3 do for j:=1 to 3 do if A[i,j]<>B[i,j] then exit; Same:=true; End;

function Not_Appear(New : tList):boolean; {判断New是否在List中出现 } var i : integer; begin

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新人文社科广度优先搜索(9)全文阅读和word下载服务。