题目大意:
有N个城市,编号分为1到N,每两个城市之间有且只有一条路。每通过一条路,就要支付一定的过路费,这个过路费等于商人身上的金钱数乘以一个不大于1的小数,并且这个小数会因道路的不同而不同。商人想从城市A去到城市B,问最多可以剩下多少钱。
对于50%的数据,3 ≤ N ≤ 100;
对于所有的数据,3 ≤ N ≤ 500,1 ≤ A,B ≤ N,A ≠ B。
题解:
虽然floyd优美点能过,dijkstra直接过,但我还是选择了spfa,虽然懵逼不够dij快,但也跑得挺快。
裸的spfa,不讲了- -
关键这题队列好像不行,不然可以优化滴- -
var
p:array [0..50001] of longint;
dis:array [0..501] of real;
a:Array [0..501,0..501] of real;
i,j,k,l,n,s,t,ans:longint;
x:real;
function max(aa,bb:longint):longint;
begin
if aa>bb then exit(aa);
exit(bb);
end;
procedure spfa;
var
i,j,head,tail:longint;
begin
head:=0;
tail:=1;
p[1]:=s;
dis[s]:=0;
while head<tail do
begin
inc(head);
for i:=1 to n do
if dis[i]>dis[p[head]]+(1-dis[p[head]])*a[p[head],i] then
begin
dis[i]:=dis[p[head]]+(1-dis[p[head]])*a[p[head],i];
inc(tail);
p[tail]:=i;
end;
end;
end;
begin
assign(input,'rate.in'); reset(input);
assign(output,'rate.out'); rewrite(output);
readln(n,s,t);
for i:=1 to n do
begin
for j:=1 to n do read(a[i,j]);
readln;
end;
for i:=1 to n do
dis[i]:=1;
spfa;
writeln(1-dis[t]:0:2);
close(input); close(output);
end.