讨论 / 本题的原题目
wind.L.H 2011-07-24 04:14:00
点我顶贴 收藏 删除
【问题描述】

尼克每天上班之前都连接上英特网,接收他的上司发来的邮件,这些邮件包含了尼克主管的部门当天要完成的全部任务,每个任务由一个开始时刻与一个持续时间构成。

尼克的一个工作日为N分钟,从第一分钟开始到第N分钟结束。当尼克到达单位后他就开始干活。如果在同一时刻有多个任务需要完戍,尼克可以任选其中的一个来做,而其余的则由他的同事完成,反之如果只有一个任务,则该任务必需由尼克去完成,假如某些任务开始时刻尼克正在工作,则这些任务也由尼克的同事完成。如果某任务于第P分钟开始,持续时间为T分钟,则该任务将在第P+T-1分钟结束。

写一个程序计算尼克应该如何选取任务,才能获得最大的空暇时间。

【输入】

输入数据第一行含两个用空格隔开的整数N和K(1≤N≤10000,1≤K≤10000),N表示尼克的工作时间,单位为分钟,K表示任务总数。

接下来共有K行,每一行有两个用空格隔开的整数P和T,表示该任务从第P分钟开始,持续时间为T分钟,其中1≤P≤N,1≤P+T-1≤N。

【输出】

输出文件仅一行,包含一个整数,表示尼克可能获得的最大空暇时间。

【样例】

lignja.in lignja.out

15 6 4

1 2

1 6

4 11

8 5

8 1

11 5

【参考程序】

program xxx(input,output);

var

m:array[1..10001]of integer;

ks:array[1..10000]of integer;

t:array[1..10000]of integer;

a,b,n,k:integer;

f1,f2:text;

begin

assign(f1,’lignja.in’);

reset(f1);

assign(f2,’lignja.out’);

rewrite(f2);

read(f1,n,k);

for a:=1 to k do read(f1,ks[a],t[a]);

close(f1);

for a:=n downto 1 do begin

m[a]:=0;

b:=k;

while ks[b]>a do dec(b);

if ks[b]<>a then m[a]:=m[a+1]+1

else begin

m[a]:=m[ks[b]+t[b]];

while ks[b]=a do begin

dec(b);

if (ks[b]=a) and (m[ks[b]+t[b]]>m[a]) then m[a]:=m[ks[b]+t[b]];

end;

end;

end;

write(f2,m[1]);

close(f2);

end.

http://hi.baidu.com/wind%5Flihao/blog/item/685f4424c6a8fc378644f96e.html

#1 Wych@2008-10-03 06:10:00
回复 删除
麻烦Lz能否说明一下此代码的含义?
#2 tongkeye@2011-07-24 04:14:00
回复 删除
求解释

查看更多回复
提交回复