91 条题解
-
0
zhh1993 LV 10 @ 2009-09-26 16:41:11
Accepted 有效得分：100 有效耗时：0ms
70分....盯了半天，发现second拼错了......
-
0
字符处理部分：：
timenow 就是第一个输入的东西
opentime 就是开锁用的时间
mintime 就是到达这里的最短时间
比较猥琐的代码mintime := f[n];
val(copy(timenow,1,pos(':',timenow)-1),hour);
val(copy(timenow,pos(':',timenow)+1,length(timenow)-pos(':',timenow)),min);
tmin := -1; thour := -1; tsecond := -1;
if pos('min',opentime) 0 then
val(copy(opentime,1,pos('min',opentime)-1),tmin)
else
if pos('second',opentime) 0 then
val(copy(opentime,1,pos('second',opentime)-1),tsecond)
else
if pos('hour',opentime) 0 then
val(copy(opentime,1,pos('hour',opentime)-1),thour);
min := min + mintime;
if tmin -1 then
begin
hour := hour + ( tmin + min ) div 60;
min := ( tmin + min ) mod 60;
if hour < 24 then
begin
if min > 9 then
writeln(hour,':',min)
else
if min > 0 then
writeln(hour,':0',min)
else
if min = 0 then
writeln(hour,':00');
halt;
end
else
begin
writeln('Sad');
halt;
end;
end;
if tsecond -1 then
begin
tmin := tsecond div 60;
hour := hour + ( tmin + min ) div 60;
min := ( tmin + min ) mod 60;
if hour < 24 then
begin
if min > 9 then
writeln(hour,':',min)
else
if min > 0 then
writeln(hour,':0',min)
else
if min = 0 then
writeln(hour,':00');
halt;
end
else
begin
writeln('Sad');
halt;
end;
end;
if thour -1 then
begin
tmin := thour * 60;
hour := hour + ( tmin + min ) div 60;
min := ( tmin + min ) mod 60;
if hour < 24 then
begin
if min > 9 then
writeln(hour,':',min)
else
if min > 0 then
writeln(hour,':0',min)
else
if min = 0 then
writeln(hour,':00');
halt;
end
else
begin
writeln('Sad');
halt;
end;
end; -
0
var
a:Array[1..1000,1..1000]of longint;
dis:Array[1..1000]of longint;
can:array[1..1000]of boolean;
i,j,k,p,n,m,min:longint;
ho,mi,se:longint;
s,s1,s2:string;
procedure print;
begin
if ho>=24 then writeln('Sad') else
begin
if mi>=10 then writeln(ho,':',mi)
else writeln(ho,':0',mi);
end;
halt;
end;
begin
filldword(a,sizeof(a)shr 2,maxlongint);
readln(s);
readln(n,m);
for i:=1 to m do
begin
readln(j,k,p);
if j*k0 then
begin
a[j,k]:=p;a[k,j]:=p;
end;
end;
readln(s1);
fillchar(can,sizeof(can),1);
for i:=2 to n do
dis[i]:=a[1,i];
while can[n] do
begin
min:=maxlongint;k:=0;
for j:=2 to n do
if can[j] and(dis[j]dis[k]+a[j,k]) then
begin
dis[j]:=dis[k]+a[j,k];
end;
end;
k:=pos(':',s);
val(copy(s,1,k-1),ho);
val(copy(s,k+1,length(s)-k),mi);
inc(mi,dis[n]);
if pos('min',s1)0 then
begin
k:=pos('min',s1);
val(copy(s1,1,k-1),p);
mi:=mi+p;
inc(ho,mi div 60);
mi:=mi mod 60;
print;
end;
if pos('second',s1)0 then
begin
k:=pos('second',s1);
val(copy(s1,1,k-1),se);
inc(mi,se div 60);
se:=se mod 60;
inc(ho,mi div 60);
mi:=mi mod 60;
print;
end;
if pos('hour',s1)0 then
begin
k:=pos('hour',s1);
val(copy(s1,1,k-1),p);
inc(ho,p);
print;
end;
end. -
0
lijian3256 LV 10 @ 2009-08-24 15:57:58
秒！秒呢 。。。。明显有秒就应该多算一分钟 。。。。。。显然错误。。
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
dijkstra +字符串处理 秒杀 -
0
peng7621260 LV 9 @ 2009-08-10 10:58:39
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msSPFA,秒杀
-
0
zhanghanyuan LV 10 @ 2009-08-02 15:44:41
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
被下面的牛误导了，还以为SECOND不用考虑，其实超过60的SECOND要考虑的 -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案错误...程序输出比正确答案长
├ 测试数据 07：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案错误...程序输出比正确答案长
├ 测试数据 10：答案正确... 0ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
dijkstra 1次秒杀……
注意：
1.0节点当没看到
2.最后超过24点只输出Sad
3.省略秒
4.输出时不要小时的前导0，但要分钟的，如：
7：05
5.最好用分钟做 -
0
G_D_inferno LV 10 @ 2009-06-20 15:07:57
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms用spfa做，建议使用分钟做时间
-
0
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
zhengfangyi LV 10 @ 2009-05-16 09:36:12
水水的题,弱弱的数据
-
0
zhangyuchi45 LV 8 @ 2009-05-03 14:42:15
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 572ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 244ms
├ 测试数据 08：答案正确... 88ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 25ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：929ms佛洛伊德就是耗时间……
话说这么一到水题，第一次，删东西不完全，没编译通过；
第二次、第三次，突然发现调试输出的东西没注释掉……
四次啊
通过率啊……
zhh1993
LV 10
@ 2009-09-26 16:41:11
