单源最短路径spfa模板（pascal）洛谷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

样例说明：

明天要市赛了，复习一些模板。

program rrr(input,output);
const
  inf=123456789;
type
  etype=record
     t,w,next:longint;
  end;
var
  e:array[0..500050]of etype;
  a,q,dis:array[0..10010]of longint;
  inq:array[0..10010]of boolean;
  n,m,s,i,h,t,u,v,w,cnt:longint;
procedure add(u,v,w:longint);
begin
   inc(cnt);e[cnt].t:=v;e[cnt].w:=w;e[cnt].next:=a[u];a[u]:=cnt;
end;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(n,m,s);
   fillchar(a,sizeof(a),0);
   for i:=1 to m do begin read(u,v,w);add(u,v,w); end;
   fillchar(inq,sizeof(inq),false);
   for i:=1 to n do dis[i]:=inf;
   h:=0;t:=1;q[1]:=s;dis[s]:=0;inq[s]:=true;
   while h<>t do
      begin
         inc(h);if h>10000 then h:=1;
         i:=a[q[h]];
         while i<>0 do
            begin
               if dis[q[h]]+e[i].w<dis[e[i].t] then
                  begin
                     dis[e[i].t]:=dis[q[h]]+e[i].w;
                     if not inq[e[i].t] then
                        begin
                           inq[e[i].t]:=true;
                           inc(t);if t>10000 then t:=1;q[t]:=e[i].t;
                        end;
                  end;
               i:=e[i].next;
            end;
         inq[q[h]]:=false;
      end;
   for i:=1 to n do if dis[i]=inf then write(maxlongint,' ') else write(dis[i],' ');
   close(input);close(output);
end.