大学里学的数据结构大家还有印象吧,现在有一个图,我要用delphi遍历出来,大家有这个方面的递归算法吗?谢谢拉!!!

解决方案 »

  1.   

    不知道我是不是说得太抽象
    现在我举个例子.我在数据库里有一张两个字段的表
    pid id 
    1   2
    1   3
    1   4
    2   5
    2   6
    3   6
    4   7
    5   8
    6   8
    7   9用图表现出来就是
                                  1
                                / |  \
                               /  |   \
                               2  3   4
                               |\ |   |
                               | \|   |
                               5  6   7
                               \  /   |
                                8     9
    现在我要用深度遍历的方法得到四条路径:
    1 2 5 8
    1 2 6 8
    1 3 6 8
    1 4 7 9现在很清楚了,大家踊跃发言!!
      

  2.   

    function dfs(g:graph,v:int)
    begin
      visited[v]:=1;
      visitfunc(v);
      w:=firstadjvex(g,v);
      while (w)
        begin
          if (!visited[w]) then
              dfs(g,w)
          w:=nextadjvex(g,v,w)
        end;
    end;
      

  3.   

    ahjoe(强哥)那叫什么哦
     AandB() ( ) 你这个怎么翻译成delphi语言呢:(
     AandB() 我也知道要那么做,可是水平不过关呢