如何建立邻接表

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/13 17:20:34
如何建立邻接表如何建立邻接表如何建立邻接表constn=10;e=20;typeedge=^edgenode;edgenode=recordadj:1..n;weight:integer;next:e

如何建立邻接表
如何建立邻接表

如何建立邻接表
const n=10; e=20;
type edge=^edgenode;
edgenode=record
adj:1..n;
weight:integer;
next:edge;
end;
vex=record
data:integer;
lind:edge;
end;
var s:edgenode;
g=array [1..n] of vex;
begin
read(n,e);
for i:=1 to n do
begin
read(g[i].data);
g[i].link:=nil;
end;
for k:=1 to e do
begin
read(i,j,w);
new(s);
s^.adj:=j;
s^.weight:=w;
s^.next:=g[i].link;
g[i].link:=s;
end;
end.