【01背包】【字符串处理】庆功会

题目:庆功会 rqnoj109

题目描述

八（1）班由于在期中考中获得了团体第一名，班主任吴老师决定开一场庆功会。于是购买东西的任务就交给了小李同学（钱由班会出）。由于小李同学四肢发达，头脑简单，于是这个任务便落到了你头上（当然不要你跑腿。跑腿是小李的事 ^_^）
注：可以全买，但不能不买。即至少买1种

输入格式

第一行二个数n(n<=500)，m(m<=5000)，其中n代表希望购买的物品的种数，m表示班会拨给小李的钱数。
接下来n行，每行3个数，v、w、s，分别表示第I种物品的价格、价值（价格 与 价值 是不同的概念）和购买的数量（只能买0件或s件），其中v<=100,w<=1000,s<=10

输出格式

共两行：
第一行：一个数，表示此次购买能获得的最大的价值（注意！不是价格）。
第二行：小李此次购买（能获得的最大价值）所选择的物品种类的序号。

样例输入

5 1000 80 20 4 40 50 9 30 50 7 40 30 6 20 20 1

样例输出

1000 2 3 4 5

 

题目第一问应该很简单，标准的01背包

主要是第二问要求记录方案，我们可以维护一个和 f 同步的字符串数组即可

 

Pascal Code

program rqnoj109;

var
  n,m:longint;
  a,p:array[0..500+10] of longint;
  s:array[0..5000+10] of string;
  f:array[0..5000+10] of longint;

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

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

function sssss(x:longint):string;
var
  k,kk:string;
  a,i:longint;
begin
  k:='';
  while x<>0 do
  begin
    a:=x mod 10;
    k:=k+chr(a+ord('0'));
    x:=x div 10;
  end;
  kk:='';
  for i:=length(k) downto 1 do
  begin
    kk:=kk+k[i];
  end;
  exit(kk);
end;

procedure main;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=m downto a[i] do
    begin
      if f[j]<f[j-a[i]]+p[i] then
      begin
        f[j]:=f[j-a[i]]+p[i];
        s[j]:=s[j-a[i]]+' '+sssss(i);//貌似pascal有一个函数可以直接调用，不需要自己写函数
      end;
    end;
  writeln(f[m]);
  for i:=2 to length(s[m]) do write(s[m][i]);
end;

begin
  init;
  readdata;
  main;
  outit;
end.