2012年分区联赛普级组第三题 摆花

解题思路： 本题需用动态规划，三层循环，分别是 1 到 n 、 0 到 m 和 0 到 j 和 a[i] 较小的那个数，然后计算下面这个式子： f[i,j]:=f[i,j]+f[i-1,j-k] 。最后输出 f[n,m] 即可。

程序：

var

  f:array[0..100,0..100] of longint;

  a:array[1..100] of longint;

  n,m,i,j,k:longint;

function min(x,y:longint):longint;

  begin

    if x

    exit(y);

end;

begin

  readln(n,m);

  for i:=1 to n do

    read(a[i]);

  fillchar(f,sizeof(f),0);

  f[0,0]:=1;

  for i:=1 to n do

    for j:=0 to m do

      for k:=0 to min(j,a[i]) do

        f[i,j]:=(f[i,j] mod 1000007+f[i-1,j-k] mod 1000007) mod 1000007;

  writeln(f[n,m]);

end.

版权属于: Chris

原文地址:  http://blog.sina.com.cn/s/blog_83ac6af80102v5pe.html

转载时必须以链接形式注明原始出处及本声明。