多多看DVD（加强版）(watchdvd.pas/c/cpp)

 

多多看DVD（加强版）

(watchdvd.pas/c/cpp)

 

【问题描述】

    多多进幼儿园了，今天报名了。只有今晚可以好好放松一下了（以后上了学后会很忙）。她的叔叔决定给他买一些动画片DVD晚上看。可是爷爷规定他们只能在一定的时间段L看完。（因为叔叔还要搞NOIP不能太早陪多多看碟，而多多每天很早就困了所以只能在一定的时间段里看碟）。多多列出一张表要叔叔给她买N张DVD碟，大多都是多多爱看的动画片（福音战士，机器猫，火影忍者，樱桃小丸子……）。这N张碟编号为（1，2，3……N）。多多给每张碟都打了分Mi（Mi>0），打分越高的碟说明多多越爱看。每张碟有播放的时间Ti。多多想在今晚爷爷规定的时间里看的碟总分最高。（必须把要看的碟看完，也就是说一张碟不能只看一半）。显然叔叔在买碟是没必要把N张全买了，只要买要看的就OK了，这样节省资金啊。而且多多让叔叔惯的特别任性只要他看到有几张就一定会看完。

可是出现了一个奇怪的问题，买碟的地方只买给顾客M（M<N）张碟，不会多也不会少。这可让多多叔叔为难了。怎么可以在N张碟中只买M张而且在规定时间看完，而且使总价值最高呢？

聪明的你帮帮多多的叔叔吧。

【输入说明】(watchdvd.in)

    输入文件有三行

    第一行：两个数空格隔开的正整数，N，M，L（分别表示叔叔给多多买的碟的数量，商店要买给叔叔的碟的数量，爷爷规定的看碟的时间段）。

    第二行到第N行，每行两个数：T，M，给出多多列表中DVD碟的信息。

【输出说明】(watchdvd.out)

    单独输出一行

表示多多今晚看的碟的总分。

如果商店卖给叔叔的M张碟无法在爷爷规定的时间看完输出0；

【输入样例】

    3 2 10

    11 100

    1 2

    9 1

【输出样例】

    3

【数据范围】

    20%的数据   N <=20;  L<=2000;

    100%的数据  N<=100  L<=2000; M <N

【时限】

1S

============================

注意无效状态的确定...

=====================

type
  re=record
       t,m:longint;
     end;
var
  n,m,l:longint;
  a:array[1..100]of re;
  f:array[0..100,0..100,0..1000]of longint;
procedure init;
begin
  assign(input,'watchdvd.in');
  assign(output,'watchdvd.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure qsort(s,t:longint);
var
  i,j:longint;
  x:longint;
  tem:re;
begin
  x:=a[(s+t)shr 1].t;
  i:=s; j:=t;
  repeat
    while x<a[j].t do dec(j);
    while x>a[i].t do inc(i);
    if i<=j then
      begin
        tem:=a[i];
        a[i]:=a[j];
        a[j]:=tem;
        inc(i); dec(j);
      end;
  until i>j;
  if i<t then qsort(i,t);
  if s<j then qsort(s,j);
end;

procedure main;
var
  i,j,k:longint;
  ans:longint;
begin
  readln(n,m,l);
  for i:=1 to n do read(a[i].t,a[i].m);
  qsort(1,n);
  ans:=0;
  for i:=1 to m do ans:=ans+a[i].t;
  if ans>l then
    begin
      writeln(0);
      terminate;
    end;
  fillchar(f,sizeof(f),0);
  
  for i:=1 to n do
    for j:=1 to m do
      for k:=0 to l do
        begin
          f[i,j,k]:=f[i-1,j,k];
          if k>=a[i].t then
            if (f[i-1,j-1,k-a[i].t]<>0)or((j=1)and(k=a[i].t)) then
            if f[i,j,k]<f[i-1,j-1,k-a[i].t]+a[i].m then
              f[i,j,k]:=f[i-1,j-1,k-a[i].t]+a[i].m;
        end;
  ans:=-maxlongint;
  for i:=0 to l do
    if ans<f[n,m,i] then ans:=f[n,m,i];
  writeln(ans);
  //writeln(f[n,m,l]);
end;

begin
  init;
  main;
  terminate;
end.