題目描述 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.