矩形覆蓋題解

1、第四題矩形覆蓋矩形覆蓋（存盤名NOIPG4）問題描述:在平面上有 n 個(gè)點(diǎn)（n <= 50），每個(gè)點(diǎn)用一對(duì)整數(shù)坐標(biāo)表示。例如：當(dāng) n4 時(shí)，4個(gè)點(diǎn)的坐標(biāo)分另為：p1（1，1），p2（2，2），p3（3，6），P4（0，7），見圖一。這些點(diǎn)可以用 k 個(gè)矩形（1<=k<=4）全部覆蓋，矩形的邊平行于坐標(biāo)軸。當(dāng) k=2 時(shí)，可用如圖二的兩個(gè)矩形 sl，s2 覆蓋，s1，s2 面積和為 4。問題是當(dāng) n 個(gè)點(diǎn)坐標(biāo)和 k 給出后，怎樣才能使得覆蓋所有點(diǎn)的 k 個(gè)矩形的面積之和為最小呢。約定：覆蓋一個(gè)點(diǎn)的矩形面積為 0；覆蓋平行于坐標(biāo)軸直線上點(diǎn)的矩形面積也為0。各個(gè)矩形必須完全分開（邊

2、線與頂點(diǎn)也都不能重合）。 輸入:鍵盤輸人文件名。文件格式為n kxl y1x2 y2. .xn yn （0<=xi,yi<=500) 輸出:輸出至屏幕。格式為：一個(gè)整數(shù)，即滿足條件的最小的矩形面積之和。 輸入輸出樣例d.in :4 21 12 23 60 7屏幕顯示：4分析【題解一】1、本題的難度較大。如果你這樣認(rèn)為：即在假定已用i個(gè)矩形（面積和滿足最?。└采w所有點(diǎn)的基礎(chǔ)上，窮舉所有2個(gè)矩形合并成1個(gè)矩形（條件是：在所有合并方案中使合并后面積最?。瑥亩咕匦蝹€(gè)數(shù)減少為i-1那就錯(cuò)了，可是卻可以通過前4組測(cè)試數(shù)據(jù)！正確的做法是對(duì)不同的K值分別進(jìn)行計(jì)算，好在K值較小，否則.討論：k=

3、1，只要求出n個(gè)點(diǎn)坐標(biāo)的最大、最小值，就可求得矩形的位置與面積；k=2，有2個(gè)矩形，它們只有2種分布形式：左右式（flag=0），上下式（flag=1）12flag=021flag=1對(duì)于左右式，顯然要先將所有點(diǎn)按橫坐標(biāo)升序排列，可將點(diǎn)1點(diǎn)i-1放入矩形1中，將點(diǎn)i點(diǎn)n放入矩形2中，求兩矩形的面積之和；如果面積和比上一個(gè)值小，記下；讓i從2循環(huán)到n,就可完成左右式的全部搜索；對(duì)于上下式，先將所有點(diǎn)按縱坐標(biāo)升序排列，依此類推。k=3，有3個(gè)矩形，它們有6種分布形式：123flag=1123flag=0321flag=2123flag=3123flag=4123flag=5要用兩重循環(huán)進(jìn)行搜索：設(shè)

4、i,j為循環(huán)變量，將點(diǎn)1i-1放入矩形1中，點(diǎn)ij-1放入矩形2中，點(diǎn)jn放入矩形3中；點(diǎn)必須在放入前排好序（均為升序）：對(duì)于flag=0,所有點(diǎn)按橫坐標(biāo)排序；對(duì)于flag=1,所有點(diǎn)按縱坐標(biāo)排序；對(duì)于flag=2,所有點(diǎn)先按橫坐標(biāo)排序，然后點(diǎn)in按縱坐標(biāo)排序；對(duì)于flag=3,所有點(diǎn)先按橫坐標(biāo)排序，然后點(diǎn)1j-1按縱坐標(biāo)排序；對(duì)于flag=4,所有點(diǎn)先按縱坐標(biāo)排序，然后點(diǎn)1j-1按橫坐標(biāo)排序；對(duì)于flag=5,所有點(diǎn)先按縱坐標(biāo)排序，然后點(diǎn)in按橫坐標(biāo)排序；至于k=4,4個(gè)矩形有22種分布形式，實(shí)在太復(fù)雜！幸好測(cè)試數(shù)據(jù)中沒有K=4的情形(似乎有意放了一馬？)。據(jù)說本題全國(guó)沒有一人全對(duì)?。ㄖ灰?/p>

5、K=1，2，3）程序清單$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+,Y+$M 65520,0,655360program NOIPG4; const maxn=50;maxk=3; type rect=record定義"矩形"數(shù)據(jù)類型 l,r,t,b:word;矩形的左邊，右邊，下邊，上邊距坐標(biāo)軸的距離 end; vxy=record定義"點(diǎn)"數(shù)據(jù)類型 x,y:word;點(diǎn)的橫、縱坐標(biāo) end; var ju:array1.maxkof rect; v:array1.maxn,0.2 of vx

6、y;v0:vxy; n,k,i,j,ii,jj:byte;f:text;filename:string; Smin,temp:longint; function intersect(jui,juj:rect):boolean;判斷兩矩形是否有公共點(diǎn) var b1,b2,t1,t2,l1,l2,r1,r2:word; begin b1:=jui.b;b2:=juj.b;t1:=jui.t;t2:=juj.t; l1:=jui.l;l2:=juj.l;r1:=jui.r;r2:=juj.r; intersect:=(l2<=r1) and (l2>=l1) or (r2<=r1)

7、 and (r2>=l1) or (l2<=l1) and (r2>=r1) and (t2<=b1) and (t2>=t1) or (b2<=b1) and (b2>=t1) or (b2>=b1) and (t2<=t1); end; function area(ju:rect):longint;求矩形的面積 var temp:longint; begintemp:=ju.b-ju.t;area:=temp*(ju.r-ju.l);不能直接寫成area:=()*(ju.r-ju.l);因?yàn)檫@樣可能會(huì)溢出！ end; procedure

8、 insert(v:vxy;var ju:rect);將點(diǎn)放入矩形 begin if v.x<ju.l then ju.l:=v.x; if v.x>ju.r then ju.r:=v.x; if v.y<ju.t then ju.t:=v.y; if v.y>ju.b then ju.b:=v.y; end; procedure init;初始化 begin write('Input filename:');readln(filename); assign(f,filename);reset(f);readln(f,n,k); for i:=1 to

9、n do begin read(f,vi,0.x,vi,0.y); vi,1.x:=vi,0.x;vi,1.y:=vi,0.y; end; for i:=1 to n-1 do按橫坐標(biāo)升序排列各點(diǎn)，存入vi,0 for j:=i+1 to n do if vi,0.x>vj,0.x then begin v0:=vi,0;vi,0:=vj,0;vj,0:=v0; end; for i:=1 to n-1 do按縱坐標(biāo)升序排列各點(diǎn)，存入vi,1 for j:=i+1 to n do if vi,1.y>vj,1.y then begin v0:=vi,1;vi,1:=vj,1;vj,

10、1:=v0; end; end; procedure solve;核心計(jì)算 begin smin:=maxlongint; case k of 1:beginK=1的情形 ju1.b:=vn,1.y;ju1.t:=v1,1.y; ju1.r:=vn,0.x;ju1.l:=v1,0.x; smin:=area(ju1); end; 2:for jj:=0 to 1 do beginK=2的情形 flag=0,1的情形 ju1.b:=v1,jj.y;ju1.t:=v1,jj.y; ju1.r:=v1,jj.x;ju1.l:=v1,jj.x; for i:=2 to n do begin inser

11、t(vi-1,jj,ju1);將第i-1點(diǎn)放入矩形1 ju2.b:=vi,jj.y;ju2.t:=vi,jj.y;將第i至n點(diǎn)放入矩形2 ju2.r:=vi,jj.x;ju2.l:=vi,jj.x; for ii:=i+1 to n do insert(vii,jj,ju2); if not intersect(ju1,ju2) then begin如果兩矩形不交叉 temp:=0;for ii:=1 to k do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; end; 3:begin for jj:=0

12、to 1 do begin flag=0,1的情形 ju1.b:=v1,jj.y;ju1.t:=v1,jj.y; ju1.r:=v1,jj.x;ju1.l:=v1,jj.x; for i:=2 to n-1 do begin insert(vi-1,jj,ju1); ju2.b:=vi,jj.y;ju2.t:=vi,jj.y; ju2.r:=vi,jj.x;ju2.l:=vi,jj.x; if intersect(ju1,ju2) then continue; for j:=i+1 to n do begin insert(vj-1,jj,ju2); ju3.b:=vj,jj.y;ju3.t:

13、=vj,jj.y; ju3.r:=vj,jj.x;ju3.l:=vj,jj.x; for ii:=j+1 to n do insert(vii,jj,ju3); if intersect(ju2,ju3) then continue; temp:=0;for ii:=1 to k do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; end; flag=2的情形:先豎直劃分大矩形；再在右矩形中水平劃分 ju1.b:=v1,0.y;ju1.t:=v1,0.y; ju1.r:=v1,0.x;ju1.l:=v1,0.

14、x; for i:=2 to n-1 do begin for ii:=1 to n do vii,2:=vii,0;所有點(diǎn)按橫坐標(biāo)升序排列，存入vi,2 for ii:=i to n-1 do將點(diǎn)i至n按縱坐標(biāo)升序排列，存入vi,2 for jj:=ii+1 to n do if vii,2.y>vjj,2.y then begin v0:=vii,2;vii,2:=vjj,2;vjj,2:=v0; end;結(jié)果：所有點(diǎn)先按橫坐標(biāo)升序排列，然后點(diǎn)i至n按縱坐標(biāo)升序排列 insert(vi-1,2,ju1);將第i-1點(diǎn)放入矩形1 ju2.b:=vi,2.y;ju2.t:=vi,2.y;

15、將第i點(diǎn)放入矩形2 ju2.r:=vi,2.x;ju2.l:=vi,2.x; if intersect(ju1,ju2) then continue; for j:=i+1 to n do begin insert(vj-1,2,ju2);將第j-1點(diǎn)放入矩形2 ju3.b:=vj,2.y;ju3.t:=vj,2.y;將第j至n點(diǎn)放入矩形3 ju3.r:=vj,2.x;ju3.l:=vj,2.x; for ii:=j+1 to n do insert(vii,2,ju3); if intersect(ju2,ju3) then continue; temp:=0;for ii:=1 to k

16、do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; flag=3的情形 for j:=3 to n do begin for ii:=1 to n do vii,2:=vii,0; for ii:=1 to j-2 do for jj:=ii+1 to j-1 do if vii,2.y>vjj,2.y then begin v0:=vii,2;vii,2:=vjj,2;vjj,2:=v0; end; ju3.b:=vj,2.y;ju3.t:=vj,2.y; ju3.r:=vj,2.x;ju3.l:=v

17、j,2.x; for ii:=j+1 to n do insert(vii,2,ju3); for i:=2 to j-1 do begin ju2.b:=vi,2.y;ju2.t:=vi,2.y; ju2.r:=vi,2.x;ju2.l:=vi,2.x; for ii:=i+1 to j-1 do insert(vii,2,ju2); ju1.b:=v1,2.y;ju1.t:=v1,2.y; ju1.r:=v1,2.x;ju1.l:=v1,2.x; for ii:=2 to i-1 do insert(vii,2,ju1); if intersect(ju1,ju2) or intersec

18、t(ju2,ju3) or intersect(ju1,ju3) then continue; temp:=0;for ii:=1 to k do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; flag=4的情形 for j:=3 to n do begin for ii:=1 to n do vii,2:=vii,1; for ii:=1 to j-2 do for jj:=ii+1 to j-1 do if vii,2.x>vjj,2.x then begin v0:=vii,2;vii,2:=vj

19、j,2;vjj,2:=v0; end; ju3.b:=vj,2.y;ju3.t:=vj,2.y; ju3.r:=vj,2.x;ju3.l:=vj,2.x; for ii:=j+1 to n do insert(vii,2,ju3); for i:=2 to j-1 do begin ju2.b:=vi,2.y;ju2.t:=vi,2.y; ju2.r:=vi,2.x;ju2.l:=vi,2.x; for ii:=i+1 to j-1 do insert(vii,2,ju2); ju1.b:=v1,2.y;ju1.t:=v1,2.y; ju1.r:=v1,2.x;ju1.l:=v1,2.x; f

20、or ii:=2 to i-1 do insert(vii,2,ju1); if intersect(ju1,ju2) or intersect(ju2,ju3) or intersect(ju1,ju3) then continue; temp:=0;for ii:=1 to k do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; flag=5的情形 ju1.b:=v1,1.y;ju1.t:=v1,1.y; ju1.r:=v1,1.x;ju1.l:=v1,1.x; for i:=2 to n-1 do be

21、gin for ii:=1 to n do vii,2:=vii,1; for ii:=i to n-1 do for jj:=ii+1 to n do if vii,2.x>vjj,2.x then begin v0:=vii,2;vii,2:=vjj,2;vjj,2:=v0; end; insert(vi-1,2,ju1); ju2.b:=vi,2.y;ju2.t:=vi,2.y; ju2.r:=vi,2.x;ju2.l:=vi,2.x; if intersect(ju1,ju2) then continue; for j:=i+1 to n do begin insert(vj-1

22、,2,ju2); ju3.b:=vj,2.y;ju3.t:=vj,2.y; ju3.r:=vj,2.x;ju3.l:=vj,2.x; for ii:=j+1 to n do insert(vii,2,ju3); if intersect(ju2,ju3) then continue; temp:=0;for ii:=1 to k do temp:=temp+area(juii); if temp<smin then smin:=temp; end; end; end; end; end; begin主程序 init; solve; writeln(smin); end.點(diǎn)評(píng)：壓軸題 據(jù)說

23、，本次復(fù)賽主要是前三題的競(jìng)爭(zhēng)，可見本題能得分的人相當(dāng)少，但是K=1應(yīng)該說是送分的，K=2也是比較容易的。通過測(cè)試，發(fā)現(xiàn)在K=3的第4、5組測(cè)試數(shù)據(jù)中僅用到了flag=1的情形，也就是說，只要寫出flag=1的程序段就OK了（沒寫flag=0,2,3,4,5的同學(xué)偷著樂?）?！绢}解二】具體方法是將每個(gè)點(diǎn)極角排序然后就是一個(gè)經(jīng)典的DP了：fi,j,k=min(fi,j,k,fi,t,k-1+st+1,j)另外注意要DP兩次因?yàn)榭梢允菣M著的也可以是豎著的具體實(shí)現(xiàn)參見以下代碼：var  n,m,i,t,ans,last:longint;  x,y:array1.

24、51 of integer;procedure sort(l,r:integer);var  i,j,mid,t:integer;begin  i:=l;j:=r;mid:=x(l+r) shr 1;  repeat    while(xi<mid) do inc(i);    while(xj>mid) do dec(j);    if i<=j then   

25、60;  begin        t:=xi;xi:=xj;xj:=t;        t:=yi;yi:=yj;yj:=t;              inc(i);dec(j);      end; &#

26、160;until i>j;  if i<r then sort(i,r);  if l<j then sort(l,j);end;procedure qsort(l,r:integer);var  i,j,mid,t:integer;begin  i:=l;j:=r;mid:=y(l+r) shr 1;  repeat    while(yi<mid) do inc(i);    while

27、(yj>mid) do dec(j);    if i<=j then      begin        t:=xi;xi:=xj;xj:=t;        t:=yi;yi:=yj;yj:=t;          

28、0;   inc(i);dec(j);      end;  until i>j;  if i<r then qsort(i,r);  if l<j then qsort(l,j);end;function hight(l,r:integer):integer;var  i,smax,smin:integer;begin  smax:=0;smin:=maxint;  

29、for i:=l to r do    begin      if yi>smax then smax:=yi;      if yi<smin then smin:=yi;    end;  hight:=smax-smin;end;function min(x,y:longint):longint;begin  if x<y then

30、min:=x else min:=y;end;procedure Dynamic;var  j,k,p:integer;  s:array1.50,1.50 of longint;  f:array1.50,1.50,1.4 of longint;begin  for i:=1 to m do    for j:=1 to m do      for k:=1 to n do   

31、60;    fi,j,k:=300000;  for i:=1 to m do    for j:=i to m do      begin        si,j:=(xj-xi)*hight(i,j);        fi,j,1:=si,j;  

32、60;   end;  for p:=1 to m do    for i:=1 to m-p do      begin        j:=i+p;        for k:=2 to n do       

33、60;  for t:=i to j-1 do            fi,j,k:=min(fi,j,k,fi,t,k-1+st+1,j);      end;  ans:=min(ans,f1,m,n);end;begin  assign(input,'t4.in');reset(input);  assign(out

34、put,'t4.out');rewrite(output);  readln(m,n);  for i:=1 to m do    readln(xi,yi);  xm+1:=maxint;ym+1:=maxint;  ans:=maxlongint;  sort(1,m);  t:=x1;last:=1;  for i:=2 to m+1 do    if x

35、i<>t then      begin        qsort(last,i-1);        t:=xi;        last:=i;      end;  Dynamic; 

36、0;for i:=1 to m do    begin      t:=xi;      xi:=yi;      yi:=t;    end;  sort(1,m);  t:=x1;last:=1;  for i:=2 to m+1 do   &#

37、160;if xi<>t then      begin        qsort(last,i-1);        t:=xi;        last:=i;      end;  Dynamic;&#

38、160; writeln(ans);  close(input);close(output);end.【題解三】  好吧，我承認(rèn)，此題真正地震撼了我，我無語。   K明明是1到4的取值，由于數(shù)據(jù)最大K為3，然后所有的做法竟然都是分情況模擬！K=1時(shí)如何，K=2時(shí)有哪些分的情況。（上下分，左右分），K=3的時(shí)候6種情況。    每次都要排序X,Y坐標(biāo)，算面積。$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+,Y+$M 65520,0,655360prog

39、ram NOIPG4;const maxn=50;maxk=3;type rect=record定義"矩形"數(shù)據(jù)類型          l,r,t,b:word;矩形的左邊，右邊，下邊，上邊距坐標(biāo)軸的距離        end;        vxy=record定義"點(diǎn)"數(shù)據(jù)類型    

40、      x,y:word;點(diǎn)的橫、縱坐標(biāo)        end;var ju:array1.maxkof rect;      v:array1.maxn,0.2 of vxy;v0:vxy;      n,k,i,j,ii,jj:byte;f:text;filename:string;      Smin,temp:lon

41、gint;function intersect(jui,juj:rect):boolean;判斷兩矩形是否有公共點(diǎn)    var b1,b2,t1,t2,l1,l2,r1,r2:word;    begin      b1:=jui.b;b2:=juj.b;t1:=jui.t;t2:=juj.t;      l1:=jui.l;l2:=juj.l;r1:=jui.r;r2:=juj.r;    &

42、#160; intersect:=(l2<=r1) and (l2>=l1) or (r2<=r1) and (r2>=l1) or (l2<=l1)           and (r2>=r1) and (t2<=b1) and (t2>=t1) or (b2<=b1) and (b2>=t1)           or (b2>

43、=b1) and (t2<=t1);    end;function area(ju:rect):longint;求矩形的面積    var temp:longint;    begin      temp:=ju.b-ju.t;      area:=temp*(ju.r-ju.l);    end;procedure insert(v:vxy;var ju:rect)

44、;將點(diǎn)放入矩形    begin      if v.x<ju.l then ju.l:=v.x;      if v.x>ju.r then ju.r:=v.x;      if v.y<ju.t then ju.t:=v.y;      if v.y>ju.b then ju.b:=v.y;    end;pr

45、ocedure init;初始化    begin      write('Input filename:');readln(filename);      assign(f,filename);reset(f);readln(f,n,k);      for i:=1 to n do begin        read(f,vi,

46、0.x,vi,0.y);        vi,1.x:=vi,0.x;vi,1.y:=vi,0.y;      end;      for i:=1 to n-1 do按橫坐標(biāo)升序排列各點(diǎn)，存入vi,0        for j:=i+1 to n do         

47、; if vi,0.x>vj,0.x then begin            v0:=vi,0;vi,0:=vj,0;vj,0:=v0;          end;      for i:=1 to n-1 do按縱坐標(biāo)升序排列各點(diǎn)，存入vi,1        for

48、j:=i+1 to n do          if vi,1.y>vj,1.y then begin            v0:=vi,1;vi,1:=vj,1;vj,1:=v0;          end;    end;procedure solve;核心計(jì)算

49、60;   begin      smin:=maxlongint;      case k of        1:beginK=1的情形            ju1.b:=vn,1.y;ju1.t:=v1,1.y;      

50、0;     ju1.r:=vn,0.x;ju1.l:=v1,0.x;            smin:=area(ju1);          end;        2:for jj:=0 to 1 do beginK=2的情形     

51、;       flag=0,1的情形            ju1.b:=v1,jj.y;ju1.t:=v1,jj.y;            ju1.r:=v1,jj.x;ju1.l:=v1,jj.x;         

52、60;  for i:=2 to n do begin              insert(vi-1,jj,ju1);將第i-1點(diǎn)放入矩形1              ju2.b:=vi,jj.y;ju2.t:=vi,jj.y;將第i至n點(diǎn)放入矩形2      &#

53、160;       ju2.r:=vi,jj.x;ju2.l:=vi,jj.x;              for ii:=i+1 to n do insert(vii,jj,ju2);              if not intersect(ju1,ju2) then b

54、egin如果兩矩形不交叉                temp:=0;for ii:=1 to k do temp:=temp+area(juii);                if temp<smin then smin:=temp;    &#

55、160;         end;            end;          end;        3:begin          

56、60; for jj:=0 to 1 do begin flag=0,1的情形              ju1.b:=v1,jj.y;ju1.t:=v1,jj.y;              ju1.r:=v1,jj.x;ju1.l:=v1,jj.x;       &

57、#160;      for i:=2 to n-1 do begin                insert(vi-1,jj,ju1);                ju2.b:=vi,jj.y;ju2.t:=vi,jj.y; &#

58、160;              ju2.r:=vi,jj.x;ju2.l:=vi,jj.x;                if intersect(ju1,ju2) then continue;          

59、      for j:=i+1 to n do begin                  insert(vj-1,jj,ju2);                  ju3.b:=vj,jj.y;ju3.

60、t:=vj,jj.y;                  ju3.r:=vj,jj.x;ju3.l:=vj,jj.x;                  for ii:=j+1 to n do insert(vii,jj,ju3);  &#

61、160;               if intersect(ju2,ju3) then continue;                  temp:=0;for ii:=1 to k do temp:=temp+area(juii);    

62、              if temp<smin then smin:=temp;                end;              end;  

63、;          end;          flag=2的情形:先豎直劃分大矩形；再在右矩形中水平劃分          ju1.b:=v1,0.y;ju1.t:=v1,0.y;          ju1.r:=v1,0.x;ju1.

64、l:=v1,0.x;          for i:=2 to n-1 do begin            for ii:=1 to n do vii,2:=vii,0;所有點(diǎn)按橫坐標(biāo)升序排列，存入vi,2            for ii:=i to n-1 do將點(diǎn)i至n按縱坐標(biāo)

65、升序排列，存入vi,2              for jj:=ii+1 to n do                if vii,2.y>vjj,2.y then begin           &

66、#160;      v0:=vii,2;vii,2:=vjj,2;vjj,2:=v0;                end;結(jié)果：所有點(diǎn)先按橫坐標(biāo)升序排列，然后點(diǎn)i至n按縱坐標(biāo)升序排列            insert(vi-1,2,ju1);將第i-1點(diǎn)放入矩形1 

67、60;          ju2.b:=vi,2.y;ju2.t:=vi,2.y;將第i點(diǎn)放入矩形2            ju2.r:=vi,2.x;ju2.l:=vi,2.x;            if intersect(ju1,ju2) then continue; &

68、#160;          for j:=i+1 to n do begin              insert(vj-1,2,ju2);將第j-1點(diǎn)放入矩形2              ju3.b:=vj,2.y;ju3.t:=vj,2.y;

69、將第j至n點(diǎn)放入矩形3              ju3.r:=vj,2.x;ju3.l:=vj,2.x;              for ii:=j+1 to n do insert(vii,2,ju3);           

70、;   if intersect(ju2,ju3) then continue;              temp:=0;for ii:=1 to k do temp:=temp+area(juii);              if temp<smin then smin:=temp;  

71、          end;          end;          flag=3的情形          for j:=3 to n do begin       

72、;     for ii:=1 to n do vii,2:=vii,0;            for ii:=1 to j-2 do              for jj:=ii+1 to j-1 do         &#

73、160;      if vii,2.y>vjj,2.y then begin                  v0:=vii,2;vii,2:=vjj,2;vjj,2:=v0;                end;&#

74、160;           ju3.b:=vj,2.y;ju3.t:=vj,2.y;            ju3.r:=vj,2.x;ju3.l:=vj,2.x;            for ii:=j+1 to n do insert(vii,2,ju3); &

75、#160;          for i:=2 to j-1 do begin              ju2.b:=vi,2.y;ju2.t:=vi,2.y;              ju2.r:=vi,2.x;ju2.l:=vi,2.x;&#

76、160;             for ii:=i+1 to j-1 do insert(vii,2,ju2);              ju1.b:=v1,2.y;ju1.t:=v1,2.y;            

77、0; ju1.r:=v1,2.x;ju1.l:=v1,2.x;              for ii:=2 to i-1 do insert(vii,2,ju1);              if intersect(ju1,ju2) or intersect(ju2,ju3) or    

78、60;           intersect(ju1,ju3) then continue;              temp:=0;for ii:=1 to k do temp:=temp+area(juii);            

79、0; if temp<smin then smin:=temp;            end;          end;          flag=4的情形          for j:=3 to n do

80、 begin            for ii:=1 to n do vii,2:=vii,1;            for ii:=1 to j-2 do              for jj:=ii+1 to j-1 do                if vii,2.x>vjj,2.x then begin