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

题目描述

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

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

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

题解

  DP。

  开始在1号树下，

代码

var
  b:array[0..1000,0..30] of longint;
  s:array[1..1000] of longint;
  n,m,max:longint;
function main(x,y:longint):longint;
begin
  if y mod 2=0 then
    begin
      if s[x]=1 then
        exit(1)
      else exit(0)
    end
  else
    if s[x]=1 then
      exit(0)
    else exit(1);
end;
var
  i,j:longint;
begin
  assign(input,'bcatch.in');reset(input);
  assign(output,'bcatch.out');rewrite(output);
  readln(n,m);
  for i:=1 to n do readln(s[i]);
  for i:=1 to n do
    for j:=0 to m do
      begin
        b[i,j]:=b[i-1,j]+main(i,j);
        if j<>0 then
          if b[i,j]<b[i-1,j-1]+main(i,j+1) then
            b[i,j]:=b[i-1,j-1]+main(i,j+1);
      end;
  max:=0;
  for i:=0 to m do
    if max<b[n,i] then max:=b[n,i];
  writeln(max);
  close(input);
  close(output);
end.