題目描述 description
a 國有 n 座城市，編號從 1 到 n，城市之間有 m 條雙向道路。每一條道路對車輛都有重量限制，簡稱限重。現在有 q 輛貨車在運輸貨物，司機們想知道每輛車在不超過車輛限重的情況下，最多能運多重的貨物。
輸入描述 input description
第一行有兩個用乙個空格隔開的整數 n，m，表示 a 國有 n 座城市和 m 條道路。
接下來 m 行每行 3 個整數 x、y、z，每兩個整數之間用乙個空格隔開，表示從 x 號城市到 y 號城市有一條限重為 z 的道路。注意：x 不等於 y，兩座城市之間可能有多條道路。
接下來一行有乙個整數 q，表示有 q 輛貨車需要運貨。
接下來 q 行，每行兩個整數 x、y，之間用乙個空格隔開，表示一輛貨車需要從 x 城市運輸貨物到 y 城市，注意：x 不等於 y。
輸出描述 output description
輸出共有 q 行，每行乙個整數，表示對於每一輛貨車，它的最大載重是多少。如果貨車不能到達目的地，輸出-1。
樣例輸入 sample input
4 3
1 2 4
2 3 3
3 1 1
3 1 3
1 4
1 3樣例輸出 sample output
3 -1
3資料範圍及提示 data size & hint
對於 30%的資料，0 < n < 1,000，0 < m < 10,000，0 < q < 1,000；
對於 60%的資料，0 < n < 1,000，0 < m < 50,000，0 < q < 1,000；
對於 100%的資料，0 < n < 10,000，0 < m < 50,000，0 < q < 30,000，0 ≤ z ≤ 100,000。
kruskal最大生成樹+倍增
【code】
program cx;
uses math;
var i,m,n,sa,tg,treenum,cnt,qq,t:longint;
home,ax,ay,aw,gym,head,next,e,w,h:array[0..100000]of longint;
q:array[0..1000000]of longint;
v:array[0..100000]of boolean;
f,g:array[0..10000,0..20]of longint;
function
find
(x:longint):longint;
begin
if home[x]=x then
exit(x);
home[x]:=find(home[x]);
exit(home[x]);
end;
procedure
link
(x,y,z:longint);
begin
inc(cnt); e[cnt]:=y; w[cnt]:=z;
next[cnt]:=head[x]; head[x]:=cnt;
end;
procedure
sort
(l,r: longint);
var i,j,x,y: longint;
begin
i:=l; j:=r;
x:=aw[(l+r) >>1];
repeat
while aw[i]do inc(i);
while xdo dec(j);
ifnot(i>j) then
begin
y:=aw[i]; aw[i]:=aw[j]; aw[j]:=y;
y:=ax[i]; ax[i]:=ax[j]; ax[j]:=y;
y:=ay[i]; ay[i]:=ay[j]; ay[j]:=y;
inc(i); j:=j-1;
end;
until i>j;
if lthen sort(l,j);
if ithen sort(i,r);
end;
procedure
kruskal;
var i,tot:longint;
begin
fillchar(v,sizeof(v),0);
for i:=1
to n do
ifnot v[find(i)] then
begin inc(treenum); v[find(i)]:=true; end;
for i:=1
to n do home[i]:=i;
sort(1,m);
tot:=0;
for i:=m downto1do
begin
if find(ax[i])=find(ay[i]) then
continue;
home[find(ax[i])]:=find(ay[i]);
link(ax[i],ay[i],aw[i]);
link(ay[i],ax[i],aw[i]);
inc(tot);
if tot=n-treenum then
break;
end;
end;
procedure
dfs(x:longint);
var i,t:longint;
begin
v[x]:=true;
for i:=1
to17
dobegin
if h[x]<(1
break;
f[x,i]:=f[f[x,i-1],i-1];
g[x,i]:=min(g[x,i-1],g[f[x,i-1],i-1]);
end;
t:=head[x];
while t>0
dobegin
ifnot v[e[t]] then
begin
f[e[t],0]:=x;
g[e[t],0]:=w[t];
h[e[t]]:=h[x]+1;
dfs(e[t]);
end;
t:=next[t];
end;
end;
function
lca(x,y:longint):longint;
var i,t:longint;
begin
if h[x]then
begin t:=x; x:=y; y:=t; end;
t:=h[x]-h[y];
for i:=0
to17
doif
not (((1
x:=f[x,i];
if x=y then
exit(x);
for i:=17
downto0do
if f[x,i]<>f[y,i] then
begin x:=f[x,i]; y:=f[y,i]; end;
if x=y then
exit(x);
exit(f[x,0]);
end;
function
ask(x,y:longint):longint;
var i,hk,t:longint;
begin
hk:=maxlongint;
t:=h[x]-h[y];
for i:=0
to17
doif
not ((1
begin
hk:=min(hk,g[x,i]);
x:=f[x,i];
end;
exit(hk);
end;
begin
assign(input, 'truck.in'); reset(input);
assign(output,'truck.out');rewrite(output);
read(n,m);
for i:=1
to n do home[i]:=i;
for i:=1
to m do
begin
read(ax[i],ay[i],aw[i]);
home[find(ax[i])]:=find(ay[i]);
end;
kruskal;
fillchar(v,sizeof(v),0);
for i:=1
to n do
ifnot v[i] then dfs(i);
read(qq);
for i:=1
to qq do
begin
read(sa,tg);
if find(sa)<>find(tg) then writeln(-1)
else
begin
t:=lca(sa,tg);
writeln(min(ask(sa,t),ask(tg,t)));
end;
end;
close(input);
close(output);
end.
noip2013貨車運輸
貨車運輸 truck.cpp c pas 問題描述 a 國有n座城市，編號從1到n，城市之間有 m條雙向道路。每一條道路對車輛都有重 量限制，簡稱限重。現在有 q輛貨車在運輸貨物，司機們想知道每輛車在不超過車輛限重的 情況下，最多能運多重的貨物。輸入 輸入檔名為truck.in。輸入檔案第一行有兩個...
NOIP 2013 貨車運輸
題目描述 description a 國有 n 座城市，編號從 1 到 n，城市之間有 m 條雙向道路。每一條道路對車輛都有重量限制，簡稱限重。現在有 q輛貨車在運輸貨物，司機們想知道每輛車在不超過車輛限重的情況下，最多能運多重的貨物。輸入描述 input description 第一行有兩個用乙個...
NOIP 2013 貨車運輸
題目大意 給定一張無向圖 以及若干個詢問 對於每個詢問求所有由節點u到節點v的路徑上邊權的最小值的最大值。題解 首先用構造一棵最大生成樹，這樣保證樹上兩個節點路徑邊權的最小值最大 在最大生成樹上兩個節點之間只有一條路徑，所以只需要找路徑上邊權的最小值 為了快速的尋找最小值，利用樹上倍增的想法用f j...