最小花费_ssl2206_dijkstra

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);">【题目描述】</span>

 在n个人中，某些人的银行账号之间可以互相转账。这些人之间转账的手续费各不相同。给定这些人之间转账时需要从转账金额里扣除百分之几的手续费，请问A最少需要多少钱使得转账后B收到100元。


【输入文件】
 第一行输入两个用空格隔开的正整数n和m，分别表示总人数和可以互相转账的人的对数。以下m行每行输入三个用空格隔开的正整数x,y,z，表示标号为x的人和标号为y的人之间互相转账需要扣除z%的手续费(z<100)。最后一行输入两个用空格隔开的正整数A和B。数据保证A与B之间可以直接或间接地转账。


【输出文件】
输出A使得B到账100元最少需要的总费用。精确到小数点后8位。


【约定】
对于所有数据，1<=n<=2000。


【样例输入】
3 3
1 2 1
2 3 2
1 3 3
1 3


【样例输出】
 103.07153164 


【样例说明】
选择转账路径为1->2>3,则最小花费为103.07153164元。


【解题思路】
阅读题目可以发现这是一道求A到B的最短路径问题,略有不同的是这里以相乘的方式累计路径上的权值。对于一对点之间的最短路我们可以用dijkstra来求,用ans=100统计所需的费用即是答案。

【源代码】/pas

<pre name="code" class="delphi">var
  n,m,i,j:longint;
  v:array[1..2000,1..2000]of real;
  b:array[1..2000]of boolean;
  d:array[1..2000]of real;
  x,y,z,u,s,e:longint;
  min:real;
begin
  readln(n,m);
  for i:=1 to m do
  begin
    readln(x,y,z);
    v[x,y]:=(100-z)/100;
    v[y,x]:=(100-z)/100;
  end;
  readln(s,e);
  b[s]:=true;
  d:=v[s];
  repeat
    min:=0;//maxlongint;
    u:=0;
    for i:=1 to n do
    if (not b[i])and(d[i]>min) then
    begin
      min:=d[i];
      u:=i;
    end;
    if u<>0 then
    begin
      b[u]:=true;
      for i:=1 to n do
      if (not b[i])and(d[u]*v[u,i]>d[i]) then
      d[i]:=d[u]*v[u,i];
    end;
  until u=0;
  writeln(100/d[e]:0:8);
end.