紀念品分組

題目描述

元旦快到了，校學生會讓樂樂負責新年晚會的紀念品發放工作。為使得參加晚會的同學所獲得 的紀念品價值相對均衡，他要把購來的紀念品根據**進行分組，但每組最多只能包括兩件紀念品， 並且每組紀念品的**之和不能超過乙個給定的整數。為了保證在盡量短的時間內發完所有紀念品，樂樂希望分組的數目最少。

你的任務是寫乙個程式，找出所有分組方案中分組數最少的一種，輸出最少的分組數目。

輸入輸出格式

輸入格式：

輸入檔案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]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.

紀念品分組

問題描述 元旦快到了，校學生會讓樂樂負責新年晚會的紀念品發放工作。為使得參加晚會的同學所獲得的紀念品價值 相對均衡，他要把購來的紀念品根據 進行分組，但每組最多只能包括兩件紀念品，並且每組紀念品的 之和不能超過乙個給定的整數。為了保證在盡量短的時 間內發完所有紀念品，樂樂希望分組的數目最少。你的任務...

紀念品分組

time limit 1 sec memory limit 128 mb submit 4 solved 2 submit status web board 元旦快到了，校學生會讓樂樂負責新年晚會的紀念品發放工作。為使得參加晚會的同學所獲得 的紀念品價值相對均衡，他要把購來的紀念品根據 進行分組，但...

紀念品分組

題目描述 元旦快到了，校學生會讓樂樂負責新年晚會的紀念品發放工作。為使得參加晚會的同學所獲得的紀念品價值相對均衡，他要把購來的紀念品根據 進行分組，但每組最多只能包括兩件紀念品，並且每組紀念品的 之和不能超過乙個給定的整數。為了保證在盡量短的時間內發完所有紀念品，樂樂希望分組的數目最少。你的任務是寫...