wikioi 2488 绿豆蛙的归宿

题目描述 Description
　　随着新版百度空间的上线，Blog宠物绿豆蛙完成了它的使命，去寻找它新的归宿。

　　给出一个有向无环图，起点为1终点为N，每条边都有一个长度，并且从起点出发能够到达所有的点，所有的点也都能够到达终点。绿豆蛙从起点出发，走向终点。
　　到达每一个顶点时，如果有K条离开该点的道路，绿豆蛙可以选择任意一条道路离开该点，并且走向每条路的概率为 1/K 。
　　现在绿豆蛙想知道，从起点走到终点的所经过的路径总长度期望是多少？

输入描述 Input Description
　　第一行: 两个整数 N M，代表图中有N个点、M条边
　　第二行到第 1+M 行: 每行3个整数 a b c，代表从a到b有一条长度为c的有向边

输出描述 Output Description
　　从起点到终点路径总长度的期望值，四舍五入保留两位小数。

样例输入 Sample Input
4 4
1 2 1
1 3 2
2 3 3
3 4 4

样例输出 Sample Output
7.00

数据范围及提示 Data Size & Hint
　　对于20%的数据 N<=100
　　对于40%的数据 N<=1000
　　对于60%的数据 N<=10000
　　对于100%的数据 N<=100000，M<=2*N

一题拓扑排序；主要是求出期望值；每一点的期望值会改变；一开始期望值全为0；
算法开始后，如果期望值为0 的话，那么当前的期望值就为 前一点的期望值*当前点出度分之一；如果期望值不为0的话，那么当前的期望值就为 前一点恴期望值+当前点的期望值；
注意：：：最后一点的出度为0，不可以除，否则会死，只需要随便赋值就行了；；

这里写代码片

program exam1;
type ab=^node;
node=record
a,b:longint;
c:ab;
end;

var n,m,i,x,y,j,s,t,zz,w,k:longint;
ii:ab;
sum:double;
p:array[0..300000]of ab;
ru,chu,z:array[0..300000]of longint;
q:array[0..300000]of double;

procedure put(x,y,z:longint);
var ii:ab;
begin
ii:=p[x];
new(p[x]);
p[x]^.a:=y;
p[x]^.b:=z;
p[x]^.c:=ii;
end;

begin
readln(n,m);
fillchar(ru,sizeof(ru),0);
fillchar(chu,sizeof(chu),0);
for i:=1 to m do
begin
readln(x,y,zz);
inc(ru[y]);
inc(chu[x]);
put(x,y,zz);
end;
for i:=1 to n do
q[i]:=0;
q[1]:=1/chu[1];
t:=1;
w:=1;
z[1]:=1;
sum:=0;
chu[n]:=1;
while t<=w do
begin
s:=z[t];
ii:=p[s];
while ii<>nil do
begin
dec(ru[ii^.a]);
sum:=sum+q[s]*ii^.b;
if q[ii^.a]=0 then q[ii^.a]:=q[s]*(1/chu[ii^.a]) else
q[ii^.a]:=q[ii^.a]+q[s];
if ru[ii^.a]=0 then
begin
inc(w);
z[w]:=ii^.a;
end;
ii:=ii^.c;
end;
inc(t);
end;
writeln(sum:0:2);
end.