(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


你可能感兴趣的:(SSL水题收割机(上课作业),洛谷水题收割机)