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<=100
var
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.