洛谷 P1119 灾后重建

题目背景

B地区在地震过后，所有村庄都造成了一定的损毁，而这场地震却没对公路造成什么影响。但是在村庄重建好之前，所有与未重建完成的村庄的公路均无法通车。换句话说，只有连接着两个重建完成的村庄的公路才能通车，只能到达重建完成的村庄。

题目描述

给出B地区的村庄数N，村庄编号从0到N-1，和所有M条公路的长度，公路是双向的。并给出第i个村庄重建完成的时间t[i]，你可以认为是同时开始重建并在第t[i]天重建完成，并且在当天即可通车。若t[i]为0则说明地震未对此地区造成损坏，一开始就可以通车。之后有Q个询问(x, y, t)，对于每个询问你要回答在第t天，从村庄x到村庄y的最短路径长度为多少。如果无法找到从x村庄到y村庄的路径，经过若干个已重建完成的村庄，或者村庄x或村庄y在第t天仍未重建完成 ，则需要返回-1。

输入输出格式

输入格式：
输入文件rebuild.in的第一行包含两个正整数N，M，表示了村庄的数目与公路的数量。

第二行包含N个非负整数t[0], t[1], …, t[N – 1]，表示了每个村庄重建完成的时间，数据保证了t[0] ≤ t[1] ≤ … ≤ t[N – 1]。

接下来M行，每行3个非负整数i, j, w，w为不超过10000的正整数，表示了有一条连接村庄i与村庄j的道路，长度为w，保证i≠j，且对于任意一对村庄只会存在一条道路。

接下来一行也就是M+3行包含一个正整数Q，表示Q个询问。

接下来Q行，每行3个非负整数x, y, t，询问在第t天，从村庄x到村庄y的最短路径长度为多少，数据保证了t是不下降的。

输出格式：
输出文件rebuild.out包含Q行，对每一个询问(x, y, t)输出对应的答案，即在第t天，从村庄x到村庄y的最短路径长度为多少。如果在第t天无法找到从x村庄到y村庄的路径，经过若干个已重建完成的村庄，或者村庄x或村庄y在第t天仍未修复完成，则输出-1。

输入输出样例

输入样例#1：
4 5
1 2 3 4
0 2 1
2 3 1
3 1 2
2 1 4
0 3 5
4
2 0 2
0 1 2
0 1 3
0 1 4
输出样例#1：
-1
-1
5
4
说明

对于30%的数据，有N≤50；

对于30%的数据，有t[i] = 0，其中有20%的数据有t[i] = 0且N＞50；

对于50%的数据，有Q≤100；

对于100%的数据，有N≤200，M≤N*(N-1)/2，Q≤50000，所有输入数据涉及整数均不超过100000。

题目中说，所有时间的顺序是排好的，所以直接在线floyd即可
每个村庄是按次序修好的，因此将在每个村庄前提问的答案输出即可。
具体见代码：

program df;
var i,j,n,m,x,y,z,k,mm,kk:longint;
a,b,c,d,t:array[0..100000] of longint;
f:array[0..201,0..201] of longint;

procedure deal(i:longint);
begin
if (t[a[i]]>c[i]) or (t[b[i]]>c[i]) or (f[a[i],b[i]]=f[201,201]) then //两个村庄中有任意一个没有被修好，或者修好了但不能通达
begin
writeln(-1);
exit;
end;
writeln(f[a[i],b[i]]);
end;

begin
fillchar(f,sizeof(f),$3f);
readln(n,m);
for i:=0 to n-1 do
begin
read(t[i]);
f[i,i]:=0;
end;
for i:=1 to m do
begin
readln(x,y,z);
f[x,y]:=z;
f[y,x]:=z; //开始时每两个村庄是直接相连的，所以直接赋值
end;
readln(mm);
for i:=1 to mm do
readln(a[i],b[i],c[i]);
k:=1;
for kk:=0 to n-1 do //n个村庄依次修好
begin
while (t[kk]>c[k]) and (k<=mm) do //如果第k个提问的时间在这个村庄被修好之前，直接输出结果
begin
deal(k);
inc(k);
end;
for i:=0 to n-1 do //这个村庄被修好后的最短路
for j:=0 to n-1 do
if f[i,j]>f[i,kk]+f[kk,j] then
f[i,j]:=f[i,kk]+f[kk,j];
end;
while k<=mm do
begin
deal(k);
inc(k);
end;
end.