奥赛算法动规书稿.pdfVIP

书稿

〖题目描述〗

假设有M本书（编号为1，2，…M），想将每本一份，M本书的页数可

能不同（分别是P1，P2，…PM）。任务是将这M本书分给K个抄写员（K〈=M〉，

每本书只能分配给一个抄写员进行，而每个抄写员所分配到的书必须是连续

顺序的。

意思是说，存在续升序数列0=bob1b2…bb=

k-1k

m，这样，第I号抄写员得到的书稿是从b+1到第b本书。工作是同时开

i-1i

始进行的，并且每个抄写员的速度都是一样的。所以，完所有书稿所需

时间取决于分配得到最多工作的那个抄写员的时间。试找一个最优分配方

案，使分配给每一个抄写员的页数的最大值尽可能小（如存在多个最优方案，只

输出其中一种）。

〖输入格式〗

第一行两个数m,k:表示书本数目与人数;第二行m个由空格分隔的整数,m本书每

本的页数.

〖输出格式〗

共k行。每行两个整数：第I行表示第I抄写员抄的书本编号起止。

〖输入输出样例〗

输入样例输出样例

15

93

67

123456789

89

〖参考程序〗

programbooks;

usescrt;

type

lx=packedArray[1..500]oflongint;

rx=packedArray[1..500]oflongint;

var

a1:array[1..500]oflongint;

a:array[1..500]of^lx;

z:array[1..500]of^rx;

b:array[1..500]oflongint;

c,d,e,f,k,m:longint;f1,f2:text;

proceduretry;

var

c,d,e,f,g,h,i,j,min,max:longint;flag,flag1:boolean;

l:array[1..500]oflongint;

begin

forc:=2tokdobegin

new(a[c]);new(z[c]);ifc3thendispose(a[c-2]);

ford:=ctomdobeginmax:=maxlongint;

fore:=1tod-1dobegin

min:=0;

if(a[c-1]^[e]min)thenmin:=a[c-1]^[e];

f:=a1[d]-a1[e];

if(fmin)thenmin:=f;

ifm