几近万能的算法课件.pptVIP

承上启下2 【例4】邮票问题2。邮局发行一套有n种不同面值的邮票，如果限制每封信所贴的邮票张数不能超过m枚。存在整数R，使得用不超过m枚的邮票可以贴出一下连续序列：1，2，3，4，5，......,R。 编程求出可以得到尽可能大的R值以及对应的n种邮票面值。 精品文档 求同思维 想想原来邮票问题1是如何求解的？ 精品文档 1、穷举所有邮票可能的面值组合 2、进一步穷举每种邮票可能贴的数量 3、根据1、2的穷举计算当前方案可能的最大连续r值 4、每产生一个r值后和原来rmax比较，保存较优解 精品文档 主程序 s[1]:=1;rmax:=0;f:=0; writeln; write(n,m=); readln(n,m); try(1); {首次调用过程，开始穷举邮票面值} for o:=1 to n do write(g[o]:4); {输出每种邮票的面值} writeln; writeln(rmax=,rmax); 精品文档 procedure try(i:integer); var j,temp,l:integer; begin for j:=s[i-1]+1 to m*s[i-1]+1 do begin s[i]:=j; if i=n the