纪念品分组pascal程序

从大到小排序，如果a[i]+a[j]没超过限制，就可以加tj，否则i就指向下一个。

var
w,n,i,j,tj:longint;
a:array[0..30000]of longint;
procedure kp(l,r:longint);
var
i,j,mid:longint;
beginif l>=r then exit;i:=l;j:=r;mid:=a[(l+r)div 2];repeatwhile a[i]>mid do inc(i);while a[j]<mid do dec(j);if i<=j thenbegina[0]:=a[i];a[i]:=a[j];a[j]:=a[0];inc(i);dec(j);end;until(i>j);kp(l,j);kp(i,r);
end;
beginreadln(w);readln(n);for i:=1 to n doreadln(a[i]);kp(1,n);//快排，从大到小i:=1;j:=n;tj:=0;//repeatif (a[i]+a[j])<=w then//前面加后面的结果小于等于wbegininc(tj);//分组加一inc(i);//指向下一个dec(j);//指向前一个end elsebegininc(tj);//不是也分组加一inc(i);//i指向下一个end;until(i>j);write(tj);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500252.html

纪念品分组pascal程序相关推荐

零件分组pascal程序
这题就是把长度排序,长度相等,就把重的放后面,最后看重量有一个地方下降了,就分组加一. var tj,n,i,j:longint; c,w,s:array[0..1000]of longint; be ...
算法训练纪念品分组（java）
算法训练纪念品分组(java) 描述元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作.为使得参加晚会的同学所获得的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括 ...
java 蓝桥杯算法训练纪念品分组（题解）
试题算法训练纪念品分组资源限制时间限制:1.0s 内存限制:256.0MB 问题描述元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作.为使得参加晚会的同学所获得的纪念品价值相对均衡, ...
codevs 1143 纪念品分组
1143 纪念品分组 2007年NOIP全国联赛普及组时间限制: 1 s 空间限制: 128000 KB 题目等级 : 白银 Silver 题解题目描述 Description 元旦快到了, ...
Vijos P1409 纪念品分组【贪心】
描述元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作.为使得参加晚会的同学所获得的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件纪念品, 并且每组纪念品的价格 ...
1483. 纪念品分组输出好忧桑…………
1483. 纪念品分组 Constraints Time Limit: 1 secs, Memory Limit: 32 MB Description 元旦快到了,校学生会让乐乐负责新年晚会的纪念品发 ...
SDNU-1183.纪念品分组
SDNU-1183.纪念品分组 Description 元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作.为使得参加晚会的同学所获得的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但 ...
洛谷刷题：火星人、奖学金、纪念品分组、统计数字、字符串的展开
好久没写洛谷了,不优雅的代码又来啦~ [NOIP2004 普及组] 火星人题目描述人类终于登上了火星的土地并且见到了神秘的火星人.人类和火星人都无法理解对方的语言,但是我们的科学家发明了一种用数字 ...
【洛谷_P1094】纪念品分组
纪念品分组 Description 元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作.为使得参加晚会的同学所获得的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件 ...

纪念品分组pascal程序

纪念品分组pascal程序相关推荐

最新文章

热门文章