【正文】 Print。 Init。end。 writeln(fo)。 39。 write(Fo,Position[officelist[1]])。 v:=BackWay^[o,v]。 v:=VillageCount。begin rewrite(Fo)。var officelist:array[1..MaxOfficeCount]of integer。end。 end。 if tempCost[o,v] then begin Cost[o,v]:=temp。 for v:=1 to VillageCount do Cost[1,v]:=GetCost(1,v)。 BackWay^[o,v]:=1。 temp:Longint。Procedure Process。Var Cost:array[1..MaxOfficeCount,1..MaxVillageCount]of longint。end。 for v:=left to right do inc(result,abs(meanPosition[v]))。begin mean:=Position[(left+right)div 2]。 v:integer。Function GetCost(left,right:integer):Longint。 close(fi)。 read(Fi,VillageCount,OfficeCount)。 assign(Fo,OutputFileName)。var vc:integer。 Position:array[1..MaxVillageCount]of integer。Var Fi,Fo:Text。 MaxOfficeCount=30。 OutputFileName=39。{IOI2000 Sample ProgramDay 2Task: PostProgrammer: Shao ZhengEmail: shaozDate:Algorithm: Dynamic Programming, O(N^2)}Const InputFileName=39。易知在村莊left至村莊right設(shè)置一個(gè)郵局最好設(shè)在村莊(left+right)div 2，這樣getcost[left,right]也就容易求了。設(shè)getcost[left,right]表示村莊left至村莊right使用一個(gè)郵局的最小費(fèi)用，動(dòng)態(tài)規(guī)劃轉(zhuǎn)移方程為cost[p,v]= {cost[p1,i]+getcost[i+1,v]}。問題所求即為cost[P,V]。 close(input)。 end。 for j:=vvff+i downto i do g[j]:=g[j1]+v[j]。 for i:=1 to ff do begin for j:=1 to vvff+i do read(v[j])。 readln(ff,vv)。)。begin assign(input,39。 g :array[0..maxn]of longint。end.第四個(gè)：const maxn =100。 writeln(g[i2,vv])。 for j:=i+1 to vvff+i do if g[i2,j1]g[i1,j1]+v[j] then g[i2,j]:=g[i2,j1] else g[i2,j]:=g[i1,j1]+v[j]。 readln。 i2:=1i1。 readln。 if (i1)and(g[0,i]g[0,i1]) then g[0,i]:=g[0,i1]。 readln(ff,vv)。)。begin assign(input,39。 g :array[0..1,1..maxn]of longint。end.第三個(gè)：const maxn =100。 writeln(h[vv])。 h[i1]:=0。 h[i1]:=maxint。 readln。 fillchar(h,sizeof(h),0)。 reset(input)。39。 ff,vv,i,j :integer。var v :array[1..maxn]of shortint。 Main。} end。 writeln(j)。 k:=i。k:=0。 end。 end。 for k:=j1 downto i1 do if f[i1,k].n+v[i,j]f[i][j].n then with f[i][j] do begin n:=f[i1,k].n+v[i,j]。 end。 begin for j:=1 to m do with f[1][j] do begin n:=v[1,j]。 end。 output(n1,f[n,i].from)。{ procedure Output(n,i:integer)。 close(ff)。 readln(ff)。 readln(ff,n,m)。)。 begin assign(ff,39。 procedure Init。 v :array[1..maxn,1..maxn]of shortint。 end。附源程序：第一個(gè)const maxn =100。動(dòng)態(tài)規(guī)劃轉(zhuǎn)移方程為f[i,j]=max{f[i,j1],f[i1,j1]+v[i,j]}(ji),邊界情況f[i,i]=f[i1,i1]+v[i,i]。前i束花占用前j個(gè)花瓶可分兩種情況討論，一是第i束花放在第j個(gè)花瓶，一是第i束花不放在第j個(gè)花瓶。 Main。 end。 end。 if (j0)and(f[i,j,t]f[i,j+1,0]) then f[i,j+1,0]:=f[i,j,t]。 if f[ii,b,c]+1f[ii,j,k] then f[i,j,k]:=f[ii,b,c]+1 else f[i,j,k]:=f[ii,j,k]。 b:=j。 c:=ttime[i]。 for j:=0 to a do begin for k:=0 to t1 do if (j0)or(k=time[i]) then begin ii:=i1。 a:=0。 i,j,k,ii,max,a,b,c :integer。 procedure Main。 close(ff)。 readln(ff,n,t,m)。)。 begin assign(ff,39。 var ff :text。 time :array[1..maxn]of shortint。附源程序：const maxn =20。該問題具備最優(yōu)子結(jié)構(gòu)。用j張唱片外加k分鐘在前i首歌中有選擇地錄制可分兩種情況，即錄制或不錄制第i首歌。 Main。 end。 writeln(max1)。 k:=j。 max:=1。 end。 while (k=n)and(i=pie[k].time) do begin if f[i]^[pie[k].pos]0 then f[i]^[pie[k].pos]:=f[i]^[pie[k].pos]+pie[k].mark。 f[i]^[j]:=max。 for c:=2 to 2 do if (j+c=1)and(j+c=w)then begin if (f[i1]^[j+c]max) then max:=f[i1]^[j+c]。 f[0]^[w div 2+1]:=1。 end。 begin for i:=1 to maxn do begin new(f[i])。 writeln(j)。 end。 for c:=2 to 2 do if (k+c=1)and(k+c=w)and(maxf[i]^[k+c]) then begin max:=f[i]^[k+c]。 max:=0。 var j,c:integer。 i,j,k,c,max :integer。 procedure Main。 Sort(1,n)。 end。 pie[n].time:=s+(h1)div v。 while not eof(input) do begin n:=n+1。 readln(w,h)。)。