最小花费_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.