USACO 1.4-Packing Rectangles

嗯...好久没更新了...

期末考试相当郁闷。

好，继续下一道：铺放矩形方块

大体思路：

这题...嗯，确实ws，估计这是chapter1唯一一个超过100行代码的程序吧。

虽说毫无思路可言，不过有几种情况还是需要我们去想的。

代码如下：

 { ID:asdcyt01 PROB:packrec LANG:PASCAL } program packrec(input,output); var i,j,k,chang,kuan,minarea:longint; a,b,aa,bb,area:array[1..100]of longint; procedure sort(l,r:longint); var i,j,m,t:longint; begin i:=l;j:=r;m:=b[(i+j)div 2]; repeat while b[i]<m do inc(i); while b[j]>m do dec(j); if i<=j then begin t:=b[i];b[i]:=b[j];b[j]:=t; t:=a[i];a[i]:=a[j];a[j]:=t; inc(i);dec(j); end; until i>j; if i<r then sort(i,r); if l<j then sort(l,j); end; procedure swap(var a,b:longint); var t:longint; begin t:=a; a:=b; b: