传球游戏-pascal
题目描述见tyvj
View Code
1 program sky;
2 var
3 i,j,m,n : longint;
4 a : array[0..50,0..50] of longint;
5 begin
6 readln(n,m);
7 a[0,1]:=1;
8 for i:=1 to m do
9 begin
10 a[i,1]:=a[i-1,n]+a[i-1,2];
11 for j:=2 to n-1 do a[i,j]:=a[i-1,j-1]+a[i-1,j+1];
12 a[i,n]:=a[i-1,n-1]+a[i-1,1];
13 end;
14 writeln(a[m,1]);
15 end.
朴素的代码
状态f[i,j]表示第i步走到第j个位置的方案数。
DP方程f[i,j]:=f[i-1,j-1]+f[i-1,j+1];
不看不会打，看了之后一下子打过了。哎。。
如此朴素的递推啊。。。
