枚举算法之算法实现.ppt

枚举算法之程序实现,什么是枚举算法,“鸡、兔同笼问题”鸡、兔共79只，200只脚在笼里走，试问多有少只鸡？多少只兔？枚举法就是按问题本身的性质，一一列举出该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，我们采纳这个解，否则抛弃它。,解题过程,解题过程分两步：逐一列举可能的解的范围。这个过程用循环结构实现。对每一个列举可能的解进行检验，判断是否为真正的解。这个过程用分支结构实现。枚举算法=循环结构+分支结构，循环结构内嵌套选择结构,结构流程图,作用：逐一列举可能解的范围,作用：逐一检验可能解的是否是真解,代码填空,DimchickenAsIntegerDimfootAs()Forchicken=1to()foot=()If()()Print鸡:+Str()EndIfNextchicken,integer,Chicken*2+(79-chicken)*4,79,Foot=200,then,chicken,PrivateSubForm_Click()DimrabbitAsIntegerDimchickenAsIntegerDimfootAsIntegerForchicken=1To79foot=chicken*2+(79-chicken)*4Iffoot=200ThenPrint鸡:+Str(chicken)rabbit=79-chickenPrint兔:+Str(rabbit)EndIfNextchickenEndSub,例:一份单据被涂抹的数字的推算。,问题：一张单据上有一个5位数的编号，其百位数和十位数处已经变得模糊不清，如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数。并统计这些5位数的个数。要求：分别有DO循环和FOR循环各写出一段代码。,任务,00,01,02,03,98,99,00,01,02,03,98,99,让变量J依次取0到99这100个不同的值,同时对于J的每个确定的值乘以10加上25006这样就能形成一个可能解.,0,J,乘以10,00,加上25006,25006,1,10,25016,2,20,25026,98,980,25986,99,990,25996,J,验证条件:NMOD37=0ORNMOD67=0,2019/12/12,9,可编辑,for循环,PrivateSubCommand1_Click()DimjAsInteger定义一个中间被涂抹的两位数变量DimnAsInteger定义被求的结果5位数变量DimcAsInteger定义被求的符合要求的五位数个数变量c=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem总计有+Str(c)+个五位数EndSub,Do循环,PrivateSubCommand1_Click()DimjAsInteger定义一个中间被涂抹的两位数变量DimnAsInteger定义被求的结果5位数变量DimcAsInteger定义被求的符合要求的五位数个数变量c=0List1.ClearDoWhilej=99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfj=j+1LoopList1.AddItem总计有+Str(c)+个五位数EndSub,2、在联欢会上，小明提出玩数7的游戏：游戏规则：从1开始数起，每个人数一个数，凡是遇到7的倍数，就要喊“过”，这样一直数到100为止。要求：用枚举算法帮小明找出1到100之间所有7的倍数。结果显示在窗体上。,PrivateSubForm_Click()DimiAsIntegeri=1Fori=1To100IfiMod7=0ThenPrintiEndIfNextiEndSub,for循环,PrivateSubForm_Click()DimiAsIntegeri=1DoWhilei=100IfiMod7=0ThenPrintiEndIfi=i+1LoopEndSub,Do循环,课堂总结,枚举算法=循环结构+分支结构做到既不遗漏任何一个解、也不重复.枚举算