//题目-----------------------------------------------------------------------------------------

传送门: http://www.luogu.org/problem/show?pid=1056

P1056 排座椅

题目描述

上课的时候总会有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的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，每两个整数之间用空格隔开（列尾没有空格）。

输入输出样例

输入样例#1：

4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4

输出样例#1：

2
2 4

说明

上图中用符号*、※、+标出了3对会交头接耳的学生的位置，图中3条粗线的位置表示通道，图示的通道划分方案是唯一的最佳方案。

2008年NOIP普及组第二题

//解题-----------------------------------------------------------------------------------------

其实这题目有点坑，调试了大半天，才发现原来不是让我杜绝讲话现象，只是让我降到最低。。【生无可恋

这道题是一道简单的模拟加贪心，先给每对说话的同学开一通道，记录在hang或lie中，重复的就加上重复的次数，然后找出前k条分开同学最多的横向通道和前l条分开同学最多的纵向通道输出就可以啦

//快排太长，懒得打，所以就用来冒泡，当然还是过了QAQ

//代码-----------------------------------------------------------------------------------------

 1 program paizhuoyi;
 2 var
 3   a,hang,lie:array[0..1000] of integer;
 4   x1,y1,x2,y2,m,n,k,l,d,i,long:longint;
 5 procedure sort(s,e:longint);
 6 var
 7   x,y,temp:longint;
 8 begin
 9     for x:= s to e-1 do
10        for y:=x+1 to e do
11           if a[x]<a[y] then begin
12                                     temp:=a[x];
13                                     a[x]:=a[y];
14                                     a[y]:=temp;
15                                 end;
16 end;
17 begin
18   readln(m,n,k,l,d);
19   for i:= 1 to d do
20   begin
21     read(x1,y1,x2,y2);
22     if x1=x2 then   begin
23                             if y1>y2 then y1:=y2;
24                             inc(lie[y1]);
25                         end
26     else begin
27                 if x1>x2 then x1:=x2;
28                 inc(hang[x1]);
29             end;
30   end;
31   long:=0;
32   for i:= 1 to m do
33     if hang[i]>0 then begin
34                              inc(long);
35                               a[long]:=hang[i];
36                            end;
37   sort(1,long);
38   for i:= 1 to m do
39     if hang[i]>=a[k] then write(i,‘ ‘);
40   writeln;//---------------------------------------
41   long:=0;
42   for i:= 1 to n do
43     if lie[i]>0 then begin
44                              inc(long);
45                               a[long]:=lie[i];
46                            end;
47   sort(1,long);
48   for i:= 1 to m do
49     if lie[i]>=a[l] then write(i,‘ ‘);
50 end.