洛谷 P1056 排座椅

题目

上课的时候总会有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列的同学的位置是（i,j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。

请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生的对数最少。

题解

模拟，细心一点!

代码

var
  n,m,k,l,d,i,j,max,x,y,x1,y1:longint;
  a,b,s,t:array[0..1005]of longint;
  g,h:array[0..1005,0..1005]of longint;

function min(a,b:longint):longint;
begin
  if a<b then exit(a) else exit(b);
end;

begin
  readln(n,m,k,l,d);
  for i:=1 to d do
    begin
      readln(x,y,x1,y1);
      if x=x1 then inc(b[min(y,y1)])
              else inc(a[min(x,x1)]);
    end;
  if m>n then n:=m;
  for i:=1 to n do
    begin
      if a[i]>0 then begin
                       inc(g[a[i],0]);
                       g[a[i],g[a[i],0]]:=i;
                     end;
      if b[i]>0 then begin
                       inc(h[b[i],0]);
                       h[b[i],h[b[i],0]]:=i;
                     end;
    end;
  x:=0;y:=0;
  for i:=n downto 1 do
    if ((x<k)or(y<l))and((g[i,0]>0)or(h[i,0]>0)) then
      begin
        if (g[i,0]>0)and(x<k) then
          begin
            for j:=1 to g[i,0] do
              if x<k then
              begin
                inc(x);
                s[g[i,j]]:=1;
              end;
          end;
        if (h[i,0]>0)and(y<l) then
          begin
            for j:=1 to h[i,0] do
              if y<l then
              begin
                inc(y);
                t[h[i,j]]:=1;
              end;
          end;
      end;
  for i:=1 to n do
    if s[i]>0 then
      begin
        write(i,' ');
        dec(k);
        if k=0 then break;
      end;
  writeln;
  for i:=1 to n do
    if t[i]>0 then
      begin
        write(i,' ');
        dec(l);
        if l=0 then break;
      end;
end.