1021 玛丽卡 - Wikioi

题目描述 Description
麦克找了个新女朋友，玛丽卡对他非常恼火并伺机报复。
因为她和他们不住在同一个城市，因此她开始准备她的长途旅行。
在这个国家中每两个城市之间最多只有一条路相通，并且我们知道从一个城市到另一个城市路上所需花费的时间。
麦克在车中无意中听到有一条路正在维修，并且那儿正堵车，但没听清楚到底是哪一条路。无论哪一条路正在维修，从玛丽卡所在的城市都能到达麦克所在的城市。
玛丽卡将只从不堵车的路上通过，并且她将按最短路线行车。麦克希望知道在最糟糕的情况下玛丽卡到达他所在的城市需要多长时间，这样他就能保证他的女朋友离开该城市足够远。
编写程序，帮助麦克找出玛丽卡按最短路线通过不堵车道路到达他所在城市所需的最长时间(用分钟表示)。
输入描述 Input Description
第一行有两个用空格隔开的数N和M，分别表示城市的数量以及城市间道路的数量。1≤N≤1000，1≤M≤N*(N-1)/2。城市用数字1至N标识，麦克在城市1中，玛丽卡在城市N中。
接下来的M行中每行包含三个用空格隔开的数A，B和V。其中1≤A，B≤N，1≤V≤1000。这些数字表示在A和城市B中间有一条双行道，并且在V分钟内是就能通过。

输出描述 Output Description
输出文件的第一行中写出用分钟表示的最长时间，在这段时间中，无论哪条路在堵车，玛丽卡应该能够到达麦克处，如果少于这个时间的话，则必定存在一条路，该条路一旦堵车，玛丽卡就不能够赶到麦克处。
样例输入 Sample Input
5 7
1 2 8
1 4 10
2 3 9
2 4 10
2 5 1
3 4 7
3 5 10
样例输出 Sample Output
27

水题，先求最短路，再删最短路上的边，再求最短路

 const
     maxn=;
     maxm=;
 var
     first,dis,flag,pre:array[..maxn]of longint;
     next,last,len:array[..maxm]of longint;
     q:array[..maxm*]of longint;
     n,m,tot,ans,time:longint;

 procedure insert(x,y,z:longint);
 begin
     inc(tot);
     last[tot]:=y;
     next[tot]:=first[x];
     first[x]:=tot;
     len[tot]:=z;
 end;

 function spfa(x:longint):longint;
 var
     l,r,i:longint;
 begin
     l:=;
     r:=;
     q[]:=;
     inc(time);
     fillchar(dis,sizeof(dis),);
     dis[]:=;
     flag[]:=time;
     while l<=r do
       begin
         i:=first[q[l]];
         while i<> do
           begin
             if (i<>x) and ((i xor )<>x) then
             if dis[q[l]]+len[i]<dis[last[i]] then
             begin
               if flag[last[i]]<>time then
               begin
                 inc(r);
                 q[r]:=last[i];
                 flag[last[i]]:=time;
               end;
               dis[last[i]]:=dis[q[l]]+len[i];
               pre[last[i]]:=i;
             end;
             i:=next[i];
           end;
         flag[q[l]]:=time-;
         inc(l);
       end;
     exit(dis[n]);
 end;

 var
     cut:array[..maxn]of longint;
     num:longint;

 function max(x,y:longint):longint;
 begin
     if x>y then exit(x);
     exit(y);
 end;

 procedure main;
 var
     i,x,y,z:longint;
 begin
     read(n,m);
     tot:=;
     for i:= to m do
       begin
         read(x,y,z);
         insert(x,y,z);
         insert(y,x,z);
       end;
     ans:=spfa();
     i:=n;
     while i<> do
       begin
         inc(num);
         cut[num]:=pre[i];
         i:=last[pre[i]xor ];
       end;
     for i:= to num do
       ans:=max(ans,spfa(cut[i]));
     write(ans);
 end;

 begin
     main;
 end.