最小花费

题目背景

题目描述

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

输入输出格式

输入格式：

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

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

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

输出格式：

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

这道题惭愧地说，年代十分久远了，具体的流程改日再补，谢谢啦（绝不是因为我懒）

var
 ap,bp:longint;
 num,i,j,k,n,m,x,y,z:longint;
 big:real;
 l:array[0..2000] of real;
 a:array[0..2000]of boolean;
 f:array[0..2000,0..2000]of real;
function max(aa,bb:real):real;
begin
 if aa>bb then exit(aa)
 else exit(bb);
end;
begin
{assign(input,'money.in');reset(input);
assign(output,'money.out');rewrite(output);}
 read(n,m);
 fillchar(a,sizeof(a),true);
 for i:=1 to m do
 begin
  read(x,y,z);
  f[x,y]:=1-z/100;
  f[y,x]:=1-z/100;
 end;
 read(ap,bp);
 a[ap]:=false;
 for i:=1 to n do l[i]:=f[ap,i];
 for i:=1 to n do
 begin
  big:=-10.0;
  for j:=1 to n do
   if (a[j])and(big<l[j]) then
    begin
      num:=j;
      big:=l[j];
    end;
     a[num]:=false;
     if num<>0 then
   for j:=1 to n do
   begin
    if (a[j])and(f[num,j]<>0) then
      begin
        l[j]:=max(l[j],f[num,j]*l[num]);


      end;
   end;
 end;
 write(100/l[bp]:0:8);
 close(input);
 close(output);
end.