打擂台算法教程.pptVIP

打擂台算法适用于: 求若干个数中的最大/小值 例题 找两数中的较大者 a=val(inputbox(请输入第一个数)) b=val(inputbox(请输入第二个数)) if a=b then max=a else max=b endif print max 双分支的写法 (非打擂台的算法) 例题 找两数中的较大者 输入a 输入b Max=a If b=max then max=b endif print max 单分支的写法 “打擂台” 　　因为事先不知道输入时的大小顺序，所以可以任意先假设其中一个为最大值，然后拿剩下的依次上去比较，max这个变量类似于“擂台”，始终保存每次比较后的最大值。 　　注意红色的这句话，写成b=a对不对？ 推广 找三数中的最大值 输入a 输入b 输入c if b=max then max=b endif if c=max then max=c endif print max 单分支的写法 打两次擂台，比较两次。 推广 找多个数中的最大值 ( 循环 ) 不用数组的程序 Const n=5 n表示数据的多少，可改动 x=val(inputbox(请输入第一个数)) max=x 把第一个数设为最大值 for i=2 to n x=val(inputbox(依次输入后面的数)) if xmax then 从第二个开始依次比较 max=x endif next i print max 推广 找多个数中的最大值 ( 数组 不用排序) 使用数组的程序 Const n=5 n表示数据的多少，可改动 dim x(1 to n) as integer x(1)=val(inputbox(请输入第一个数)) max=x(1) 把第一个数设为最大值 for i=2 to n x(i)=val(inputbox(依次输入后面的数)) if x(i)max then 从第二个开始依次比较 max=x(i) endif next i print max 打擂台算法练习1 　　体育比赛打分 略 打擂台算法练习2 　　有N个绳子，准备用于系在重物上拎起。当拎起物体时，每个绳子的承重是一样的，同时每个绳子都有一个最大承重极限，超过极限就会断裂。 　　现在给定N个绳子的承重，请从里面挑选若干，保证每个绳子都不能断裂的前提下，计算出物体的最大重量。 　　例如：有3个绳子，最大承重分别是1，10，15，如果3个绳子全选，则最多只能举起重量为3的物体(所有绳子都不断裂)；如果只选择15，物体最重为15；如果选择10和15这两根绳子，则最大可拎起重量为20的物体。 输入方式： 　　有N行，每行一个整数，表示第i个绳子的最大承重。 注：已经按照承重从小到大排好顺序 输出方式： 　　一个整数，表示物体的最大重量。 样例输入 对应输出 15 10 2 20 选择10和15这两个绳子，最大能举起重量为20的物体，这样所有的绳子都不会断裂。 10 4  1 10 只选第一个绳子 15  10 20 4 3  2  1 6 选择2, 3, 4，或者选择3, 4都可以，答案都是6。 已经排好顺序，从大到小。 选择第1个，a(i)*1 注：它后面的都不能选 选择第2个，a(i)*2 注：它前面的可以选，后面的不能选 选择第3个，a(i)*3 选择第4个，a(i)*4 即：a(i)*i 然后从这些方案中找一个最大的 如果从小到大排序呢？ a(i)* …???... Const N=4 Dim a(1 to N)as integer 申明定义数组a For i=1 to N 输入 a(i)=val(inputbox(请输入)) Next i max=0 重量max初始化，不可能为负数 For i=1 to N if max…???... then 打擂台找最大值 ...???... endif Next i Print max 打印结果 注：运行前，请根据数据情况，改动第一行