SSL 1592
洛谷 P1056 排座椅
題目描述
上課的時候總會有一些同學和前後左右的人交頭接耳，這是令小學班主任十分頭疼的一件事情。不過，班主任小雪發現了一些有趣的現象，當同學們的座次確定下來之後，只有有限的D對同學上課時會交頭接耳。同學們在教室中坐成了M行N列，坐在第i行第j列的同學的位置是（i,j），為了方便同學們進出，在教室中設定了K條橫向的通道，L條縱向的通道。於是，聰明的小雪想到了一個辦法，或許可以減少上課時學生交頭接耳的問題：她打算重新擺放桌椅，改變同學們桌椅間通道的位置，因為如果一條通道隔開了兩個會交頭接耳的同學，那麼他們就不會交頭接耳了。

請你幫忙給小雪編寫一個程式，給出最好的通道劃分方案。在該方案下，上課時交頭接耳的學生的對數最少。

分析或思路
讀入1對學生座標時，為該行或該列的陣列+1（即該行或列可以分割多少名學生）然後分別排序這些數值，最後從大到小累加，直到該行或該列不能分割為止
（這裡給個提醒：用選擇排序或氣泡排序，使用快排會有神祕的錯誤！）

type arr=array[1..1000]of longint;

var  h,k1,k2,l,n,x1,x2,y1,y2,i,j:longint;
     a1,a2,x,b,a:arr;

procedure qsort(k:longint);
var i,j,t:longint;
begin
  for i:=1 to k-1 do
    for j:=i+1
 
 to k do
      if b[i]>b[j] then
        begin
          t:=b[i];
          b[i]:=b[j];
          b[j]:=t;
        end;
end;

procedure sort(n:longint);
var
  i,j,t:longint;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if (a[i]<a[j]) then
        begin
          t:=a[i]; a[i]:=a[j]; a[j]:=t;
          t:=b[i]; b[i]:=b[j]; b[j]:=t;
        end
 
;
end;

begin
  read(h,l,k1,k2,n);
  for i:=1 to n do
    begin
      readln(x1,y1,x2,y2);
      if x1=x2 then
        begin
          if y1>y2 then inc(a1[y2]);
          if y1<y2 then inc(a1[y1]);
        end;
      if y1=y2 then
        begin
          if x1>x2 then inc(a2[x2]);
          if x1<x2 then inc(a2[x1]);
        end;
    end;
  for i:=1 to l do x[i]:=i;
  a:=a2; b:=x; sort(l); qsort(k1); for i:=1 to k1 do write(b[i],' ');
  for i:=1 to h do x[i]:=i;
  writeln;
  a:=a1; b:=x; sort(h); qsort(k2); for i:=1 to k2 do write(b[i],' ');
end.