比较巧妙的动态规划。用f[i][j]表示第i个月,总工作了j道题目(从1~j),所能剩余的最多钱数。
状态转移方程如下:
f[i][j]=Max(m-∑b[j]-∑b[k]){其中,k应当满足f[i-1][k]>=∑a[j]-∑a[k]}
注意最后输出的应该是ans+1,因为第一个月实际上是没有收入的。
代码:
Program Psolve;//By_Thispoet
Const
maxn=300;
Var
i,j,k,m,n,p,q,ans :Longint;
a,b :Array[0..maxn]of Longint;
f :Array[0..maxn*2,0..maxn]of Longint;
Function Max(i,j:Longint):Longint;
begin
if i>j then exit(i);exit(j);
end;
BEGIN
readln(m,n);
for i:=1 to n do
begin
readln(a[i],b[i]);
inc(a[i],a[i-1]);
inc(b[i],b[i-1]);
end;
fillchar(f,sizeof(f),128);
f[1,0]:=m;
ans:=1;
while true do
begin
inc(ans);
for j:=1 to n do
for k:=j downto 0 do
begin
if (f[ans-1][k]>=a[j]-a[k])and(m>=b[j]-b[k]) then
f[ans,j]:=Max(f[ans,j],m-b[j]+b[k]);
if f[ans,j]=m then break;
end;
if f[ans,n]>=0 then break;
end;
writeln(ans+1);
END.