八数码难题_广度双向搜索_谁来解释下代码

程序如下：

program num8;
const maxn=4000;
type jid=record
str:string[9];
f:0..maxn;
dep:byte;
end;
bin=0..1;
var c:array[0..1,1..maxn] of ^jid;
head,tail:array[0..1] of integer;
start,goal:string[9];
procedure init;
var i,j:integer;
begin
start:='283164705';
goal:='123804765';
for i:=0 to 1 do
for j:=1 to maxn do
new(c[i,j]);
c[0,1]^.str:=start; c[0,1]^.f:=0; c[0,1]^.dep:=0;
c[1,1]^.str:=goal; c[1,1]^.f:=0; c[1,1]^.dep:=0;
for i:=0 to 1 do
begin head[i]:=0;tail[i]:=1;end;
end;
procedure print(st:bin;tail,k:integer);
procedure print0(m:integer);
begin
if m<>0 then
begin print0(c[0,m]^.f);writeln(c[0,m]^.str) end;
end;
procedure print1(m:integer);
var n:integer;
begin
n:=c[1,m]^.f;
while n<>0 do
begin writeln(c[1,n]^.str); n:=c[1,n

八数码难题_广度双向搜索_谁来解释下代码 谁能提供一下广度优先搜索中的八数码问题的源代码pascal的 八数码难题 设计一个例如八数码难题或者其他复杂的搜索类难题 谁来帮帮我?????^_^ !@#$%^&*()_+$% ???????^_^??????????????? pascal解八数码难题 补充成语:(_)来(_)患 _来桃李_芬芳,_到梅花传妙技.