洛谷 1119 灾后重建

题目描述     给出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。 输入格式：     第一行包含两个正整数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

解题思路：

    用flody 具体的方法就是：排序后最外重k的循环表示到前k个人为止，所算出的最短路（当然如果询问的点本身大于k就要输出-1）

代码:

var   n,m,i,j,g,x,y,z,k,h:longint;   t:array[0..200000]of longint;   f,a:array[0..500,0..500]of longint; begin   readln(n,m);   for i:=1 to n do     read(t[i]);   readln;   t[n+1]:=maxlongint;   fillchar(f,sizeof(f),$1);   for i:=1 to m do     begin       readln(x,y,z);       inc(x);inc(y);       f[x,y]:=z;       f[y,x]:=z;     end;   readln(g);   k:=1;   for h:=1 to g do     begin       readln(x,y,z);       inc(x);inc(y);       while (t[k]<=z) do         begin           for i:=1 to n do             for j:=1 to n do               if i<>j then                 if f[i,j]>f[i,k]+f[k,j] then f[i,j]:=f[i,k]+f[k,j];           inc(k);         end;       if (f[x,y]<>16843009)and(t[x]<=z)and(t[y]<=z)         then writeln(f[x,y])         else writeln('-1');     end; end.