纪念品分组Pascal

纪念品分组

时间限制: 1 Sec内存限制: 128 MB
提交: 6解决: 4
[提交][状态][讨论版]

题目描述

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

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

输入

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

第1行包括一个整数w，为每组纪念品价格之和的上眼= 第2行为一个整数n，表示购来的纪念品的总件数G

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

输出

输出文件group.out仅→行，包含一个整数， ep最少的分组数目合

样例输入

100

9

90

20

20

30

50

60

70

80

90

样例输出

6

数据规模

50%的数据满足: 1 <=n<= 15

100%的数据满足: 1 <= n<= 30000， 80 <= W <= 200

分析

此题流程图

输入w

↓

输入n

↓

依次读入ai（ai是纪念品价格）

↓

i是指向第一纪念品，j指向最后纪念品，x是分组数量

↓repeat循环

如果i=j，就代表只剩下一件纪念品。inc（x），退出循环

↓

如果i+j<=w，就说明这两样纪念品在w范围内，Inc（x），i+1，j-1.如果不是这样，那么就j-1，Inc（x）

注释：因为如果i+j>w，说明价值超过了w。a[j-1]比a[j]小，所以i不用变。a[j]自己成为一组

↓until i>j

输出x

参考题解

var

a:

array

[

1..30001

]

of

longint

;

w,i,n,j,x:

longint

;

procedure

qsort(l,r:

longint

);

var

i,j,m,t:

longint

;

begin

i:=l;

j:=r;

m:=a[(l+r)

div

2

];

repeat

while

a[i]<m

do

i:=i+

1

;

while

a[j]>m

do

j:=j-

1

;

if

not

(i>j)

then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

i:=i+

1

;

j:=j-

1

;

end

;

until

i>j;

if

l<j

then

qsort(l,j);

if

i<r

then

qsort(i,r);

end

;

begin

readln(w);

readln(n);

for

i:=

1

to

n

do

read(a[i]);

qsort(

1

,n);

i:=

1

;

j:=n;

x:=

0

;

repeat

if

i=j

then

begin

inc(x);

break;

end

;

if

a[i]+a[j]<=w

then

begin

inc(x);

dec(j);

inc(i);

end

else

begin

inc(x);

dec(j);

end

;

until

i>j;

writeln

(x);

end

.