ssl2206 最小花费

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.