求链表存图代码。Pascal
答案:1 悬赏:0 手机版
解决时间 2021-02-05 07:54
- 提问者网友：酱爆肉
- 2021-02-04 10:29
求链表存图代码。Pascal
最佳答案
- 五星知识达人网友：北方的南先生
- 2021-02-04 12:06
无向图哈~（建立边集）：
program link;
type node=^tnode;
tnode=record
b,c:longint;
next:node;
end;
var g:array[1..1000]of node;
n,m:longint;
procedure init;
var i,j,x,y,z:longint;
q:node;
begin
readln(n,m);
for i:=1 to n do g[i]:=nil;
for i:=1 to m do
begin
readln(x,y,z);
new(q);
q^.b:=y; q^.c:=z; q^.next:=g[x]; g[x]:=q;
new(q);
q^.b:=x; q^.c:=z; q^.next:=g[y]; g[y]:=q;
end;
end;
begin
init;
end.
program link;
type node=^tnode;
tnode=record
b,c:longint;
next:node;
end;
var g:array[1..1000]of node;
n,m:longint;
procedure init;
var i,j,x,y,z:longint;
q:node;
begin
readln(n,m);
for i:=1 to n do g[i]:=nil;
for i:=1 to m do
begin
readln(x,y,z);
new(q);
q^.b:=y; q^.c:=z; q^.next:=g[x]; g[x]:=q;
new(q);
q^.b:=x; q^.c:=z; q^.next:=g[y]; g[y]:=q;
end;
end;
begin
init;
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯