TYVJ P1023 奶牛的锻炼

描述

奶牛Bessie有N分钟时间跑步,每分钟她可以跑步或者休息。若她在第i分钟跑步,可以跑出D_i米,同时疲倦程度增加1(初始为0)。若她在第i分钟休息,则疲倦程度减少1。无论何时,疲倦程度都不能超过M。另外,一旦她开始休息,只有当疲惫程度减为0时才能重新开始跑步。在第N分钟后,她的疲倦程度必须为0。
输出格式

第一行,两个整数,代表N和M。 接下来N行,每行一个整数,代表D_i。
测试样例1

输入

5 2

5

3

4

2

10
输出

9
备注

N <= 2000 , M <= 500 , D_i <= 1000
分析:

从数据规模看,基本上是N*M循环的题目,题目是分状态的,一共两个状态,典型的动态规划题目

f[i,j]代表时间i内疲劳度j的最长距离

if j>0  f[i,j]=f[i-1,j-1]+D[i]

if i>j  f[i,0]=max(f[i,0],f[i-j,j])

f[i,0]=max(f[i,0],f[i-1,0])

uses math;
var a:array[1..2005] of longint;
    f:array[0..2005,0..505] of longint;
    n,m,i,j,k:longint;
begin
  readln(n,m);
   for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
   for j:=0 to m do
    begin
     if j>0 then
      f[i,j]:=f[i-1,j-1]+a[i];
      if i>=j then f[i,0]:=max(f[i,0],f[i-j,j]);
      f[i,0]:=max(f[i,0],f[i-1,0]);
    end;
  writeln(f[i,0]);
end.

你可能感兴趣的:(NOIP算法,算法,Pascal语言,noip)