1519 过路费

1519 过路费
时间限制: 1 s
空间限制: 256000 KB
题目等级 : 大师 Master
题解
题目描述 Description
在某个遥远的国家里，有 n个城市。编号为 1,2,3,…,n。这个国家的政府修建了m 条双向道路，每条道路连接着两个城市。政府规定从城市 S 到城市T需要收取的过路费为所经过城市之间道路长度的最大值。如：A到B长度为 2，B到C 长度为3，那么开车从 A经过 B到C 需要上交的过路费为 3。
佳佳是个做生意的人，需要经常开车从任意一个城市到另外一个城市，因此他需要频繁地上交过路费，由于忙于做生意，所以他无时间来寻找交过路费最低的行驶路线。然而， 当他交的过路费越多他的心情就变得越糟糕。 作为秘书的你，需要每次根据老板的起止城市，提供给他从开始城市到达目的城市，最少需要上交多少过路费。

输入描述 Input Description
第一行是两个整数 n 和m，分别表示城市的个数以及道路的条数。
接下来 m 行，每行包含三个整数 a，b，w（1≤a，b≤n，0≤w≤10^9），表示a与b之间有一条长度为 w的道路。
接着有一行为一个整数 q，表示佳佳发出的询问个数。
再接下来 q行，每一行包含两个整数 S，T（1≤S,T≤n，S≠T）, 表示开始城市S 和目的城市T。

输出描述 Output Description
输出共q行，每行一个整数，分别表示每个询问需要上交的最少过路费用。输入数据保证所有的城市都是连通的。

样例输入 Sample Input
4 5
1 2 10
1 3 20
1 4 100
2 4 30
3 4 10
2
1 4
4 1

样例输出 Sample Output
20
20

数据范围及提示 Data Size & Hint
对于 30%的数据，满足 1≤ n≤1000，1≤m≤10000，1≤q≤100；
对于 50%的数据，满足 1≤ n≤10000，1≤m≤10000，1≤q≤10000；
对于 100%的数据，满足 1≤ n≤10000，1≤m≤100000，1≤q≤10000；

program df;
type point=^node;
node=record
date,ends:longint;
next:point;
end;
var i,j,n,m,x,y,z,k,t,sum:longint;
path:array[0..100000] of point;
a,b,c,d,e,f:array[0..100000] of longint;
dp,ff:array[0..100000,0..35] of longint;
f2:array[0..100000] of boolean;
procedure com(x,y,z:longint);
var i:point;
begin
i:=path[x];
new(path[x]);
path[x]^.ends:=y;
path[x]^.date:=z;
path[x]^.next:=i;
end;
function max(x,y:longint):longint;
begin
if x>y then exit(x)
else exit(y);
end;
function find(x:longint):longint;
begin
if f[x]=x then exit(x)
else f[x]:=find(f[x]);
exit(f[x]);
end;
procedure union(x,y:longint);
begin
x:=find(x);
y:=find(y);
f[x]:=y;
end;

procedure sq(l,r:longint);
var i,j,m,gg:longint;
begin
i:=l; j:=r;
m:=c[(l+r) div 2];
repeat
while c[i]小于m do inc(i);
while c[j]>m do dec(j);
if i<=j then
begin
gg:=c[i]; c[i]:=c[j]; c[j]:=gg;
gg:=b[i]; b[i]:=b[j]; b[j]:=gg;
gg:=a[i]; a[i]:=a[j]; a[j]:=gg;
inc(i); dec(j);
end;
until i>j;
if l小于j then sq(l,j);
if i小于r then sq(i,r);
end;
procedure dfs(x:longint);
var i:point;
y:longint;
begin
f2[x]:=true;
i:=path[x];
while i<>nil do
begin
y:=i^.ends;
if not f2[y] then
begin
d[y]:=d[x]+1;
f[y]:=x;
ff[y,0]:=i^.date;
dp[y,0]:=x;
dfs(y);
end;
i:=i^.next;
end;
f2[x]:=false;
end;
procedure lca(u,v:longint);
var ii:longint;
begin
if d[u]小于d[v] then
begin
ii:=u; u:=v; v:=ii;
end;
ii:=30;
while d[u]>d[v] do
begin
while d[dp[u,ii]]小于d[v] do dec(ii);
sum:=max(sum,ff[u,ii]);
u:=dp[u,ii];
end;
if u=v then exit;
ii:=30;
while ii>=0 do
begin
while (ii>=0) and (dp[u,ii]=dp[v,ii]) do dec(ii);
if ii>=0 then
begin
sum:=max(sum,ff[u,ii]);
sum:=max(sum,ff[v,ii]);
u:=dp[u,ii];
v:=dp[v,ii];
end;
end;
sum:=max(sum,ff[u,0]);
sum:=max(sum,ff[v,0]);
exit;
end;
begin
readln(n,m);
for i:=1 to m do
readln(a[i],b[i],c[i]);
sq(1,m); //将路径按照过路费价格从小到大排序
for i:=1 to n do
f[i]:=i;
k:=0;
for i:=1 to m do
begin
if find(a[i])<>find(b[i]) then
begin
inc(k);
union(a[i],b[i]);
com(a[i],b[i],c[i]);
com(b[i],a[i],c[i]); //建立最小生成树
end;
if k=n-1 then break;
end;
d[1]:=1;
dfs(1);
for j:=1 to 30 do
for i:=1 to n do
begin
dp[i,j]:=dp[dp[i,j-1],j-1];
ff[i,j]:=max(ff[i,j-1],ff[dp[i,j-1],j-1]); //i的第2^j-1个祖先的值
end;
readln(m);
for i:=1 to m do
begin
readln(x,y);
sum:=0;
lca(x,y);
writeln(sum); //求极小值中的最大值
end;
end.