2011图及其应用.ppt

图的邻接表表示法是指对图中的每个顶点vi（1=i=n)建立一个邻接关系的单链表，并把它们的表头指针用一维向量数组存储起来的一种图的表示方法。 为每个顶点vi（1=i=n）建立的单链表，是表示以该顶点为起点的所有边的信息（包括一个终点(邻接点)序号、一个权值和一个链接域。一维向量数组除了存储每个顶点的表头指针外，还要存储该顶点的编号i。 用静态指针实现 const n=10;e=20; type pnode=integer; //静态指针 tnode=record //边结点信息 adv:1..n; //边的终点 next:pnode; //指向下一条边的链接 end; tedge=array[0..e] of tnode;//存储所有的边 tlist=array[1..n] of pnode;//邻接表表头 下面给出有向图的邻接链表的建立过程： var g:tlist; es:tedge; begin read(n,e); for i:=1 to n do g[i]=0; //初始化邻接表 for k:=1 to e do begin read(i,j);//读入一条边 es[k].adv:=j; //插入到边集中 es[k].next:=g[i];//将边插入i的链接表的表头 g[i]:=k; end; end; 邻接矩阵：代码书写简单，找邻接点慢 邻接表：代码书写较复杂，找邻接点快 稀疏图：边表 type node=record w:integer; //边权 u,v:integer; //两个结点 end; var e: array[1..maxn*(maxn-1) div 2] of node; //边 求无向的连通分量 sum:=0; for i:=1 to n do if not f[i] then begin inc(sum); dfs(i); end; writeln(sum); readln(n); for i:=1 to n do begin read(k); for j:=1 to k do begin read(x); a[i,x]:=1;a[x,i]:=1; end; end; procedure dfs(i,k:integer);//从i点开始找点，已有k个点 var j:integer; begin if (k=n)and(a[b[1],b[k]]=1) then print(1); for j:=1 to n do if (a[i,j]=1) and (visited[j]=0) then begin visited[j]:=1; b[k+1]:=j; dfs(j,k+1); visited[j]:=0; end; end; procedure main; begin fillchar(visited,sizeof(visited),0); b[1]:=1; visited[1]:=1; dfs(1,1); print(0); end; 主程序 fillchar(visited,sizeof(visited),0); b[1]:=1; visited[1]:=1; dfs(1,1); 搜索过程 procedure dfs(i,k:integer); //已找到第k个数是i，找第k+1个 var j:integer; begin if (n=k)and(check(b[1]+b[k])) then print(1); for j:=1 to n do if (visited[j]=0) and (check(i+j)) then begin visit