传球游戏pascal

题目描述见tyvj

program sky;
var
   i,j,m,n : longint;
   a       : array[0..50,0..50] of longint;
begin
   readln(n,m);
   a[0,1]:=1;
   for i:=1 to m do
   begin
      a[i,1]:=a[i-1,n]+a[i-1,2];
      for j:=2 to n-1 do a[i,j]:=a[i-1,j-1]+a[i-1,j+1];
      a[i,n]:=a[i-1,n-1]+a[i-1,1];
   end;
   writeln(a[m,1]);
end.

朴素的代码

状态f[i,j]表示第i步走到第j个位置的方案数。
DP方程f[i,j]:=f[i-1,j-1]+f[i-1,j+1];

不看不会打，看了之后一下子打过了。哎。。

如此朴素的递推啊。。。