【01背包】饮食问题

题目:饮食问题 rqnoj39

题目描述

Bessie 正在减肥，所以她规定每天不能吃超过 C (10 <= C <= 35,000)卡路里的食物。农民 John 在戏弄她，在她面前放了B (1 <= B <= 21) 捅食物。每桶内都有某个单位卡路里(范围：1..35,000)的食物(不一定相同)。Bessie 没有自控能力，一旦她开始吃一个桶中的食物，她就一定把这桶食物全部吃完。
Bessie 对于组合数学不大在行。请确定一个最优组合，使得可以得到最多的卡路里，并且总量不超过C。
例如，总量上限是40卡路里， 6 桶食物分别含有7, 13, 17, 19, 29, 和 31卡路里的食物。Bessie可以吃7 + 31 = 38卡路里，但是可以获取得更多： 7 + 13 + 19 = 39卡路里。没有更好的组合了。

输入格式

共两行。
第一行，两个用空格分开的整数： C 和 B
第二行，B个用空格分开的整数，分别表示每桶中食物所含的卡路里。

输出格式

共一行，一个整数，表示Bessie能获得的最大卡路里，使她不违反减肥的规则。

样例输入

40 6 7 13 17 19 29 31

样例输出

39

 

01背包之装箱问题模型。把最大卡路里看成背包体积，每个食物的卡路里看成每个物品的体积

基础代码(pascal)以及就地滚动(C++)的代码可以看装箱问题 http://www.cnblogs.com/oijzh/archive/2012/08/19/2646077.html

Pascal Code

program rqnoj39;

var
  n,m:longint;
  a:array[0..21+10] of longint;
  f:array[0..21+10,0..35000+10] of longint;

procedure init;
begin
  assign(input,'rqnoj39.in');
  assign(output,'rqnoj39.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
var
  i:longint;
begin
  read(n,m);
  for i:=1 to m do
    read(a[i]);
end;

procedure main;
var
  i,j,best:longint;
begin
  for i:=1 to m do
  begin
    for j:=0 to n do
    begin
      f[i,j]:=f[i-1,j];
      if (j>=a[i])and(f[i,j]<f[i-1,j-a[i]]+a[i]) then
        f[i,j]:=f[i-1,j-a[i]]+a[i];
    end;
  end;
  best:=0;
  for j:=1 to n do
    if f[m,j]>best then best:=f[m,j];
  writeln(best);
end;


begin
  init;
  readdata;
  main;
  outit;
end.

 

 

转载于:https://www.cnblogs.com/oijzh/archive/2012/08/19/2646078.html