作业帮如何建立邻接表
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/13 07:33:44
如何建立邻接表
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.
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.