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.