(ssl1115)USACO 2.3 货币系统(背包/生成函数)(背包的方案总数)

USACO 2.3 货币系统(背包/生成函数)
Time Limit:10000MS  Memory Limit:65536K
Total Submit:157 Accepted:81 
Case Time Limit:1000MS
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
单独的一行包含那个可能的构造的方案数。 
末尾有空行 
Sample Input
3 10
1 2 5
Sample Output
10
Source
cwj
var

 f:array[0..10000]of qword;

 a:array[0..10000]of longint;

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

begin

 readln(v,n);

 for i:=1 to v do read(a[i]);

 f[0]:=1;//初始化,不然后面可能就没了

 for i:=1 to v do

  for j:=a[i] to n do

   f[j]:=f[j]+f[j-a[i]];//省略了判断条件“f[j-a[i]]<>0”(因为加0也不会影响结果)

 writeln(f[n]);

end.