题目描述
元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件纪念品, 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品,乐乐希望分组的数目最少。
你的任务是写一个程序,找出所有分组方案中分组数最少的一种,输出最少的分组数目。
输入输出格式
输入格式:
输入文件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.
纪念品分组-洛谷 1094
最新推荐文章于 2024-06-28 08:48:28 发布