有关图的存储结构的程序4（图论算…

用广度优先搜索建立图的邻接表。

程序：

var
state,num:array[0..100] of longint;
v:array[0..100] of boolean;
g:array[0..100,0..100] of longint;
n,e:longint;

procedure bfs;
var

head,tail,i,ans:longint;
begin
head:=0;
tail:=1;
state[1]:=1;
v[1]:=false;
ans:=1;
repeat

inc(head);
for
i:=1 to num[state[head]] do

if v[g[state[head],i]] then

begin

inc(tail);

state[tail]:=g[state[head],i];

v[g[state[head],i]]:=false;

end;
until
head>=tail;
for i:=1 to head
do

write(state[i],' ');
end;

procedure init;
var
x,y,i:longint;
begin
readln(n,e);
for i:=1 to e do

begin

readln(x,y);

inc(num[x]);

inc(num[y]);

g[x,num[x]]:=y;

g[y,num[y]]:=x;

end;

fillchar(v,sizeof(v),true);
end;

begin
init;
bfs;
end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0tw.html

转载时必须以链接形式注明原始出处及本声明。