題目大意：

給出一個 N 個頂點 M 條邊的無向無權圖，頂點編號為 1-N。問從頂點 1 開始，到其他每個點的最短路有幾條。

題解：

更新邊長的時候如果大於號就覆蓋，有相同最短路徑就相加。

代碼：

 1 const
 2   mo=100003;
 3 type
 4   arr=record
 5     y,next:longint;
 6   end;
 7 var
 8   n,m,nm:longint;
 9   a:array [0..4000001] of arr;
10   ls,d,ans,list,v:array [0..1000001] of longint;
 
11 procedure add(x,y:longint);
12 begin
13   inc(nm);
14   a[nm].y:=y; a[nm].next:=ls[x]; ls[x]:=nm;
15 end;
16 
17 procedure init;
18 var
19   i,x,y:longint;
20 begin
21   readln(n,m);
22   for i:=1 to m do
23     begin
24       readln(x,y);
25       add(x,y); add(y,x);
26     end;
27
 
 end;
28 
29 procedure spfa;
30 var
31   head,tail,i,x:longint;
32 begin
33   fillchar(d,sizeof(d),63);
34   head:=0; tail:=1;
35   list[1]:=1; d[1]:=0; ans[1]:=1;
36   repeat
37     inc(head);
38     x:=list[head];
39     i:=ls[x];
40     while i<>0 do
41       with a[i] do
42         begin
 

43           if d[x]+1<d[y] then
44             begin
45               d[y]:=d[x]+1;
46               ans[y]:=ans[x];
47               if v[y]=0 then
48                 begin
49                   inc(tail);
50                   list[tail]:=y;
51                   v[y]:=1;
52                 end;
53             end else
54             if d[y]=d[x]+1 then
55               ans[y]:=(ans[y]+ans[x]) mod mo;
56           i:=next;
57         end;
58     v[x]:=0;
59   until head>tail;
60 end;
61 
62 procedure print;
63 var
64   i:longint;
65 begin
66   for i:=1 to n do
67     writeln(ans[i]);
68 end;
69 
70 begin
71   init;
72   spfa;
73   print;
74 end.

洛谷_P1144_最短路計數