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.