USACO 2.3 货币系统(背包/生成函数)

Description

母牛们不但创建了他们自己的政府而且选择了建立了自己的货币系统。 
[In their own rebellious way]，他们对货币的数值感到好奇。 
传统地，一个货币系统是由1,5,10,20 或 25,50, 和 100的单位面值组成的。 
母牛想知道有多少种不同的方法来用货币系统中的货币来构造一个确定的数值。 
举例来说, 使用一个货币系统 {1,2,5,10,...}产生 18单位面值的一些可能的方法是:18x1, 9x2, 8x2+2x1, 3x5+2+1,等等其它。 
写一个程序来计算有多少种方法用给定的货币系统来构造一定数量的面值。 
保证总数将会适合long long (C/C++) 和 Int64 (Free Pascal)。 

Input

货币系统中货币的种类数目是 V 。 (1<= V<=25) 
要构造的数量钱是 N 。 (1<= N<=10,000) 
第 1 行:  二整数， V 和 N 
第 2 ..V+1行： 可用的货币 V 个整数　(每行一个　每行没有其它的数)。 

Output

单独的一行包含那个可能的构造的方案数。 
末尾有空行 

题解

DP;
Executing...
   Test 1: TEST OK [0.000 secs, 1124 KB]
   Test 2: TEST OK [0.000 secs, 1124 KB]
   Test 3: TEST OK [0.000 secs, 1124 KB]
   Test 4: TEST OK [0.000 secs, 1124 KB]
   Test 5: TEST OK [0.000 secs, 1124 KB]
   Test 6: TEST OK [0.000 secs, 1124 KB]
   Test 7: TEST OK [0.000 secs, 1124 KB]
   Test 8: TEST OK [0.000 secs, 1124 KB]
   Test 9: TEST OK [0.000 secs, 1124 KB]
   Test 10: TEST OK [0.000 secs, 1124 KB]
   Test 11: TEST OK [0.000 secs, 1124 KB]
   Test 12: TEST OK [0.000 secs, 1124 KB]
   Test 13: TEST OK [0.000 secs, 1124 KB]
Alltests OK.

代码

{
ID: zyx52yzl
LANG: PASCAL
TASK: money
}
var
  f:array [0..100001] of qword;
  a:array [0..1001] of longint;
  m,n,i,j,k:longint;
begin
  assign(input,'money.in');
  assign(output,'money.out');
  reset(input);
  rewrite(output);
  readln(n,m);
  for i:=1 to n do read(a[i]);
  fillchar(f,sizeof(f),0); f[0]:=1;
  for i:=1 to n do
    for j:=a[i] to m do
      f[j]:=f[j]+f[j-a[i]];
  writeln(f[m]);
  close(input);
  close(output);
end.