1999年分区联赛提高组之四 邮票面…

Description

　　给定一个信封，最多只允许粘贴N张邮票，计算在给定K（N+K≤40）种邮票的情况下（假定所有的邮票数量都足够），如何设计邮票的面值，能得到最大值MAX，使在1～MAX之间的每一个邮资值都能得到。 

　　例如，N=3，K=2，如果面值分别为1分、4分，则在1分～6分之间的每一个邮资值都能得到（当然还有8分、9分和12分）；如果面值分别为1分、3分，则在1分～7分之间的每一个邮资值都能得到。可以验证当N=3，K=2时，7分就是可以得到的连续的邮资最大值，所以MAX=7，面值分别为1分、3分。 

Input

 

Output

 

Sample Input

 

3 2

 

Sample Output

 

1 3 

 7

解题思路：用深搜的方法，如果该面值可以选择，就标记，继续往下搜索，直到搜索结束，输出选择的和最大值即可。

程序：

const

  maxn=175;

var

  f:array [0..maxn] of longint;

  a,n1:array [1..maxn] of longint;

  n,k,max:longint;

procedure init;

var

  i,j:longint;

begin

  readln(n,k);

end;

function try(x:longint):longint;

var

  i,j:longint;

begin

  f[0]:=0;

  i:=0;

  repeat

    inc(i);

    f[i]:=maxint;

    for j:=1 to x do

      if a[j]>i then

        break

      else

        if f[i-a[j]]+1

          f[i]:=f[i-a[j]]+1;

  until f[i]>n;

  exit(i-1);

end;

procedure dfs(dep:longint);

var

  i,t:longint;

begin

  if dep>k then

    begin

      t:=try(dep);

      if t>max then

        begin

          max:=t;

          n1:=a;

        end;

      exit;

   end;

  t:=try(dep-1)+1;

  for i:=a[dep-1]+1 to t do

    begin

      a[dep]:=i;

      dfs(dep+1);

    end;

end;

procedure work;

var

  i:longint;

begin

  init;

  a[1]:=1;

  dfs(2);

  for i:=1 to k do

    write(n1[i],' ');

  writeln;

  write(max);

end;

begin

  work;

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0ig.html

转载时必须以链接形式注明原始出处及本声明。