纪念品分组
来源:互联网 发布:李涛淘宝 编辑:程序博客网 时间:2024/04/28 13:58
题目描述
元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件纪念品, 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品,乐乐希望分组的数目最少。
你的任务是写一个程序,找出所有分组方案中分组数最少的一种,输出最少的分组数目。
输入输出格式
输入格式:
输入文件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
说明
这一个题可以先把数排序,然后呢再进行分组。这样做会简单些。
程序如下:
var a:array[-1..100000] of longint; i,n,s,x:longint;procedure qsort(l,r:longint);var i,j,key,temp:longint;begin if l>=r then exit; i:=l;j:=r; key:=a[l+random(r-l+1)]; repeat while (a[i]<key) do inc(i); while (a[j]>key) do dec(j); if i<=j then begin temp:=a[i];a[i]:=a[j];a[j]:=temp; inc(i);dec(j); end; until i>j; qsort(l,j); qsort(i,r);end;procedure team;var i,j:longint;begin j:=1;i:=n; while j<=i do if a[i]+a[j]<=s then begin inc(x); dec(i);inc(j); end else begin inc(x); dec(i); end;end;begin readln(s,n); for i:=1 to n do read(a[i]); randomize; qsort(1,n); team; write(x);end.
1 0
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 纪念品分组
- 【其他】【RQNOJ】纪念品分组
- 解析漏洞总结
- 精简指令集计算机
- cursor row 的使用方法 第九章
- cf682b
- RISC-V的开源性与用途
- 纪念品分组
- Hue 基础知识 详解
- 浅谈C++中指针和引用的区别
- Info
- 【Leetcode】206. Reverse Linked List
- 排队接水
- Haskell语言学习笔记(6)Monad
- Codevs 2188 最长上升子序列(变式)
- bootstrap treeview 增删改的正确姿势