最小花费

题目描述

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

输入输出格式

输入格式：
第一行输入两个正整数n,m，分别表示总人数和可以互相转账的人的对数。

以下m行每行输入三个正整数x,y,z，表示标号为x的人和标号为y的人之间互相转账需要扣除z%的手续费 (z<100)。

最后一行输入两个正整数A,B。数据保证A与B之间可以直接或间接地转账。

输出格式：
输出A使得B到账100元最少需要的总费用。精确到小数点后8位。

输入输出样例

输入样例#1：
3 3
1 2 1
2 3 2
1 3 3
1 3
输出样例#1：
103.07153164
说明

1<=n<=2000

程序：

var
next,ls,s,t,p:array[0..500001]of longint;
w:array[0..500001]of real;
d:array[0..3000]of real;
v:array[0..3000]of boolean;
n,m,a,b,i,j:longint;
ans:real;
procedure spfa;
var
head,tail,i:longint;
begin
    head:=0;tail:=1;
    d[a]:=1;
    v[a]:=true;
    p[1]:=a;
    while head<tail do
    begin
        inc(head);
        i:=ls[p[head]];
        while i>0 do
        begin
            if d[s[i]]*w[i]>d[t[i]] then
            begin
                d[t[i]]:=d[s[i]]*w[i];
                if v[t[i]]=false then
                begin
                    v[t[i]]:=true;
                    inc(tail);
                    p[tail]:=t[i];
                end;
            end;
            i:=next[i];
        end;
        v[p[head]]:=false;
    end;
end;


begin
    fillchar(next,sizeof(next),0);
    fillchar(ls,sizeof(ls),0);
    readln(n,m);
    i:=0;
    for j:=1 to m do
    begin
        inc(i);
        readln(s[i],t[i],w[i]);
        w[i]:=1-w[i]/100;
        next[i]:=ls[s[i]];
        ls[s[i]]:=i;
        inc(i);
        s[i]:=t[i-1];t[i]:=s[i-1];w[i]:=w[i-1];
        next[i]:=ls[s[i]];
        ls[s[i]]:=i;
    end;
    read(a,b);
    for i:=1 to n do
    begin
        d[i]:=-1;
        v[i]:=false;
    end;
    spfa;
    write(100/d[b]:0:8);
end.