(ssl1072、ssl1273、ssl1274)P2347 砝码称重

1996年分区联赛提高组之四 砝码称重

Time Limit:1000MS  Memory Limit:65536K
Total Submit:203 Accepted:92

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三种不同的重量。

Source

elba

var
 a,b,f:array[0..1000]of longint;
 v:array[0..1000]of boolean;
 i,j,k,ans:longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 b[1]:=1;//初始化
 b[2]:=2;
 b[3]:=3;
 b[4]:=5;
 b[5]:=10;
 b[6]:=20;
 for i:=1 to 6 do read(a[i]);
 for i:=1 to 6 do
  for j:=1000 downto 1 do//求1000以下可以测出的重量
   for k:=1 to a[i] do//不同砝码的个数
    begin
     if j-k*b[i]<0 then break;//如果大于就测不到啦
     f[j]:=max(f[j],f[j-k*b[i]]+k*b[i]);//状态转移
     v[f[j]]:=true;//标记可以测出来，避免重复
    end;
 for i:=1 to 1000 do
  if v[i] then inc(ans);
 writeln(ans);
end.

//详见http://blog.csdn.net/ssl_lzx/article/details/70182442