洛谷 P1056 排座椅

版权声明:欢迎借鉴,谢绝抄搬。 https://blog.csdn.net/Gx_Man_VIP/article/details/54377740

题目描述

上课的时候总会有一些同学和前后左右的人交头接耳,这是令小学班主任十分头疼的一件事情。不过,班主任小雪发现了一些有趣的现象,当同学们的座次确定下来之后,只有有限的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年普及组第二题

模拟:
1.将他们每一对讲话的人夹着的横或纵边+1。
2.分别排序找出横边最多人讲话的k条边,纵边最多人讲话的l条边。
3.依次按位置从小到大输出。

var
   p,q,a,b,i,j,t,n,m,k,l,d:longint;
   f,x,y,xx,yy:array [0..1000] of longint;
begin
     readln(n,m,k,l,d);
     for i:=1 to d do
       begin
           readln(p,q,a,b);
           if p=a then
               if q>b then inc(y[b])
                      else inc(y[q]);
           if q=b then
                if p>a then inc(x[a])
                       else inc(x[p]);
       end;

     xx:=x;
     for i:=1 to n-1 do
         for j:=i+1 to n do
             if x[i]<x[j] then
                begin
                   t:=x[i]; x[i]:=x[j]; x[j]:=t;
                end;
      for i:=1 to k do inc(f[x[i]]);
      for i:=1 to n do
          if f[xx[i]]>=1 then
             begin
                 dec(k);
                 dec(f[xx[i]]);
                 if k=0 then write(i)
                        else write(i,' ');
             end;

      yy:=y;
      for i:=1 to m-1 do
          for j:=i+1 to m do
              if y[i]<y[j] then
                 begin
                     t:=y[i]; y[i]:=y[j]; y[j]:=t;
                 end;
      writeln;
      for i:=1 to l do inc(f[y[i]]);
      for i:=1 to m do
          if f[yy[i]]>=1 then
             begin
                 dec(l);
                 dec(f[yy[i]]);
                 if l=0 then write(i)
                        else write(i,' ');
             end;
end.
阅读更多

没有更多推荐了,返回首页