模拟试——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.