题目描述
上课的时候总会有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列的同学的位置是（i,j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。
请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生的对数最少。
输入格式：
输入文件seat.in的第一行，有5个用空格隔开的整数，分别是M，N，K，L，D（2<=N，M<=1000，0<=K<M，0<=L<N，D<=2000）。
接下来的D行，每行有4个用空格隔开的整数。第i行的4个整数Xi，Yi，Pi，Qi，表示坐在位置(Xi，Yi)与(Pi，Qi)的两个同学会交头接耳（输入保证他们前后相邻或者左右相邻）。
输入数据保证最优方案的唯一性。
输出格式：
输出文件seat.out共两行。
第一行包含K个整数，a1，a2……aK，表示第a1行和a1+1行之间、第a2行和a2+1行之间、…、第aK行和第aK+1行之间要开辟通道，其中ai< ai+1，每两个整数之间用空格隔开（行尾没有空格）。
第二行包含L个整数，b1，b2……bL，表示第b1列和b1+1列之间、第b2列和b2+1列之间、…、第bL列和第bL+1列之间要开辟通道，其中bi< bi+1，每两个整数之间用空格隔开（列尾没有空格）。
题解：
使用结构体标记x,y轴，然后在读入每一对同学时，如果他们x轴相同就放在一个组，y轴相同放在另一个组，然后把对应的数组的值+1。
（对于x轴和y轴，某一条无论怎么分割对其他的分割线都没有影响。）
然后对读入后这两个结构体的值降序排序，取前k和前l个的位置坐标输出即可，可以证明这是最优的思路。
代码：
var
s,d,f,g,h,j,z:longint; a:array[1..3000,1..5] of integer;
a1:array[1..3000,1..5] of integer;
m,n,k,l,i:integer;
begin
read(m,n,k,l,i);
z:=0; j:=0;
for s:=1 to i do
begin
read(d,f,g,h);
if d=g then
begin
z:=z+1;
if f<h
then
begin
a[z,1]:=f; a[z,2]:=h; a[z,5]:=d;
end
else
begin
a[z,1]:=h; a[z,2]:=f; a[z,5]:=d
end;
end;
if f=h then
begin
j:=j+1;
if d<g
then
begin
a1[j,1]:=d; a1[j,2]:=g; a1[j,5]:=f;
end
else
begin
a1[j,1]:=g; a1[j,2]:=d; a1[j,5]:=f;
end;
end;
end;
for s:=1 to j do
if a1[s,3]=0 then
begin
a1[s,3]:=1; a1[s,4]:=a1[s,4]+1;
for d:=s+1 to j do
if (a1[s,1]=a1[d,1]) and (a1[s,2]=a1[d,2])
then
begin
a1[d,3]:=1; a1[s,4]:=a1[s,4]+1;
end;
end;
for s:=1 to j-1 do
for d:=s+1 to j do
if a1[s,4]<a1[d,4] then
for f:=1 to 5 do
begin
g:=a1[s,f]; a1[s,f]:=a1[d,f]; a1[d,f]:=g;
end;
for s:=1 to k-1 do
for d:=s+1 to k do
if a1[s,1]>a1[d,1] then
for f:=1 to 5 do
begin
g:=a1[s,f]; a1[s,f]:=a1[d,f]; a1[d,f]:=g;
end;
for s:=1 to k do
write(a1[s,1],' ');
writeln;
for s:=1 to z do
if a[s,3]=0 then
begin
a[s,3]:=1; a[s,4]:=a[s,4]+1;
for d:=s+1 to z do
if (a[s,1]=a[d,1]) and (a[s,2]=a[d,2])
then
begin
a[d,3]:=1; a[s,4]:=a[s,4]+1;
end;
end;
for s:=1 to z-1 do
for d:=s+1 to z do
if a[s,4]<a[d,4] then
for f:=1 to 5 do
begin
g:=a[s,f]; a[s,f]:=a[d,f]; a[d,f]:=g;
end;
for s:=1 to l-1 do
for d:=s+1 to l do
if a[s,1]>a[d,1] then
for f:=1 to 5 do
begin
g:=a[s,f]; a[s,f]:=a[d,f]; a[d,f]:=g;
end;
for s:=1 to l do
write(a[s,1],' ');
end.