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做法

var
i,j,k,n,m,t:longint;
list,ans:array[0..10001] of longint;
next,x,y,z,p:array[0..500001] of longint;
f:array[0..500001] of boolean;

procedure spfa;
var
i,head,tail,l:longint;
begin
head:=0;
tail:=1;
while head<tail do
begin
inc(head);
f[p[head-1]]:=false;
l:=list[p[head]];
while l>0 do
begin
if ans[p[head]]+z[l]<ans[y[l]] then
begin
ans[y[l]]:=ans[p[head]]+z[l];
if not f[y[l]] then
begin
inc(tail);
p[tail]:=y[l];
f[y[l]]:=true;
end;
end;
l:=next[l];
end;
end;
end;

begin
readln(n,m,k);
for i:=1 to m do
begin
readln(x[i],y[i],z[i]);
next[i]:=list[x[i]];
list[x[i]]:=i;
end;
for i:=1 to n do
ans[i]:=maxlongint;
fillchar(f,sizeof(f),false);
p[1]:=k;
f[k]:=true;
ans[k]:=0;
spfa;
for i:=1 to n do
write(ans[i],' ');
end.