2011分区联赛模拟试题 积木分发（jzoj提高C组）

题目：

Description

歌手The Pancakes到幼儿园跟小朋友玩，她到达的时候小朋友已经争着积木玩了。小朋友都想要更多的积木砌一个自己喜欢的图形，砌玩就可以和The Pancakes合照。同时，The Pancakes手上还有一些积木，她可以把手里的这些积木全部给一个小朋友，然后等该小朋友砌完后就可以收回所发的积木和该小朋友原先手里的积木。但她不知道能否让所有的小朋友都和她合照，聪明的你可以帮助她吗？

Input

输入包含多个数据。
每个数据的第一行是两个正整数n和s,1<=n<=10000,1<=s<=10000,表示一共有n位小朋友，The Pancakes手上有s块积木。以下有n行，每行有两个正整数，a和b，1<=a,b<=10^9,表示第i个小朋友手上有a块积木，还需要b块积木才能够砌完。
输入两个0时表示结束。

Output

如果可以让所有小朋友都和Pancake合照，就输出YES；否则，输出NO。

Sample Input

2 2
1 4
2 1
2 2
1 4
1 1
0 0

Sample Output

YES
NO

作者思路：贪心。1.排序 2.搜过去，搜到底的输出yes，不然输出no。

代码：

const maxn=10001;
var a,b:array[1..maxn] of longint;
    i,n,s:longint;
    t:boolean;
procedure qsort(l,r:longint);
var
      i,j,mid,t1:longint;
begin
      if l>=r then exit;
      i:=l; j:=r;
      mid:=b[(l+r) div 2];
         repeat
                while b[i]<mid do inc(i);
                while b[j]>mid do dec(j);
                if i<=j
                   then begin
                             t1:=a[i];a[i]:=a[j];a[j]:=t1;
                             t1:=b[i];b[i]:=b[j];b[j]:=t1;
                             inc(i); dec(j);
                        end;
         until i>j;
      qsort(i,r);
      qsort(l,j);
end;


begin
  readln(n,s);
  while (n<>0) or (s<>0) do
  begin
    for i:=1 to n do readln(a[i],b[i]);
    qsort(1,n);
    i:=0;
    while (s>=b[i+1]) and (i<n) do
    begin
      s:=s+a[1+i];
      inc(i);
    end;
    if i=n then writeln('YES') else writeln('NO');
    readln(n,s);
  end;
end.