SSL 1072——砝码称重

Description

设有1g、2g、3g、5g、10g、20g的砝码各若干枚（其总重<=1000），

要求：

输入方式：a1 a2 a3 a4 a5 a6

（表示1g砝码有a1个，2g砝码有a2个，…，20g砝码有a6个）

输出方式：N

（N表示用这些砝码能称出的不同重量的个数，但不包括一个砝码也不用的情况）

Input

Output

Sample Input

1 1 0 0 0 0

(注：下划线表示空格）

Sample Output

3 表示可以称出1g，2g，3g三种不同的重量。

最大只能为1000，

状态转移方程： f[j]:=max(f[j-k*v[i]]+k*v[i],f[j]);

1<=i<=6

1<=j<=1000

1<=k<=a[i]

代码如下：

const v:array[1..6] of longint=(1,2,3,5,10,20);
var f,a:array[0..1000] of longint;
w:array[0..1000] of boolean;
i,j,k,n,total:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a) else exit(b);
end;

begin
for i:=1 to 6 do read(a[i]);
for i:=1 to 6 do
for j:=1000 downto 1 do
for k:=1 to a[i] do
if j>=v[i]*k then begin f[j]:=max(f[j-k*v[i]]+k*v[i],f[j]); w[f[j]]:=true; end;

for i:=1 to 1000 do if w[i] then inc(total);
writeln(total);
end.