- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
第五讲贪心算法;;一、引入:;分析:要使总和最大,则每个数要尽可能大,自然应该选每行中最大的那个数。因此,我们设计出如下算法:
读入N,M,矩阵数据;
Total:=0;
ForI:=1toNdobegin {对N行进行选择}
选择第I行最大的数,记为K;
Total:=Total+K;
End;
输出最大总和Total;;从上例中我们可以看出,和递推法相仿,贪心法也是从问题的某一个初始解出发,向给定的目标递推。但不同的是,推进的每一步不是依据某一固定的递推式,而是做一个局部的最优选择,即贪心选择(在例中,这种贪心选择表现为选择一行中的最大整数),这样,不断的将问题归纳为若干相似的子问题,最终产生出一个全局最优解。
特别注意的是,局部贪心的选择是否可以得出全局最优是能否采用贪心法的关键所在。对于能否使用贪心策略,应从理论上予以证明。;二、应用举例;分析:因为每一个物品都可以分割成单位块,单位块的利益越大显然总收益越大,所以它局部最优满足全局最优,可以用贪心法解答,方法如下:先将单位块收益按从大到小进行排列,然后用循环从单位块收益最大的取起,直到不能取为止便得到了最优解。;问题初始化; {读入数据}
按Pi/Wi从大到小将商品排序;
I:=1;
repeat
ifM=0thenBreak; {如果卡车满载则跳出循环}
M:=M-Wi;
ifM=0then将第I种商品全部装入卡车
else
将(M+Wi)重量的物品I装入卡车;
I:=I+1; {选择下一种商品}
until(M=0)OR(I=N)
在解决上述问题的过程中,首先根据题设条件,找到了贪心选择标准(Pi/Wi),并依据这个标准直接逐步去求最优解,这种解题策略被称为贪心法。;ProgramExam1;
ConstFinp=Input.Txt;
Fout=Output.Txt;
VarN,M:Longint;
S:Real;
P,W:Array[1..100]OfInteger;
ProcedureInit;{输出}
VarI:Integer;
Begin
Assign(Input,Finp);Reset(Input);
Readln(M,N);
ForI:=1ToNDoReadln(W[I],P[I]);
Close(Input);
End;;ProcedureSort(L,R:Integer);{按收益值从大到小排序}
VarI,J,Y:Integer;
X:Real;
Begin
I:=L;J:=R;
X:=P[(L+R)Div2]/W[(L+R)Div2];
Repeat
While(IR)And(P[I]/W[I]=X)DoInc(I);
While(P[J]/W[J]=X)And(JL)DoDec(J);
IfI=JThen
Begin
Y:=P[I];P[I]:=P[J];P[J]:=Y;
Y:=W[I];W[I]:=W[J];W[J]:=Y;
Inc(I);Dec(J);
End;
UntilIJ;
IfIRThenSort(I,R);
IfLJThenSort(L,J);
End;;ProcedureWork;
VarI:Integer;
Begin
Sort(1,N);S:=0;
ForI:=1ToNDo
IfM=W[I]Then{如果全部可取,则全取}
Begin
S:=S+P[I];M:=M-W[I];
End
Else{否则取一部分}
Begin
S:=S+M*(P[I]/W[I]);Break;
End;
End;;ProcedureOut;{输出}
Begin
Assign(Output,Fout);Rewrite(Output);
Writeln(S:0:0);
Close(Output);
End;
Begin{主程序}
Init;
Work;
Out;
End.
;因此,利用贪心策略解题,需要解决两个问题:
首先,确定
文档评论(0)