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

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

程序：

var

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

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

  n,e,i,j:longint;

procedure init;

  var

    x,y,i:longint;

  begin

    fillchar(g,sizeof(g),0);

    readln(n,e);

    for i:=1 to e do

      begin

        readln(x,y);

        g[x,y]:=1;

        g[y,x]:=1;

      end;

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

end;

procedure dfs(x:longint);

  var

    k:longint;

  begin

    write(x,' ');

    v[x]:=false;

    for k:=1 to n do

      if (g[k,x]=1) and (v[k]) then

        begin

          g[k,x]:=0;

          g[x,k]:=0;

          dfs(k);

        end;

end;

begin

  init;

  dfs(1);

end.

版权属于: Chris

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

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