讨论 / pascal读入都超时。。。。
wjltz 2011-10-22 03:09:00
点我顶贴 收藏 删除
查看状态 Show Status

题目:星门跳跃

状态: 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.

#1 wjltz@2011-10-22 03:09:00
回复 删除
我沙茶了…………

数组开小

另外上面程序不对

查看更多回复
提交回复