讨论 / 怎么回事?
?号疯子(第四代) 2011-10-10 12:51:00
点我顶贴 收藏 删除
测试结果1: 测试结果错误.错误结果为:1

1

正确结果应为:1

1

测试结果2: 测试结果错误.错误结果为:1 2 4 5 7 8 9

1 2 4 5 6 7 8 9

正确结果应为:1 2 4 5 7 8 9

1 2 4 5 6 7 8 9

测试结果3: 测试结果错误.错误结果为:1 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

2 3 4 6 7 9 10 11 12 15 16 18 19

正确结果应为:1 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

2 3 4 6 7 9 10 11 12 15 16 18 19

测试结果4: 测试结果错误.错误结果为:1 2 4 7 8 9 10 11 12 15 16 17 18 19

1 3 4 5 7 8 9 11 12 14 15 16 17 18 19

正确结果应为:1 2 4 7 8 9 10 11 12 15 16 17 18 19

1 3 4 5 7 8 9 11 12 14 15 16 17 18 19

测试结果5: 测试结果错误.错误结果为:10 11 29 39 47 49 50 59 79 81 83

1 4 8 13 15 18 20 21 22 26 27 31 32 33 34 36 41 46 48 50 57 59 61 62 66 67 68 69 72 74 78 80 81 84 85 88 89 90 94 95 97

正确结果应为:10 11 29 39 47 49 50 59 79 81 83

1 4 8 13 15 18 20 21 22 26 27 31 32 33 34 36 41 46 48 50 57 59 61 62 66 67 68 69 72 74 78 80 81 84 85 88 89 90 94 95 97

测试结果6: 测试结果错误.错误结果为:1 3 4 8 11 18 21 26 27 34 35 37 38 41 42 47 50 51 53 55 56 60 62 63 65 66 68 69 72 74 79 81 82 84 86 87 89 91 95 96 97

2 3 13 16 18 19 22 24 25 26 27 28 31 39 40 41 44 46 47 50 54 56 57 61 63 64 69 70 71 73 76 77 78 80 82 87 92 95 98 99

正确结果应为:1 3 4 8 11 18 21 26 27 34 35 37 38 41 42 47 50 51 53 55 56 60 62 63 65 66 68 69 72 74 79 81 82 84 86 87 89 91 95 96 97

2 3 13 16 18 19 22 24 25 26 27 28 31 39 40 41 44 46 47 50 54 56 57 61 63 64 69 70 71 73 76 77 78 80 82 87 92 95 98 99

测试结果7: 测试结果错误.错误结果为:1 3 6 11 14 17 26 28 29 31 33 35 37 40 41 46 52 57 61 64 69 80 90 99

3 9 14 19 22 26 27 31 34 40 44 51 52 58 59 63 64 67 77 83 84 85 86 91 94 95 99

正确结果应为:1 3 6 11 14 17 26 28 29 31 33 35 37 40 41 46 52 57 61 64 69 80 90 99

3 9 14 19 22 26 27 31 34 40 44 51 52 58 59 63 64 67 77 83 84 85 86 91 94 95 99

测试结果8: 测试结果错误.错误结果为:5 17 19 26 29 35 41 50 51 57 61 67 87 106 115 116 119 120 122 123 132 133 134 141 143 151 154 159 161 172 176 182 184 185 189 193

5 11 18 23 31 43 44 53 65 67 69 73 92 111 112 113 116 122 124 126 136 141 146 156 158 185 194

正确结果应为:5 17 19 26 29 35 41 50 51 57 61 67 87 106 115 116 119 120 122 123 132 133 134 141 143 151 154 159 161 172 176 182 184 185 189 193

5 11 18 23 31 43 44 53 65 67 69 73 92 111 112 113 116 122 124 126 136 141 146 156 158 185 194

测试结果9: 测试结果错误.错误结果为:6 10 28 72 90 100 110 126 128 129 137 138 139 142 147 152 155 157 159 175 191 199

2 11 21 27 30 37 38 39 40 48 52 55 60 67 76 81 83 88 89 95 104 106 109 117 120 121 123 125 135 136 142 143 147 150 156 159 163 166 167 170 173 174 176 186 192

正确结果应为:6 10 28 72 90 100 110 126 128 129 137 138 139 142 147 152 155 157 159 175 191 199

2 11 21 27 30 37 38 39 40 48 52 55 60 67 76 81 83 88 89 95 104 106 109 117 120 121 123 125 135 136 142 143 147 150 156 159 163 166 167 170 173 174 176 186 192

测试结果10: 测试结果错误.错误结果为:1 4 15 17 20 28 31 36 37 40 43 44 45 47 52 63 64 65 68 71 73 77 83 88 94 102 105 106 111 113 116 118 121 123 128 129 138 144 147 165 168 170 172 173 175 181 182 183 187 188 192 198 199

1 3 4 5 10 12 13 14 16 17 19 20 25 27 30 32 38 39 44 47 49 51 57 61 64 67 68 69 71 77 78 84 87 93 95 99 100 103 105 106 108 109 113 115 116 118 121 125 131 132 135 138 139 144 147 148 150 153 156 158 160 164 165 166 168 169 173 174 175 178 181 182 185 187 189 193 194 196 197 199

正确结果应为:1 4 15 17 20 28 31 36 37 40 43 44 45 47 52 63 64 65 68 71 73 77 83 88 94 102 105 106 111 113 116 118 121 123 128 129 138 144 147 165 168 170 172 173 175 181 182 183 187 188 192 198 199

1 3 4 5 10 12 13 14 16 17 19 20 25 27 30 32 38 39 44 47 49 51 57 61 64 67 68 69 71 77 78 84 87 93 95 99 100 103 105 106 108 109 113 115 116 118 121 125 131 132 135 138 139 144 147 148 150 153 156 158 160 164 165 166 168 169 173 174 175 178 181 182 185 187 189 193 194 196 197 199

提交代码: view sourceprint?01.var

02.u,a,ans:array[0..3001] of integer;

03.m,n,k,l,d,i,j,x0,x1,y0,y1:integer;

04.procedure try(var a,b:integer);

05.var t:longint;

06.begin

07.t:=a; a:=b; b:=t;

08.end;

09.begin

10.readln(m,n,k,l,d);

11.for i:=1 to d do begin

12.readln(x0,y0,x1,y1);

13.if x0=x1 then begin

14.inc(a[((y0+y1-abs(y0-y1))shr 1)+m]);

15.end else

16.inc(a[(x0+x1-abs(x0-x1))shr 1]);

17.end;

18.for i:=1 to m+n do u[i]:=i;

19.for i:=1 to m+n do

20.for j:=i+1 to m+n do

21.if a[u[i]]<a[u[j]] then try(u[i],u[j]);

22.j:=1;

23.for i:=1 to k do begin

24.while u[j]>m do inc(j);

25.ans[i]:=u[j];

26.inc(j);

27.end;

28.for i:=1 to k do

29.for j:=i+1 to k do

30.if ans[i]>ans[j] then try(ans[i],ans[j]);

31.for i:=1 to k do write(ans[i],' ');

32.writeln;

33.j:=1;

34.for i:=1 to l do begin

35.while u[j]<m do inc(j);

36.ans[i]:=u[j]-m;

37.inc(j);

38.end;

39.for i:=1 to l do

40.for j:=i+1 to l do

41.if ans[i]>ans[j] then try(ans[i],ans[j]);

42.write(ans[1]);

43.for i:=2 to l do write(' ',ans[i]);

44.writeln;

45.end.

#1 ?号疯子(第四代)@2011-10-10 12:51:00
回复 删除
已解决
查看更多回复
提交回复