P1478 陶陶摘苹果（升级版）

P1478 陶陶摘苹果（升级版）

题目描述

又是一年秋季时，陶陶家的苹果树结了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<=100var x,y,z:array[1..5000]of longint; n,s,a,b,i,j,t,tt,ans:longint;begin readln(n,s); readln(a,b); for i:=1 to n do readln(x[i],y[i]); for i:=1 to n-1 do  for j:=i+1 to n do   if y[i]>y[j] then begin//按力气来排序，用固定的力气摘最多的苹果                      t:=y[i];    tt:=x[i];                      y[i]:=y[j]; x[i]:=x[j];                      y[j]:=t;    x[j]:=tt;                     end; for i:=1 to n do  if (a+b>=x[i]) and (s>=y[i]) then begin//如果陶陶的身高加上椅子的高度够得到苹果，而且陶陶摘得到苹果                                     inc(ans);                                     s:=s-y[i];                                    end                               else if s<y[i] then break;//如果没力气摘了就不摘了 writeln(ans);end.