洛谷 P3371 【模板】单源最短路径

题目描述

如题，给出一个有向图，请输出从某一点出发到所有点的最短路径长度。

输入输出格式

输入格式：

第一行包含三个整数N、M、S，分别表示点的个数、有向边的个数、出发点的编号。

接下来M行每行包含三个整数Fi、Gi、Wi，分别表示第i条有向边的出发点、目标点和长度。

输出格式：

一行，包含N个用空格分隔的整数，其中第i个整数表示从点S出发到点i的最短路径长度（若S=i则最短路径长度为0，若从点S无法到达点i，则最短路径长度为2147483647）

输入输出样例

输入样例#1：

4 6 1

1 2 2

2 3 2

2 4 1

1 3 5

3 4 3

1 4 4

输出样例#1：

0 2 4 3

说明

时空限制：1000ms,128M

数据规模：

对于20%的数据：N<=5，M<=15

对于40%的数据：N<=100，M<=10000

对于70%的数据：N<=1000，M<=100000

对于100%的数据：N<=10000，M<=500000

样例说明：



分析：spfa模版题。

代码：

const
MaxE=10002;
MaxV=500001;

type
rec=record
x,y,w,next:longint;
end;
var
n,m,c,i,x,y,w,o:longint;
g:array [-1..Maxv] of rec;
ls:array [-1..Maxe] of longint;
v,d,list,sum:array [-1..maxe] of longint;

procedure spfa(first:longint);
var
head,tail,t,i:longint;
begin
tail:=1; head:=0;
list[1]:=first;
for i:=1 to n do
d[i]:=maxlongint;
d[first]:=0;
v[first]:=1;
while tail<>head do
begin
head:=head mod maxe+1;
t:=ls[list[head]];
while t>0 do
with g[t] do
begin
if d[x]+w<d[y] then
begin
d[y]:=d[x]+w;
if v[y]=0 then
begin
v[y]:=1;
tail:=tail mod maxe+1;
list[tail]:=y;
end;
end;
t:=next;
end;
v[list[head]]:=0;
end;
end;

procedure add(x,y,w:longint);
begin
inc(o);
g[o].x:=x;
g[o].y:=y;
g[o].w:=w;
g[o].next:=ls[x];
ls[x]:=o;
end;

begin
read(n,m,c);
for i:=1 to m do
begin
read(x,y,w);
add(x,y,w);
end;
spfa(c);
for i:=1 to n do
write(d[i],' ');
end.