洛谷 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模板
代码如下：

type
  rec=record
        x,y,w,next:longint;
      end;

var
  n,m,x,i,k,s:longint;
  g:array[0..1000000] of rec;
  d,ls,list:array[0..1000000] of longint;
  v:array[0..1000000] of boolean;


procedure spfa;
var
  head,tail,t:longint;
begin
  head:=0;
  tail:=1;
  list[1]:=s;
  v[s]:=true;
  while head<tail do
    begin
      inc(head);
      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 not v[y] then
                  begin
                    v[y]:=true;
                    inc(tail);
                    list[tail]:=y;
                  end;
              end;
            t:=next;
          end;
        v[list[head]]:=false;
    end;
end;


begin
  readln(n,m,s);
  for i:=1 to n do
    d[i]:=maxlongint;
  d[s]:=0;
  for i:=1 to m do
    with g[i] do
      begin
        readln(x,y,w);
        next:=ls[x];
        ls[x]:=i;
      end;
  spfa; 
  for i:=1 to n do
    write(d[i],' ');
end.