状态: Unaccepted

测评机： Xeost[5]

得分： 20分

提交日期： 2010-11-2 19:36:00

有效耗时： 94毫秒

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序运行超过时限

测试结果6: 选手程序无输出

测试结果7: 选手程序无输出

测试结果8: 选手程序无输出

测试结果9: 通过本测试点|有效耗时47ms

测试结果10: 通过本测试点|有效耗时47ms

提交代码： view sourceprint?01.var n,k,i,j,q,tot,min:longint;

02.

t,p:array[0..120]of longint;

03.

a:array[0..100,0..100]of longint;

04.

s,s1:string;

05.procedure find(m:integer);

06.var i,j:integer;

07.begin

08.

if m>k then

09.

begin

10.

q:=0;

11.

for i:=1 to k do if p[i]=0 then begin q:=1;break;end;

12.

if q=0 then

13.

if tot<min then min:=tot;

14.

exit;

15.

end

16.

else for j:=0 to 1 do

17.

if j=0 then find(m+1)

18.

else

19.

begin

20.

for i:=1 to t[m] do inc(p[a[m,i]]);

21.

inc(tot);

22.

find(m+1);

23.

for i:=1 to t[m] do dec(p[a[m,i]]);

24.

dec(tot);

25.

end;

26.end;

27.begin

28.

29.

readln(n,k);

30.

min:=maxlongint;

31.

for i:=1 to k do

32.

begin

33.

read(t[i]);

34.

for j:=1 to t[i] do read(a[i,j]);

35.

end;

36.

find(1);

37.

writeln(min);

38.end

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

？？？

这是哪道题啊？？？

89

继续剪枝吧孩子。。话说我怎么剪都WA30。。

嗯嗯，我也一样，最开始读入用过程一样，后来把过程删了，就最后也是无输出了

我怎么都是无法改变.......

查看状态 Show Status

题目:解题

状态: Unaccepted

测评机： Xeond[6]

得分： 20分

提交日期： 2011-8-26 19:58:00

有效耗时： 94毫秒

RQNOJ近期在线比赛列表

RQNOJ八月份月赛 时间:2011-8-27 18:00:00 [报名]

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序运行超过时限

测试结果6: 选手程序无输出

测试结果7: 选手程序无输出

测试结果8: 选手程序无输出

测试结果9: 通过本测试点|有效耗时47ms

测试结果10: 通过本测试点|有效耗时47ms