复习7：解析算法和枚举算法

wordword格式--感谢下载支持解析算法和枚举算法【知识要点】一、解析算法解析算法的基本思想实现问题的求解。解析算法解题的基本思路①建立正确的数学模型，即得出正确的数学代数式。②保证计算过程描述的正确性。使用正确合理的VB变量、表达式来表示已经得出的数学代数式。(3)解析算法程序实现的步骤①运用解析算法分析问题，寻找问题中各要素之间的关系，用数学表达式表示它们的关系。②写出解决问题的解析步骤，编写程序实现，通过运行程序求得问题的正确解。二、枚举算法枚举算法的基本思想条件，若满足，则它是问题的一个正确解，从而挑选出符合条件的所有解。采用枚举算法解题的基本思路①确定枚举对象、枚举范围和判断条件。②一一枚举可能的解，验证是否是问题的解。(3)枚举算法程序实现的三要素①枚举解时，既不能遗漏任何一个真正解，也不能有重复，用循环语句实现。②条件判断时，利用问题提供的约束条件筛选、判断解的正确性，用选择语句实现。③求解形式一般为输出解的内容或进行与解相关的其他计算。(4)枚举算法的程序实现循环语句＋选择语句。循环语句用来罗列可能解的范围。选择语句用来判断所罗列的可能解的正确性。【练习与巩固】1．①输入长方体的长（L）、宽（W）、高（H）的值②计算体积V=L*W*H③输出体积V上述算法属于A.解析算法 B.枚举算法 C.排序算法 递归算法2．解决某物理问题的算法描述如下：①输入线圈电阻值R，电压V，通过线圈电流I，时间T②计算电动机消耗的总电能W1←UIt③计算电流通过线圈产生的热量←④计算电动机做的机械功W2←W1–P⑤输出W1、QW2上述算法属于 ( )A.枚举算法 B.解析算法C.查找算法 D.排序算法3．统计1～1000间个位数是4，且能被9整除的数共有多少个，可以采用的算法是( )A.查找算法 B.枚举算法C.解析算法 D.排序算法某超市打折促销，规定如下：①购物未超过500元按原价支付；②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；10001500100081500300015007⑤购物超过3000元，超过3000元部分按6折优惠计价。根据购物货款求实付金额，解决这个问题，最适合的算法是 ( A.枚举算法 B.解析算法C.查找算法 D.递归算法在100～999中，找出能同时满足除3余2，除5余3，除7余2的所有整数，解决这个问题，最适的算法是 ( )A.枚举算法 B.解析算法C.查找算法 D.递归算法VB108中输出这些整数。为了实现这一目标，程序中划线处应填入的语句是()DimpAsInteger，iAsIntegeri＝1∶p＝0DoWhilei1000AndIfiMod0AndiMod8<>0List1.AddItemip＝p＋1EndIfi＝i＋1Loop程序中划线处应填入的语句是 ( )A.p＝5 B.p<＝5 C.p<5 7．小清利用VBPrivateSubCommand1_Click()DimxAsDouble,yAsDoublex=Val(Text1.Text)Ifx>1Theny=x-2Elsey=2^xText2.Text=Str(y)EndSub该程序主要使用的是 算法（解/枚举。在横线处添加合适的VB该VB程序中输出变量y与输入变量x。一个两位数，被7152。在列表框List1PrivateSubCommand1_Click()DimiAsIntegerDimjAsFori=11ToIfiMod7=1Thenj=(iMod10)*10+i\10If ThenList1.AddItemStr( EndIfNextiEndSub105219该有多种发货方式。他打算用VBPrivateSubCommand1_Click()DimiAsInteger′用于存储内装5千克饼干的箱数DimjAsInteger′用于存储内装2千克饼干的箱数DimkAsInteger′用于存储内装1千克饼干的箱数′①Forj=0To4Fork=0To8If Then′②List1.AddItemStr(i)+Str(j)+Str(k)EndIfNextkNextjNextiEndSub在横线①处添加合适的代码，并使该算法最优：在横线②处添加合适的代码，使其实现上述功能：该程序主要运用了 算法（选填：解枚举）某商场营业员的月奖金计算方法如下：奖金＝5001205352%。要求设计一个VB程序，在文本框Text1文本框Text3VB在设计应用程序界面时，要使按钮 Command1上显示“计算”，在其对应的属性窗口中修属性的属性值为“计算”加以实现。PrivateSubCommand1_Click()DimdayAsInteger’存储本月加班天数DimturAsSingle’存储本月营业额DimbonusAsSingle’存储本月奖金day=Val(Text1.Text)tur=Val(Text2.Text)bonus=500bonus=bonus+day*120If Thenbonus=bonus+tur*0.03Elsebonus=bonus+tur*0.02EndIfText3.Text=Str( EndSub编写VB文本框Text1中输入包含数字、字母的字符，单击“统计”按钮Command1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如下－1图所示：-2图所示“控件工具箱”中的PrivateSubCommand1_Click()DimsAsString,cAsStringDimIAsInteger,nAsInteger,numAsIntegers=num=0n=Len(s)Ifc>=″0″Andc<=″9″Thennum=num+1EndIfNextiLabel1.Caption=str(num)EndSub10，81920，20座到39座的收费30元，40座及以上的收费40元。例如，一辆25座的客车，应付的费用为30元，一辆5座的轿车应付的费用为10元。用VB编写的程序运行界面如图所示，在文本框Text1中输入客车的座数，单击“收费”按钮，在文本框Text2中显示应收的费用。为实现此功能，请在画线处填入合适的语句。① ②PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx＝Val(Text1.Text)If ① y＝40ElseIfx20y＝30ElseIfx8y＝20Else②EndIfText2.Text＝Str(y)EndSub小王在20米高的楼房上，拿一个质量为0.5簧球每次在下落到地面和反弹到最高点的过程中都要损失自己10%的机械能，问弹簧球在落地几次后静止？(注：以地面为参照物，当机械能小于或等于1焦耳视为静止)为了模拟和计算弹簧球落地的次数，编写了如下程序，统计结果显示在文本框Text1中。该算法的流程图如图所示，在程序画线处应填入的合适表达式或语句分别是：②②PrivateSubCommand1_Click()DimcountAsIntegerDimmAsSingle,gAsSingleDimhAsSingle,eAsSinglem＝0.5g＝10h＝20count＝0e＝m*g*h*0.9DoWhile e＝e*0.81②LoopEndSub126密码是八位数字，前面两位为19；91；77133程序界面如图所示，单击“寻找密码”按钮(Command1)后，可能的密码显示在列表框List1中。解决此问题的相应程序如下：PrivateSubCommand1_Click()DimiAsLong,sAsLongFori＝0Tos＝ IfsMod77＝0AndsMod133＝0Then②EndIfNextiEndSub(1)解决此问题的算法是 。(填：枚举算/解析算/查找算(2)在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：程序中①画线处应填入 。程序中②画线处应填入 。习题七：1-6ABBBAC 7、(1(2)End

𝑥−2𝑥 >

8、jmod5=2 iy={2𝑥𝑥