魔法物品(magic.pas/c/cpp)

有两种类型的物品：普通物品和魔法物品。普通物品没有魔法属性，而魔法物品拥有一些魔法属性。每种普通物品有一个价值P，但每种魔法物品有两种价值：鉴定前的价值P。和鉴定后的价值P2(当然，P2总是大于P。)。

为了鉴定一个魔法物品，你需要购买一个鉴定卷轴，用它来鉴定魔法物品。鉴定完一件魔法物品以后，鉴定卷轴便会消失。每个鉴定将会消耗Pi元钱，如果没有足够的钱，你将无法购买任何鉴定卷轴。

现在，你正在一个集市中，同时拥有很多物品。你知道每件物品的价值并且想要出售全部物品。那么，你最多能够获得多少钱呢?

你可以假定：

★开始的时候你没有钱。

★所有的魔法物品都还没有被鉴定。

★只要你有足够的钱，你可以购买任意多的鉴定卷轴。

输入magic.in

第一行有两个整数N和Pi(0<Pi≤5000)，表示你拥有的物品数和一个鉴定卷轴价格。

接下来N行，每行给出一件物品的价格。

对于每件普通物品，那一行仅有一个整数P(0<P≤10000)。

对于每件魔法物品，那一行将会有两个整数P1和P2(0<P1<P2≤10000)。

输出magic.out

一个整数表示你最多能够获得多少钱。

样倒输入

2 10

10

20 100

样例输出

100

数据规模

对于30％的数据N≤50；

对于100％的数据N≤1000。

[解析]:对于题目中的普通物品和鉴定前价格加上鉴定费用大于等于鉴定后价格的物品可以直接卖掉。对于剩下的物品,只要能够买得起一个鉴定卷轴就可以把所有的物品都鉴定完。    那么问题就转化为用最小的损失凑足一个鉴定卷轴的钱,直接01背包即可。

 参考程序
 Var p1,p2,f  :  array  [..]of longint;
     c:array[..]of boolean;
     n,k,pi,i,j,sum,ss:longint;
 begin
   assign  (input,'magic.in');  reset(input);
   assign(output,'magic.out');rewrite(output);
   readln(n,pi);
   for i:= to n do begin
     read(p1[i]);
     inc(ss,p1[i]);
     if not eoln then begin
       readln(p2[i]);
       p2[i]:=p2[i]-Pi-p1[i];
       if p2[i]> then inc(sum,p2[i]+p1[i])
        else begin
         p2[i]:=;inc(sum,p1[i]);
        end;
      end
     else begin
       readln;
       inc(sum,p1[i]);
     end;
   end;
   c[]:=true;
   for i:= to pi do f[i]:=maxlongint;
   if ss<pi  then begin
  writeln(ss);
 Close(output);halt;
 end;
   for j:= to n do for i:=pi- downto  do
 if c[i] then begin
       k:=i+p1[j];
       if k>pi then k:=Pi;
       if f[i]+p2[j]<f[k] then begin
  f[k]:=f[i]+p2[j];C[k]:=true;
 end;
     end;
   writeln(sum-f[pi]);
   close(output);
 end.

考试时错误的算法：

 var
   n,p,i,j,kongge,money,m,n1,ans:longint;
   p1,p2:array[..] of longint;
   s:array[..] of string;
   f:array[..,..] of longint;
 function max(x,y:longint):longint;
 begin
   max:=x;
   if x<y then max:=y;
 end;
 begin
 assign(input,'magic.in');
 reset(input);
 assign(output,'magic.out');
 rewrite(output);
   n1:=;
   readln(n,p);
   for i:= to n do
    begin
      readln(s[i]);
      kongge:=pos(' ',s[i]);
      if kongge= then
       begin
         val(s[i],money);
         inc(m,money);
       end
      else begin
             inc(n1);
             val(copy(s[i],,kongge-),p1[n1]);
             val(copy(s[i],kongge+,),p2[n1]);
           end;
    end;
    ans:=;
    for i:= to  do f[,i]:=m;
    for i:= to n1 do
     for j:= to  do
      begin
       if f[i-,j+]-p>= then
        f[i,j]:=max(f[i-,j+]-p+p2[i],f[i-,j]+p1[i]);
       if f[i,j]>ans then ans:=f[i,j];
      end;
    writeln(ans);
 close(input);
 close(output);
 end.