模拟试——rate

题目大意：
有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.