打砖块

题意：

在刚开始的时候，有n行*m列的砖块，小红有k发子弹。小红每次可以用一发子弹，打碎某一列当前处于这一列最下面的那块砖，并且得到相应的得分。
如图所示：

某些砖块在打碎以后，还可能将得到一发子弹的奖励。最后当所有的砖块都打碎了，或者小红没有子弹了，游戏结束。

思路：

一开始先把每一列求一个用j发子弹打出的最大值，然后一列一列的扫过去，
设f[i,j]为钱i列用了j发子弹的最大值，可以得出方程
f[i,j]:=max(f[i-1,k]+sum[i,j-k])sum为上面求出的i列用j发子弹的最大值

程序：

const        maxn=250;var        k,i,j,n,m,ii:longint;        c:char;        a,b,f,s:array [0..maxn,0..maxn] of longint;        flag:array [0..maxn,0..maxn] of boolean;        ans:int64;function max(x,y:int64):int64;begin        if x>y then exit(x)               else exit(y);end;begin        readln(n,m,k);        for i:=1 to n do        begin                for j:=1 to m do                begin                        read(a[i,j],c,c);                        if c='Y' then flag[i,j]:=true;                end;        end;        for i:=1 to m do                for j:=1 to n do                begin                        b[i,j]:=b[i,j-1]+a[n-j+1,i];                        if (flag[n-j+1,i]) and (s[i,j-1]<k) then s[i,j]:=s[i,j-1]                                         else s[i,j]:=s[i,j-1]+1;                end;        for i:=0 to maxn do                for j:=0 to maxn do                        f[i,j]:=-1;        for i:=1 to n do                if s[1,i]<=k then f[1,s[1,i]]:=b[1,i];        f[1,0]:=0;        for i:=1 to m-1 do                for j:=0 to k do                begin                        if f[i,j]=-1 then continue;                        f[i+1,j]:=max(f[i+1,j],f[i,j]);                        for ii:=1 to n do                        begin                                if s[i+1,ii]+j>k then break;                                f[i+1,s[i+1,ii]+j]:=max(f[i,j]+b[i+1,ii],f[i+1,s[i+1,ii]+j]);                                ans:=max(ans,f[i+1,s[i+1,ii]+j]);                        end;                end;        writeln(ans);end.