题目:星门跳跃
状态: Unaccepted
测评机: Xeond[6]
得分: 0分
提交日期: 2011-10-22 18:02:00
有效耗时: 该状态没有记录
RQNOJ近期在线比赛列表
RQNOJ十月份月赛 时间:2011-10-22 19:00:00 [报名]
测试结果1: 输出过少|用户输出数据少于标准输出的50%[标准输出4位|选手输出1位]
测试结果2: 输出过少|用户输出数据少于标准输出的50%[标准输出4位|选手输出1位]
测试结果3: 测试结果错误.错误结果为:0
正确结果应为:665
测试结果4: 测试结果错误.错误结果为:0
正确结果应为:602
测试结果5: 测试结果错误.错误结果为:0
正确结果应为:498
测试结果6: 输出过少|用户输出数据少于标准输出的50%[标准输出4位|选手输出1位]
测试结果7: 输出过少|用户输出数据少于标准输出的50%[标准输出5位|选手输出1位]
测试结果8: 输出过少|用户输出数据少于标准输出的50%[标准输出5位|选手输出1位]
测试结果9: 输出过少|用户输出数据少于标准输出的50%[标准输出4位|选手输出1位]
测试结果10: 选手程序运行超过时限
提交代码: view sourceprint?01.program lt1;
var i,n,m,k:longint;
x,first,next,g,d,b:array[1..150000] of longint;
p:array[1..30000] of boolean;
procedure du;
var x,y,z:longint;
begin
inc(k);
readln(x,y,z);
first[k]:=g[x];
g[x]:=k;
b[k]:=z;
next[k]:=y;
inc(k);
first[k]:=g[y];
g[y]:=k;
b[k]:=z;
next[k]:=x;
end;
procedure spfa;
var i,t,l,r,o,q:longint;
begin
fillchar(p,sizeof(p),false);
p[1]:=true;
x[1]:=1;
for i:=1 to n do d[i]:=maxlongint;
d[1]:=0;
r:=1;
l:=0;
while l<r do
begin
inc(l);
o:=x[l];
t:=g[o];
q:=next[t];
while t>0 do
begin
if d[o]+b[t]<d[q] then begin
d[q]:=d[o]+b[t];
if not p[q] then begin
p[q]:=true;
inc(r);
x[r]:=q;
end;
end;
t:=first[t];
end;
p[o]:=false;
end;
end;
begin
k:=0;
readln(n,m);
for i:=1 to m do du;
{spfa;}
writeln(d[n]);
end.