动态规划——复制书稿.docVIP

动态规划-复制书稿 〖题目描述〗假设有M本书（编号为1，2，…M），想将每本复制一份，M本书的页数可能不同（分别是P1，P2，…PM）。任务是将这M本书分给K个抄写员（K〈=M〉，每本书只能分配给一个抄写员进行复制，而每个抄写员所分配到的书必须是连续顺序的。意思是说，存在一个连续升序数列 0 = bo b1 b2 … bk-1 bk = m，这样，第I号抄写员得到的书稿是从bi-1+1到第bi本书。复制工作是同时开始进行的，并且每个抄写员复制的速度都是一样的。所以，复制完所有书稿所需时间取决于分配得到最多工作的那个抄写员的复制时间。试找一个最优分配方案，使分配给每一个抄写员的页数的最大值尽可能小（如存在多个最优方案，只输出其中一种）。(GDOI99 Books). 〖输入格式〗第一行两个数m,k:表示书本数目与人数;第二行m个由空格分隔的整数,m本书每本的页数. 〖输出格式〗共k行。每行两个整数：第I行表示第I抄写员抄的书本编号起止。 〖输入输出样例〗 输入样例 输出样例 9 31 2 3 4 5 6 7 8 9 1 56 7 8 9 〖参考程序〗 program books; uses crt; type lx=packed Array [1..500] of longint; rx=packed Array [1..500] of longint; var a1:array [1..500] of longint; a:array [1..500] of ^lx; z:array [1..500] of ^rx; b:array [1..500] of longint; c,d,e,f,k,m:longint; f1,f2:text; procedure try; var c,d,e,f,g,h,i,j,min,max:longint; flag,flag1:boolean; l:array [1..500] of longint; begin for c:=2 to k do begin new (a[c]); new (z[c]); if c3 then dispose (a[c-2]); for d:=c to m do begin max:=maxlongint; for e:=1 to d-1 do begin min:=0; if (a[c-1]^[e]min) then min:=a[c-1]^[e]; f:=a1[d]-a1[e]; if (fmin) then min:=f; if minmax then begin max:=min; i:=e; end; end; a[c]^[d]:=max; z[c]^[d]:=i; end; end; j:=0; i:=m; for c:=k downto 2 do begin j:=j+1; l[j]:=z[c]^[i]; i:=l[j]; end; rewrite (f2); j:=1; for c:=k-1 downto 1 do begin writeln (f2,j, ,l[c]); j:=l[c]+1; end; writeln (f2,j, ,m); close (f2); end; begin assign (f1,books.dat); assign (f2,books.out); reset (f1); readln (f1,m,k); new (a[1]); d:=0; for c:=1 to m do begin read (f1,b[c]); d:=d+b[c]; a[1]^[c]:=d; a1[c]:=d; end; close (f1); try; end.