【题解】洛谷1478 陶陶摘苹果…

本题地址： http://www.luogu.org/problem/show?pid=1478

题目描述

　　又是一年秋季时，陶陶家的苹果树结了n个果子。陶陶又跑去摘苹果，这次她有一个a公分的椅子。当他手够不着时，他会站到椅子上再试试。
　　这次与NOIp2005普及组第一题不同的是：陶陶之前搬凳子，力气只剩下s了。当然，每次摘苹果时都要用一定的力气。陶陶想知道在s<0之前最多能摘到多少个苹果。
    现在已知n个苹果到达地上的高度xi，椅子的高度a，陶陶手伸直的最大长度b，陶陶所剩的力气s，陶陶摘一个苹果需要的力气yi，求陶陶最多能摘到多少个苹果。

输入输出格式

输入格式：

　　第1行：两个数 苹果数n，力气s。
　　第2行：两个数 椅子的高度a，陶陶手伸直的最大长度b。
　　第3行~第3+n-1行：每行两个数 苹果高度xi，摘这个苹果需要的力气yi。

输出格式：

只有一个整数，表示陶陶最多能摘到的苹果数。

输入输出样例

输入样例#1：

8 15
20 130
120 3
150 2
110 7
180 1
50 8
200 0
140 3
120 2

输出样例#1：

4

说明

　　　所有数据：n<=5000  a<=50  b<=200  s<=1000
　　　          xi<=280  yi<=100

毫无难度的模拟题，勉强算是贪心，读入时预处理一下数据把够不到的筛掉，然后qsort一下，取最前面的一组，使这一组和小于s。

var n,s,o,b,i,u,v,p,t,ans:longint;

  a:array[0..5050]of longint;

procedure sort(l,r: longint);

      var

          i,j,x,y: longint;

      begin

          i:=l;

          j:=r;

          x:=a[(l+r) div 2];

          repeat

            while a[i]

            inc(i);

            while x

            dec(j);

            if not(i>j) then

              begin

                y:=a[i];

                a[i]:=a[j];

                a[j]:=y;

                inc(i);

                j:=j-1;

              end;

          until i>j;

          if l

            sort(l,j);

          if i

            sort(i,r);

      end;

begin

readln(n,s);

readln(o,b);

for i:=1 to n do

  begin

  readln(u,v);

  if u>o+b then

    continue;

  inc(t);

  a[t]:=v;

  end;

sort(1,t);

p:=1;

while s>0 do

  begin

  dec(s,a[p]);

  if s<0 then break;

  inc(p);

  inc(ans);

  end;

writeln(ans);

end.