【正文】 if a[i]fn then begin fn:=a[i]。 end。 end。end.3 動態(tài)規(guī)劃的方法只作為理論討論，不具可行性。const maxn=75。39。39。{定義單詞類型}var f:text。{wd——當(dāng)前單詞；prev——前驅(qū)單詞；ans_wd——最長詞鏈} now,max,i,l:integer。{將st串按小寫字母輸出}
var i:integer。 writeln(F)。begin assign(f,inputfile)。 prev:=39。{前驅(qū)單詞清空} l:=0。{讀入一個單詞}
if wd=39。 then break。{前綴詞鏈個數(shù)清零}
for i:=1 to length(wd) do
if i=l then begin if prev[i]=upcase(wd[i]){含有一個前綴單詞} then begin inc(now)。{用大寫字母標(biāo)記前綴的位置} end else if prev[i]wd[i] then break。{大于前驅(qū)單詞的長度，跳出循環(huán)} wd[length(wd)]:=upcase(wd[length(wd)])。{遞推給下一個單詞} prev:=wd。 ans_wd:=wd。 until true=false。 assign(F,outputfile)。 {輸出結(jié)果} for i:=1 to length(ans_wd) doif ans_wd[i]=upcase(ans_wd[i]) then output(copy(ans_wd,1,i))。end.4 問題四IOI’99《機(jī)場跑道》，由于效果不很明顯，因此沒有著重討論。{$A+,B,D+,E+,F,G,I+,L+,N,O,P,Q,R,S+,T,V+,X+}{$M 2048,0,655360}program land_1。 last=100。39。39。 crr=array[0..10] of longint。var f:text。 xmin,ymin,xmax,ymax:integer。{地圖} area,maxarea:longint。 { 8K buffer；緩沖區(qū) } len:array[1..maxn] of crr。procedure get(left,right:integer)。begin reset(F)。 for j:=1 to left1 do read(f,k)。 end。procedure done(stl,edl:integer)。 min,max:integer。begin if longint(edlstl+1)*longint(v)=area then exit。 for i:=1 to v do for j:=0 to c do begin{求各行中包括首位置的高度在范圍[min,max]內(nèi)的區(qū)域} k:=stl。max:=min+c。 until (kedl) or (map[k]^[i]max) or (map[k]^[i]min)。 end。 for i:=1 to v do begin dec(maxw)。 j:=i。 if wide[k]*(longint(j)longint(i)+1)area then begin area:=wide[k]*(longint(j)longint(i)+1)。xmax:=xmin+wide[k]1。ymax:=j。 inc(j)。 k0:=map[stl]^[j]map[stl]^[i]+k。 if len[j,k0]wide[k] then wide[k]:=len[j,k0]。 end。end。 xmin:=1。 ymin:=1。 {區(qū)域信息初始化} assign(f,inputfile)。 reset(F)。 if 100u then maxarea:=longint(v)*longint(u) else maxarea:=longint(v)*100。 get(1,100)。 dispose(map[i])。{已經(jīng)達(dá)到了最大面積的上限，跳出循環(huán)} if (i mod last=1) and (i+last+99=u) then begin{讀入下一輪數(shù)據(jù)} for j:=i+100 to i+last+99 do new(map[j])。 end。 for i:=(u div last*last)+1 to u do new(map[i])。 {讀入剩余數(shù)據(jù)} for i:=u98 to u do if i0 then done(i,u)。 assign(f,outputfile)。 writeln(f,area)。 39。 39。 39。 close(F)。const maxn=700。{一次性讀入的區(qū)域列數(shù)（東西方向）} inputfile=39。 outputfile=39。type arr=array[0..maxn] of integer。var f:text。 xmin,ymin,xmax,ymax:integer。{地圖} min,max:array[1..maxn] of integer。{（area當(dāng)前的最大面積；maxarea最大面積的上限；）} Buf:array[1..8191] of Char。{讀入地圖的left列至right列}var i,j,k,no:integer。 for i:=v downto 1 do begin readln(F)。 for no:=left to right do if no=u then read(f,map[no]^[i]) else break。end。{求解以stl為西面界限且其東面界限不超過edl中的最大區(qū)域}var i,j,k,w,l:integer。begin if longint(edlstl+1)*longint(v)=area then exit。 for i:=1 to v do max[i]:=maxint。{沿東西方向的長度} l:=v。 {j行中從stl列至i列中的最小高度} if map[i]^[j]max[j] then max[j]:=map[i]^[j]。 inc(w)。{剪枝條件1} if longint(w)*longint(l)=area then continue。{重新計算L值} for j:=1 to v do begin{區(qū)域的北面界限} k:=j+1。maxall:=maxint。 if k=0 then break。 if max[k]maxall then maxall:=max[k]。 {所得的區(qū)域是南北方向上的跨度為[k+1,j]} if jkl then l:=jk。 xmin:=stl。 ymin:=k+1。 end。 end。begin area:=1。xmax:=1。ymax:=1。 SetTextBuf(F, Buf)。 readln(F,u,v,c)。 for i:=1 to 100 do new(map[i])。 for i:=1 to u99 do begin done(i,i+99)。{釋放空間} if area=maxarea then break。 get(i+100,i+last+99)。 end。 get((u div last*last)+1,u)。 close(F)。rewrite(F)。 writeln(f,xmin,39。,ymin,39。,xmax,39。,ymax)。end.【參考書目】1．《實用算法分析與程序設(shè)計》 吳文虎 王建德 電子工業(yè)出版社2．《青少年國際和全國信息學(xué)（計算機(jī)）奧林匹克競賽指導(dǎo) ——組合數(shù)學(xué)的算法與程序設(shè)計》 吳文虎 王建德 清華大學(xué)出版社3.《數(shù)據(jù)結(jié)構(gòu)》（第二版） 嚴(yán)蔚敏 吳偉民 清華大學(xué)出版社 21