纪念品分组-洛谷 1094

题目描述

元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品， 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。

你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。

输入输出格式

输入格式：
输入文件group.in包含n+2行:

第1行包括一个整数w，为每组纪念品价格之和的上上限。

第2行为一个整数n，表示购来的纪念品的总件数G

第3~n+2行每行包含一个正整数Pi (5 <= Pi <= w)w表示所对应纪念品的价格。

输出格式：
输出文件group.out仅一行，包含一个整数，即最少的分组数目。

输入输出样例

输入样例#1：
100 
9 
90 
20 
20 
30 
50 
60 
70 
80 
90
输出样例#1：
6
说明

50％的数据满足：1<=n<=15

100％的数据满足：1<=n<=30000，80<=w<=200

题解：这题用贪心,前面先用快排，然后再判断商品有没有超过一个给定的整数，然后在输出最少的方案。

var a:array[1..100000] of longint;
i,j,w,n,x:longint;
procedure qsort(l,r:longint);
var i,j,m,p:longint;
begin
  i:=l; j:=r; 
  m:=a[(l+r) div 2];
  repeat
    while a[i]<m do inc(i);
    while a[j]>m do dec(j);
    if i<=j then
    begin p:=a[i]; a[i]:=a[j]; a[j]:=p; inc(i); dec(j); end;
  until i>j;
  if i<r then qsort(i,r);
  if l<j then qsort(l,j);
end;
begin
  readln(w); 
  readln(n);
  for i:=1 to n do readln(a[i]);
  qsort(1,n); 
  i:=1; j:=n; x:=0; 
  repeat
    if i=j then 
    begin inc(x); break; end; 
    if a[j]+a[i]<=w then
    begin inc(i); dec(j); inc(x); end  
    else 
    begin dec(j); inc(x); end; 
  until i>j;
  writeln(x);
end.