Description
在n个人中,某些人的银行账号之间可以互相转账。这些人之间转账的手续费各不相同。给定这些人之间转账时需要从转账金额里扣除百分之几的手续费,请问A最少需要多少钱使得转账后B收到100元。
Input
第一行输入两个用空格隔开的正整数n和m,分别表示总人数和可以互相转账的人的对数。以下m行每行输入三个用空格隔开的正整数x,y,z,表示标号为x的人和标号为y的人之间互相转账需要扣除z%的手续费(z<100)。最后一行输入两个用空格隔开的正整数A和B。数据保证A与B之间可以直接或间接地转账。
Output
输出A使得B到账100元最少需要的总费用。精确到小数点后8位。
题解
先算出每一条路径所花费的手续费,放入a中,然后进行n次循环,每次找到一个到起点距离最短的点变为true,随后枚举所有的不确定的点,如果以此true点为中转到达此点的路径更短的话,这将是此点的最短路径。当我们每确定一个点就修改其他的不确定的点,从而求出最短路径。
var
d:array[0..2000] of real;
v:array[0..2000] of boolean;
s:array[0..2000,0..2000] of real;
i,a,b,c,n,m,x,y,l,j:longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(a,b,c);
s[a,b]:=(100-c)/100;
s[b,a]:=s[a,b];
end;
readln(x,y);
for i:=1 to n do
d[i]:=s[x,i];
d[x]:=1;v[x]:=true;
for i:=1 to n do
begin
l:=0;
for j:=1 to n do
if v[j]=false then
if d[j]>d[l] then
l:=j;
v[l]:=true;
for j:=1 to n do
if (v[j]=false)and(d[l]*s[l,j]>d[j])then
d[j]:=d[l]*s[l,j];
end;
writeln(100/d[y]:0:8);
end.