var use:array[0..10000] of boolean；

queue:array[0..10000] of integer；

dist:array[0..10000] of longint；

bi,a:array[0..10000,0..50000] of integer；

i,j,m,n,k,l,fr,ta,now,t1,t2,tt:longint；

begin

readln(n,m)；

for i:=1 to m do

begin

readln(t1,t2,tt)；

a[t1,t2]:=tt；

inc(bi[t1,0])；

bi[t1,bi[t1,0]]:=t2

end；

fillchar(use,sizeof(use),0)；

for i:=1 to n do

dist[i]:=maxlongint；

fr:=1；ta:=1；

queue[1]:=1；

dist[1]:=0；

use[1]:=true；

while fr<=ta do

begin

now:=queue[fr]；

for i:=1 to bi[now,0] do

if (dist[bi[now,i]]>dist[now]+a[now,bi[now,i]])and(a[now,bi[now,i]]<>0)

then

begin

dist[bi[now,i]]:=dist[now]+a[now,bi[now,i]]；

if not use[bi[now,i]] then

begin

inc(ta)；

queue[ta]:=bi[now,i]；

use[bi[now,i]]:=true

end

end；

use[now]:=false；

inc(fr)

end；

writeln(dist[n])

end.

牛们看看，怎么无输出？？

测评机： Xeond[6]

得分： 0分

提交日期： 2008-11-10 7:23:00

有效耗时： 该状态没有记录

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序无输出

测试结果6: 选手程序无输出

测试结果7: 选手程序无输出

测试结果8: 选手程序无输出

测试结果9: 选手程序无输出

测试结果10: 选手程序无输出