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:=t; end; function min(a,b:longint):longint; begin if a<b then exit(a) else exit(b); end; function max(a,b:longint):longint; begin if a>b then exit(a) else exit(b); end; begin assign(input,'packrec.in');reset(input); assign(output,'packrec.out');rewrite(output); for i:=1 to 4 do begin readln(a[i],b[i]); if a[i]<b[i] then swap(a[i],b[i]); end; minarea:=maxlongint; //begin----第一种情况 kuan:=b[1]+b[2]+b[3]+b[4]; chang:=max(max(max(a[1],a[2]),a[3]),a[4]); area[1]:=chang*kuan; if area[1]<minarea then minarea:=area[1]; aa[1]:=max(chang,kuan);bb[1]:=chang+kuan-max(chang,kuan); //end----第一种情况 //begin----第二种情况 {1} chang:=b[2]+b[3]+b[4]; kuan:=b[1]+max(a[2],max(a[3],a[4])); area[2]:=chang*kuan; if area[2]<minarea then minarea:=area[2]; aa[2]:=max(chang,kuan);bb[2]:=chang+kuan-max(chang,kuan); {2} chang:=b[1]+b[3]+b[4]; kuan:=b[2]+max(a[1],max(a[3],a[4])); area[3]:=chang*kuan; if area[3]<minarea then minarea:=area[3]; aa[3]:=max(chang,kuan);bb[3]:=chang+kuan-max(chang,kuan); {3} chang:=b[2]+b[1]+b[4]; kuan:=b[3]+max(a[2],max(a[1],a[4])); area[4]:=chang*kuan; if area[4]<minarea then minarea:=area[4]; aa[4]:=max(chang,kuan);bb[4]:=chang+kuan-max(chang,kuan); {4} chang:=b[2]+b[3]+b[1]; kuan:=b[4]+max(a[2],max(a[3],a[1])); area[5]:=chang*kuan; if area[5]<minarea then minarea:=area[5]; aa[5]:=max(chang,kuan);bb[5]:=chang+kuan-max(chang,kuan); //end----第二种情况 //begin----第三种情况 for i:=1 to 4 do for j:=1 to 4 do begin kuan:=0; for k:=1 to 4 do if k<>j then inc(kuan,b[k]); kuan:=max(kuan,a[j]+b[i]); chang:=a[i]; for k:=1 to 4 do if (k<>i)and(k<>j)then chang:=max(chang,b[j]+a[k]); area[5+(i-1)*4+j]:=chang*kuan; if area[5+(i-1)*4+j]<minarea then minarea:=area[5+(i-1)*4+j]; aa[5+(i-1)*4+j]:=max(chang,kuan);bb[5+(i-1)*4+j]:=chang+kuan-max(chang,kuan); end; //end----第三种情况 //begin----第四种情况 for i:=1 to 4 do begin kuan:=0; for k:=1 to 4 do if k<>i then inc(kuan,b[k]); chang:=maxlongint; for k:=1 to 4 do if k<>i then chang:=min(chang,a[k]); chang:=chang+a[i]; area[22+i]:=chang*kuan; if area[22+i]<minarea then minarea:=area[22+i]; aa[22+i]:=max(chang,kuan);bb[22+i]:=chang+kuan-max(chang,kuan); end; //end----第四种情况 //begin----第五种情况 //end----第五种情况 writeln(minarea); sort(1,26); for i:=1 to 26 do if aa[i]*bb[i]=minarea then writeln(bb[i],' ',aa[i]); close(input);close(output); end .