T2:
题解:
简单的一个spfa问题,直接套用
参考程序:
var a:array[1..2000,0..2000]of longint;
f:array[1..2000,1..2000]of longint;
dis:array[1..2000]of real;
data:array[1..200000]of longint;
bz:array[1..2000]of boolean;
x,y,t,n,m,i,j,l,r,t1,t2:longint;
begin
assign(input,'money.in');reset(input);
assign(output,'money.out');rewrite(output);
readln(n,m);
fillchar(f,sizeof(f),100);
for i:=1 to m do
begin
readln(x,y,t);
inc(a[x,0]);
a[x,a[x,0]]:=y;
f[x,y]:=t;
inc(a[y,0]);
a[y,a[y,0]]:=x;
f[y,x]:=t;
end;
readln(t1,t2);
i:=t1;
l:=0;
r:=1;
data[1]:=i;
dis[i]:=100;
while l<r do
begin
inc(l);
t:=data[l];
for j:=1 to a[t,0] do
if dis[t]*((100-f[t,a[t,j]])/100)>dis[a[t,j]] then
begin
dis[a[t,j]]:=dis[t]*((100-f[t,a[t,j]])/100);
if bz[a[t,j]]=false then
begin
bz[a[t,j]]:=true;
inc(r);
data[r]:=a[t,j];
end;
end;
bz[t]:=false;
end;
writeln((100/dis[t2])*100:0:8);
close(input);close(output);
end.