jzoj 1899. 【2014.8.17NOIP普及组模拟】接苹果

1899. 【2014.8.17NOIP普及组模拟】接苹果(bcatch.pas/c/cpp) 

(File IO): input:bcatch.in output:bcatch.out

时间限制: 1000 ms  空间限制: 128000
KB  具体限制  
Goto ProblemSet

题目描述

    很少有人知道奶牛爱吃苹果。农夫约翰的农场上有两棵苹果树（编号为1和2），每一棵树上都长满了苹果。奶牛贝茜无法摘下树上的苹果，所以她只能等待苹果从树上落下。但是，由于苹果掉到地上会摔烂，贝茜必须在半空中接住苹果（没有人爱吃摔烂的苹果）。贝茜吃东西很快，所以她接到苹果后仅用几秒钟就能吃完。

​    每一分钟，两棵苹果树其中的一棵会掉落一个苹果。贝茜已经过了足够的训练，只要站在树下就一定能接住这棵树上掉落的苹果。同时，贝茜能够在两棵树之间快速移动（移动时间远少于1分钟），因此当苹果掉落时，她必定站在两棵树其中的一棵下面。此外，奶牛不愿意不停地往返于两棵树之间，因此会错过一些苹果。

​    苹果每分钟掉落一个，共T（1<=T<=1000）分钟，贝茜最多愿意移动W（1<=W<=30）次。现给出每分钟掉落苹果的树的编号，要求判定贝茜能够接住的最多苹果数。开始时贝茜在1号树下。

f[i,j]表示第i分钟移动j次的最大值。

const
maxn=1000;
var
f:array[0..maxn,-1..30] of longint;
a:array[0..maxn] of longint;
i,j,k,max,n,w:longint;

function maxf(x,y:longint):longint;
begin
if x>y then exit(x) else exit(y);
end;

begin
assign(input,'bcatch.in'); reset(input);
assign(output,'bcatch.out');rewrite(output);
readln(n,w);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
f[i,0]:=a[i] mod 2;
for j:=0 to w do
begin
f[i,j]:=maxf(f[i-1,j],f[i-1,j-1]);
if j mod 2=(a[i]+1) mod 2
then k:=1 else k:=0;
f[i,j]:=f[i,j]+k;
end;
end;
for i:=0 to w do
if f[n,i
4000
]>max then max:=f[n,i];
writeln(max);
close(input);close(output);
end.