排座椅题解

来源：互联网发布：seo外链怎么发编辑：程序博客网时间：2024/04/16 19:18

描述 Description    【问题描述】
上课的时候总有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列

的同学的位置是（i，j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。
请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生对数最少。

       输入格式 Input Format   【输入】
输入文件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)的两个同学会交头接耳（输入保证他们前后相邻或者左右相邻）。
输入数据保证最优方案的唯一性。

       输出格式 Output Format   【输出】
输出文件seat.out共两行。
第一行包含K个整数，a1a2……aK，表示第a1行和a1+1行之间、第a2行和第a2+1行之间、…、第aK行和第aK+1行之间要开辟通道，其中ai< ai+1，每两个整数之间用空格隔开（行尾没有空格）。
第二行包含L个整数，b1b2……bk，表示第b1列和b1+1列之间、第b2列和第b2+1列之间、…、第bL列和第bL+1列之间要开辟通道，其中bi< bi+1，每两个整数之间用空格隔开（行尾没有空格）。

       <script type="text/javascript"></script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script><script>google_protectAndRun("ads_core.google_render_ad", google_handleError, google_render_ad);</script>        样例输入 Sample Input    【输入样例】 4 5 1 2 3 4 2 4 3 2 3 3 3 2 5 2 4        样例输出 Sample Output    2 2 4

提醒自己...数组不能用乱了.......居然wa了两次,第三次重写后一次AC..............

pascal：type re=record x1,x2,y1,y2:longint; end; re2=record nu,no:longint; end;var i,j,k,m,n,l,d,tmp:longint; a:array[1..2001] of re; temp:re2; lie,hang:array[1..1001] of re2; al,ah:array[1..1001] of longint;begin readln(m,n,k,l,d); for i:=1 to 1000 do begin with lie[i] do no:=i; with hang[i] do no:=i; end; for i:=1 to d do begin with a[i] do begin readln(x1,y1,x2,y2); if x1=x2 then begin if y1<y2 then begin inc(lie[y1].nu); end; if y1>y2 then begin inc(lie[y2].nu); end; end; if y1=y2 then begin if x1>x2 then begin inc(hang[x2].nu); end; if x2>x1 then begin inc(hang[x1].nu); end; end; end; end; for i:=1 to n+1 do begin for j:=i+1 to n+1 do begin if lie[i].nu<lie[j].nu then begin temp:=lie[i]; lie[i]:=lie[j]; lie[j]:=temp; end; end; end; for i:=1 to m+1 do begin for j:=i+1 to m+1 do begin if hang[i].nu<hang[j].nu then begin temp:=hang[i]; hang[i]:=hang[j]; hang[j]:=temp; end; end; end; for i:=1 to k do begin ah[i]:=hang[i].no; end; for i:=1 to l do begin al[i]:=lie[i].no; end; for i:=1 to k-1 do begin for j:=i+1 to k do begin if ah[i]>ah[j] then begin tmp:=ah[i]; ah[i]:=ah[j]; ah[j]:=tmp; end; end; end; for i:=1 to l-1 do begin for j:=i+1 to l do begin if al[i]>al[j] then begin tmp:=al[i]; al[i]:=al[j]; al[j]:=tmp; end; end; end; for i:=1 to k-1 do write(ah[i],' '); write(ah[k]); writeln; for i:=1 to l-1 do write(al[i],' '); write(al[l]);end.

排座椅 题解

排座椅题解