五、程序清单 procedure li; type kind=record key integer;.....end; vara:array〔l…n)of kind;p,value:array(1…maxm〕of integer, kx,h,i,j,k,1,hm,mid,m,n,point,c:integer;x kind, begin input data m:=1 value〔1J:=a〔1)，key, for i:=2 to n do begin kx:=a(i).key;1:1;h:=m while (1<=h)do begin mid;=(1+h)div2;if (kx<value[mid )then h mid-1 else 1:=mid+1 end; if(h=0)then c:=0 else begin if (kx=value (h )then c:=1 else c:=0 end, if (c=0)then begin forj:=m downto1 do value〔j+1〕：=value〔j),m:=m+l, value〔l):=kx end end, hm:=(m+1 div2;point;=1; fori:=1 to hm do p〔i〕：=0 for i:=hm+1 to m do p〔i〕：= n+1 while point<p(hm+1 )do begin l:=1,h:=m影x:=a〔point〕y while (I<=h)do begin mid;=(1+h)div2; if (x,key<value mid )then h:=mid-1 else 1,mid +1 end; i,=hy if (i<=hm then begin k:=hm; while (i<k)do begin p〔k):=p〔k〕+1，a〔p〔k)〕：=a〔p〔k-1〕+1〕，k,=k-1 end; p〔i〕：=p〔i〕+1；point::=point+1,end else begin k:=hm+1;a〔point〕：=a〔p〔k)-1〕， while (k<i)do begin p〔k〕：=p〔k)-1sa〔p〔k〕〕：=a〔p〔k+1)-1),k:=k+1 94五 、 程序清单 … … 〔 ， 二 〕 ， 〔 … 〕 ， ， ， ， ， ， ， ， ， ， ， ， ， 二 〔 〕 〔 〕 ， 〔 〕 ， ， 二 〔 〕 一 二 〔 〕 ， 〔 〕 〔 〕 ， ， 〔 〕 〔 〕 二 〔 〕 〔 〕 ， “ 〔 〕 ， ， 〔 〕 一 ， ， 二 〔 〕 〔 〕 〔 〔 〕 〕 〔 〔 一 〕 〕 ， 二 一 〔 〕 〔 〕 二 多 〔 〕 〔 〔 〕 一 〕 〔 〕 〔 〕 一 〔 〔 〕 〕 二 〔 〔 〕 一 〕 ， 二