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

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

程序：

var

  g:array[1..100,1..100]of longint;

  num:array[1..100]of longint;

  v:array[1..100]of boolean;

  n,m:longint;

procedure init;

  var

    i,x,y:longint;

  begin

    readln(n,m);

    for i:=1 to m 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;

procedure dfs(x:longint);

  var

    j:longint;

  begin

    write(x,' ');

    v[x]:=false;

    for j:=1 to num[x] do

      if v[g[x,j]] then dfs(g[x,j]);

end;

begin

  init;

  dfs(1);

end.

版权属于: Chris

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

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