jzoj P1421【汕头市选2012初中组】数数(count)

题目大意：
求点（1，1）到点（N,M）花费积分为P的路径的总数。

题解:
f[i,j,k]表示起点到点(i,j)时积分为k的数量。
1<=i,j<=n,0<=k<=p
1.对于一个点f[i,j,k]，除了第1行或者第1列以外，都可以从(i-1,j)和(i,j-1)2个点到达。
2.如果f[i-1,j,k]中的的数量不为0，就代表走到第（i-1,j)的时候积分为k的路径数量为f[i-1,j,k]。如果k+a[i,j]不超过p的话，就把f[i-1,j,k]累加给f[i,j,k+a[i,j]]，同理如果f[i,j-1,k]不为0且k+a[i,j]不超过p的话也累加给f[i,j,k+a[i,j]]。
3.取模输出。

var
     f:array [0..101,0..101,0..2001] of longint;
     a:array [0..101,0..101] of longint;
     i,j,k,n,m,p:longint;
begin
     assign(input,'count.in'); reset(input);
     assign(output,'count.out'); rewrite(output);
     readln(n,m,p);
     for i:=1 to n do
         begin
               for j:=1 to m do read(a[i,j]);
               readln;
         end;
     if a[1,1]>p
        then begin
                writeln('0');
                halt;
             end
        else f[1,1,a[1,1]]:=1;
     for i:=2 to m do
         for j:=0 to p do
                if f[1,i-1,j]>0 then
                   if a[1,i]+j<=p then inc(f[1,i,a[1,i]+j]);
     for i:=2 to n do
         for j:=0 to p do
                if f[i-1,1,j]>0 then
                   if a[i,1]+j<=p then inc(f[i,1,a[i,1]+j]);
     for i:=2 to n do
         for j:=2 to m do
             for k:=0 to p do
                 begin
                    if f[i-1,j,k]>0 then
                       if a[i,j]+k<=p then inc(f[i,j,a[i,j]+k],f[i-1,j,k]);
                    if f[i,j-1,k]>0 then
                       if a[i,j]+k<=p then inc(f[i,j,a[i,j]+k],f[i,j-1,k]);
                       f[i,j,a[i,j]+k]:=f[i,j,a[i,j]+k] mod 1000000007;

                 end;
     writeln(f[n,m,p]);
     close(input); close(output);
end.