91 条题解
-
0xukemn LV 7 @ 2008-10-28 19:03:22
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms感谢日文大牛...
-
02008-10-28 18:41:39@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms水题……用SPFA直接秒杀掉……
-
02008-10-23 15:19:09@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06:答案错误...程序输出比正确答案长
├ 测试数据 07:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 08:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09:答案错误...程序输出比正确答案长
├ 测试数据 10:答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:20 有效耗时:0ms
var
i,j,k,n,l,m:longint;
d:array[0..1000]of longint;
a:array[1..1000,1..1000]of longint;
x:array[1..1000]of boolean;
s1:string[5];
s2:string;
function zh(s2:string;s:longint):longint;
var
i:longint;
begin
zh:=0;
for i:=s to length(s2)do
if('0' -
02008-10-19 19:42:05@
Help!!
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案错误...程序输出比正确答案长
├ 测试数据 03:答案错误...程序输出比正确答案长
├ 测试数据 04:答案正确... 0ms{Sad}
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案错误...程序输出比正确答案长{Sad}
├ 测试数据 07:答案错误...程序输出比正确答案长
├ 测试数据 08:答案错误...程序输出比正确答案长
├ 测试数据 09:答案错误...程序输出比正确答案长{Sad}
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:40 有效耗时:0msvar
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. -
02008-10-13 13:05:13@
咱是第158个通过者了。。。
-
02008-10-11 22:05:53@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0msDijkstra秒杀..
注意:
1.打开锁的时间只有一个单位;
2.输入要处理好;
3.0号结点要无视;
4.n -
02008-10-11 15:12:56@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02008-10-09 20:42:13@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
SPFA! 题目恶心啊!最后给出的X min/hour/second有可能超过60.。。
。。。。。。。。WA了N次!!!!!!! -
02008-10-05 18:22:39@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms
单源最短路径。。。dijkstra O(V^2+V^2)都能过哈。。。
注意:输出时间中,分钟 -
02008-09-28 13:27:08@
dijkstra~~~~全0ms
-
02008-09-20 22:19:34@
操
秒忽略又不说
vijos去死编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02008-09-19 23:51:14@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms -
02008-09-17 23:47:14@
spfa
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06:答案错误...程序输出比正确答案长
├ 测试数据 07:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 08:答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09:答案错误...程序输出比正确答案长
├ 测试数据 10:答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:40 有效耗时:0ms -
02008-09-19 12:34:22@
哎呀,终于第110个过了,找了半天,居然处理second时把/写成%了,现在才知道,开锁时间后面只有一个时间单位
-
02008-09-07 11:29:52@
我感觉这题是字符串处理加语文题!
建议把题描述清楚点! -
02008-08-22 19:08:25@
问:为什么难度是2?
答:没有数据范围所以难度是2!
交错了一次,开小了范围*_*. -
02008-08-18 16:21:22@
咋不说数据范围呢?
我猜了个Maxn=4000过了,但不知道n还能不能再小 -
02008-08-17 20:41:20@
其实重点在字符串处理。
对于多出的秒数请用div处理。
大家努力提高这题的通过率把。。。 -
02008-08-17 16:34:17@
晕了,裸Floyd也AC,数组忘开大了全用byte..UNAC了好几次,亏了-.x
对于0号节点,数组别开0就好了... -
02008-08-17 13:53:49@
晕了,多的秒数居然舍去,题目也不说清楚...