(ssl1312)P2502 2006河南省赛第一试旅行

本文主要是介绍(ssl1312)P2502 2006河南省赛第一试旅行，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

2006河南省赛第一试旅行

Time Limit:2000MS

Memory Limit:65536K

Total Submit:155

Accepted:57

Description

　　Z小镇是一个景色宜人的地方，吸引来自各地的观光客来此旅游观光。Z小镇附近共有N个景点（编号为1,2,3,…,N），这些景点被M条道路连接着，所有道路都是双向的，两个景点之间可能有多条道路。也许是为了保护该地的旅游资源，Z小镇有个奇怪的规定，就是对于一条给定的公路Ri，任何在该公路上行驶的车辆速度必须为Vi。速度变化太快使得游客们很不舒服，因此从一个景点前往另一个景点的时候，大家都希望选择行使过程中最大速度和最小速度的比尽可能小的路线，也就是所谓最舒适的路线。

Input

第一行包含两个正整数，N和M。
接下来的M行每行包含三个正整数：x，y和v。表示景点x到景点y之间有一条双向公路，车辆必须以速度v在该公路上行驶。
最后一行包含两个正整数s，t，表示想知道从景点s到景点t最大最小速度比最小的路径。s和t不可能相同。

Output

如果景点s到景点t没有路径，输出“IMPOSSIBLE”。否则输出一个数，表示最小的速度比。如果需要，输出一个既约分数。

Sample Input

样例1
4 2
1 2 1
3 4 2
1 4

样例２
3 3
1 2 10
1 2 5
2 3 8
1 3

样例3
3 2
1 2 2
2 3 4
1 3

Sample Output

样例1
IMPOSSIBLE

样例2
5/4

样例3
2

Hint

【数据范围】
1＜N＜＝500
1＜＝x,y＜＝N，0＜v＜30000，x≠y
0＜M＜＝5000

Source

elba
题解：本题是并查集(并查集详见：这里)`
本题思路为先快排(题目要求最小比)，再去合并(本次不需要压缩路径)，最后再用个循环去找最小比。
不过输出时有要求用分数，所以要化简，便需要辗转相除法。

varx,y,v,f:array[0..5000]of longint;n,m,s,t,i,j,min,max,d:longint;
procedure kp(l,r:longint);//快排
vari,j,mid:longint;
begini:=l; j:=r;mid:=v[(l+r)div 2];repeatwhile v[i]<mid do inc(i);while v[j]>mid do dec(j);if i<=j thenbeginx[0]:=x[i]; x[i]:=x[j]; x[j]:=x[0];y[0]:=y[i]; y[i]:=y[j]; y[j]:=y[0];v[0]:=v[i]; v[i]:=v[j]; v[j]:=v[0];inc(i); dec(j);end;until i>j;if l<j then kp(l,j);if i<r then kp(i,r);
end;
function find(a:longint):longint;//找爸爸（笑~）
beginif f[a]<0 then exit(a)elsebeginf[a]:=find(f[a]);exit(f[a])end;
end;
procedure fusion(a,b:longint);//合并
varx,y:longint;
beginx:=find(a); y:=find(b);if x<>y thenbeginf[x]:=f[x]+f[y];f[y]:=x;end;
end;
function chu(a,b:longint):longint;//辗转相除法
beginif b=0 then exit(a)else chu:=chu(b,a mod b);
end;
beginread(n,m);for i:=1 to m do read(x[i],y[i],v[i]);read(s,t);kp(1,m);max:=v[m]+1; min:=v[1];//最大比啦for i:=1 to m do//慢慢地枚举，直到找到最小比beginfillchar(f,sizeof(f),$ff);j:=i-1;while (j<m) and (find(s)<>find(t)) do//没超出范围，而且不是同一集合就合并begininc(j);fusion(x[j],y[j]);end;if find(s)<>find(t) then break;//还不是就是去不了了(排除程序自身错误)if v[j]*min<v[i]*max then begin max:=v[j]; min:=v[i]; end;//找最小比end;if max*v[1]>min*v[m] then writeln('IMPOSSIBLE')//没有路径elsebegind:=chu(min,max);//最大公因数max:=max div d;//化简min:=min div d;if max mod min=0 then writeln(max div min)else writeln(max,'/',min);end;
end.