枚举算法之算法实现.ppt

《枚举算法之算法实现.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、枚举算法之程序实现什么是枚举算法“鸡、兔同笼问题”鸡、兔共79只，200只脚在笼里走，试问多有少只鸡？多少只兔？枚举法就是按问题本身的性质，一一列举出该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，我们采纳这个解，否则抛弃它。解题过程解题过程分两步：逐一列举可能的解的范围。这个过程用循环结构实现。对每一个列举可能的解进行检验，判断是否为真正的解。这个过程用分支结构实现。枚举算法=循环结构+分支结构，循环结构内嵌套选择结构结构流程图开始结束输入输出循环结构分支结构作用：逐一列举可能解的范围作用：逐一检验可能解的是否是真解代码

2、填空DimchickenAsIntegerDimfootAs()Forchicken=1to()foot=()If()()Print"鸡:"+Str()EndIfNextchickenintegerChicken*2+(79-chicken)*479Foot=200thenchickenPrivateSubForm_Click()DimrabbitAsIntegerDimchickenAsIntegerDimfootAsIntegerForchicken=1To79foot=chicken*2+(79-chicken)*4Iffoot=200ThenPri

3、nt"鸡:"+Str(chicken)rabbit=79-chickenPrint"兔:"+Str(rabbit)EndIfNextchickenEndSub例:一份单据被涂抹的数字的推算。问题：一张单据上有一个5位数的编号，其百位数和十位数处已经变得模糊不清，如图所示。但是知道这个5位数是37或67的倍数。现在要设计一个算法，找出所有满足这些条件的5位数。并统计这些5位数的个数。要求：分别有DO循环和FOR循环各写出一段代码。任务000102039899000102039899……让变量J依次取0到99这100个不同的值,同时对于J的每个确定的值乘以10

4、加上25006这样就能形成一个可能解.0J乘以1000加上25006250061102501622025026……98980259869999025996J验证条件:NMOD37=0ORNMOD67=0for循环PrivateSubCommand1_Click()DimjAsInteger'定义一个中间被涂抹的两位数变量DimnAsInteger'定义被求的结果5位数变量DimcAsInteger'定义被求的符合要求的五位数个数变量c=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenLis

5、t1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"总计有"+Str(c)+"个五位数"EndSubDo循环PrivateSubCommand1_Click()DimjAsInteger'定义一个中间被涂抹的两位数变量DimnAsInteger'定义被求的结果5位数变量DimcAsInteger'定义被求的符合要求的五位数个数变量c=0List1.ClearDoWhilej<=99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfj=j+1

6、LoopList1.AddItem"总计有"+Str(c)+"个五位数"EndSub2、在联欢会上，小明提出玩数7的游戏：游戏规则：从1开始数起，每个人数一个数，凡是遇到7的倍数，就要喊“过”，这样一直数到100为止。要求：用枚举算法帮小明找出1到100之间所有7的倍数。结果显示在窗体上。PrivateSubForm_Click()DimiAsIntegeri=1Fori=1To100IfiMod7=0ThenPrintiEndIfNextiEndSubfor循环PrivateSubForm_Click()DimiAsIntegeri=1DoWhilei<

7、=100IfiMod7=0ThenPrintiEndIfi=i+1LoopEndSubDo循环课堂总结枚举算法=循环结构+分支结构做到既不遗漏任何一个解、也不重复.枚举算法效率较低.并不是所有的问题都可以使用枚举算法来求解，只有当问题的所有可能解的个数不太多时，并在可以接受的时间内得到问题的所有解，才有可能使用枚举算法。