- 25
- 0
- 约1.21万字
- 约 42页
- 2017-06-07 发布于浙江
- 举报
广度【宽度】优先搜索l
广度(宽度)优先搜索;深度搜索与广度搜索区分;一些基本概念;广度优先搜索的过程 ;广度搜索策略;广度优先搜索算法描述:;广度优先搜索注意事项;八数码问题 ;八数码问题扩展搜索树 ;综合数据库(变量设置);产生式规则(关系);控制策略 ;八数码问题宽度优先算法框架;八数码参考程序(宽度优先);procedure GetInfo; {读入初始和目标节点}
var i,j : integer;
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
原创力文档

文档评论(0)