69 条题解
-
0
陈亮宇 LV 10 @ 2009-11-07 15:33:53
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms一次AC 感觉不错
-
0
huyuanming11 LV 10 @ 2009-09-12 13:08:50
感谢OImaster提供好题~
-
0
fnoi05clyang LV 8 @ 2009-07-13 22:47:01
第8个点与第十个点为什么TLE
-
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
cyc20050436 LV 6 @ 2009-07-11 09:30:15
边表没开够,结果最后一个点T了……
不理解
vj能不能不要总给个216,给个201 215等等的也好啊，让我们知道哪里错了。第几个点错了不重要，重要的是什么错了。 -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：运行超时...
├ 测试数据 05：运行超时...
├ 测试数据 06：运行超时...
├ 测试数据 07：运行超时...
├ 测试数据 08：运行超时...
├ 测试数据 09：运行超时...
├ 测试数据 10：运行超时...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：30 有效耗时：0ms
这是什么！这是什么！啊啊啊！！！ -
0
JackDavid127 LV 10 @ 2009-06-23 21:58:59
大家注意哦：因为是无向图，所以建边时要建双向的，按照无向图的方法建边，否则第5、8、10个点会WA
如此水题交了三次，RP……
点击这里看解题报告
-
0
得70分是什么问题
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：70 有效耗时：0ms
program p1524;
const maxw=10000000;
type link=^node;
node=record
data:integer;
next:link;
end;
var c:array[0..200,0..200]of longint;
q:array[0..500]of link;
e,d:array[0..200]of longint;
i,j,k,n,m,maxd,ee,a,b,w:longint;
p:link;
function max(a,b:longint):longint;
begin
if a>b then exit(a) else exit(b);
end;
function min(a,b:longint):longint;
begin
if a>b then exit(b) else exit(a);
end;
procedure add(k,dk:longint);
var p:link;
i:integer;
begin
if (k=1)or(k=n+1) then exit;
maxd:=max(maxd,dk);
new(p);
p^.data:=k;
p^.next:=q[dk];
q[dk]:=p;
end;
procedure push(k:integer);
var i,x:longint;
begin
repeat
for i:=1 to n+1 do
if (c[k,i]>0)and(d[k]=d[i]+1)
then begin
if e[i]=0 then add(i,d[i]);
x:=min(e[k],c[k,i]);
inc(e[i],x);
dec(e[k],x);
dec(c[k,i],x);
inc(c,x);
end;
if e[k]>0
then begin
d[k]:=maxw;
for i:=1 to n+1 do
if (c[k,i]>0)and(d[k]>d[i]+1) then d[k]:=d[i]+1;
end;
until e[k]=0;
end;
begin
readln(n,ee);
fillchar(c,sizeof(c),0);
for i:=1 to ee do
begin
readln(a,b,w);
inc(c[a,b],w);
end;
readln(m);
for i:=1 to m do
begin
read(k);
c[k,n+1]:=maxw;
end;
d[1]:=1;
for i:=1 to n+1 do q[i]:=nil;
for i:=2 to n+1 do e[1]:=e[1]+c[1,i];
push(1);
d[1]:=n+1;
while maxd>=0 do
begin
while q[maxd]nil do
begin
p:=q[maxd];
q[maxd]:=q[maxd]^.next;
push(p^.data);
dispose(p);
end;
while (maxd>=0)and(q[maxd]=nil) do dec(maxd);
end;
writeln(e[n+1]);
end.
那位大牛帮我改一下 -
0
ufo172849z LV 10 @ 2009-06-11 17:47:56
MS可以用当前弧优化的吧
当时程序没调对。用SAP+GAP过的。
陈亮宇
LV 10
@ 2009-11-07 15:33:53
