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