pascal_第12讲_树与图的简介.ppt

寿光现代中学 线性结构 栈 队列 定义 存储 操作 应用 寿光现代中学 非线性结构 树 图 定义 存储 操作 应用 寿光现代中学 作业 课本例题 寿光现代中学 寿光现代中学 6 2 3 6 3 4 5 6 3 1 4 6 3 2 3 5 3 2 4 6 4 1 2 3 5 1 2 3 5 4 6 3)、给出每个顶点的邻接点 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; 寿光现代中学 1 2 5 3 4 4 无权图:设置结点指针 结点 邻接点指针 2、邻接表 : 1 2 3 4 5 2 3 ^ 4 1 3 ^ 5 1 2 ^ 5 1 ^ 5 2 3 ^ 4 邻结点 头结点 寿光现代中学 type point=^node; node=record v:integer; next:point; end; var a:array[1..maxv]of point; v next readln(n1,n