03控制结构_常见算法.pptVIP

计算机语言VB 基本控制结构__常见算法 * */20 算 法 算法：是对某个问题求解的过程。算法有很多表达方式，通俗地讲，程序就是用计算机语言表达的算法；流程图就是图形化了的算法。同一问题有多种算法描述。算法是程序的核心、编程的基础。 算法种类：数值算法和非数值算法。 * */20 复习基本控制结构语句 顺序结构 ① InputBox（）函数 ② MsgBox函数与语句 ③ Print方法 选择结构 ① If…Then…Else条件语句 ② 情况语句Select Case…End Select ③ 条件语句嵌套 循环结构 ① For…Next循环语句 ② Do…Loop循环语句 ③ 多重循环（循环嵌套） * */20 主要内容 累加与连乘算法 穷举(枚举)算法 递推(迭代)算法 * */20 累加与连乘 累加：是在原有和的基础上每次加一个数。 连乘：是在原有积的基础上每次乘一个数。 示例1：求1到100间5的倍数或7的倍数的和。 sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then sum = sum + i End If Next i Print 1到100间5的倍数和7的倍数之和为:; sum * */20 示例2：求e= 1+1/1!+1/2!+1/3!…+1/n!，直到最后一项的绝对值小于0.00001 为止。 Dim i, t, e! i = 0 ’项数，初值为0 e = 0 ’存放累加和的结果，初值为0 t = 1 ’存放阶乘的值，初值为1 Do While 1/t = 0.00001 e = e + 1/t i = i + 1 ’为下一项作准备 t = t * i ’连乘，求阶乘 Loop Print 计算了; i; 项,e的值是; e * */20 练习题 累加、连乘 练习1：求∏/4= 1-1/3+1/5-1/7……，直到最后一项的绝对值小于0.000001为止。 练习2：求S=a+aa+aaa+…+aaa(n个a)。其中a为1～9的一个正整数。如a=2，n=4，则求S=2+22+222+2222。 * */20 穷举法（枚举法） 穷举算法：对问题的所有可能解一一测试，直到找出所有解或将全部状态测试过为止。 穷举算法循环控制两种办法： 记数法：先要确定循环次数，然后逐次测试，完成测试次数后，循环结束。 标志法：在循环次数无法事先确定的情况下，先确定一个结束目标，达到目标后，循环结束。 使用穷举法需掌握的两条原则：确定搜索范围和选择搜索策略。 * */20 示例3：百钱买百鸡。（鸡翁一,值钱五，鸡母一,值钱三，鸡雏三,值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？） 分析 依题意，列方程： Cocks + hens + chicks=100 5*cocks + 3*hens + chicks/3 = 100 各变量取值范围： Cocks: 1～20 Hens: 1～33 Chicks: 3～99 * */20 Cocks hens chicks 1 1 98 2 97 … 33 66 2 1 2 … 33 97 96 65 … 20 1 2 … 33 * */20 Dim cocks%, hens%, chicks% Print Tab(5); 公鸡; Tab(10); 母鸡; Tab(20); 小鸡 For cocks = 1 To 20 For hens = 1 To 33 chicks = 100 - cocks - hens If cocks * 5 + hens * 3 + chicks \ 3 = 100 _ and chicks mod 3=0 Then Print Tab(5); cocks; Tab(10); hens; Print Tab(20); chicks End If Next hens Next cocks * */20 示例4：求素数。 分析： 素数：只能被1和自己整除的数。 判断数n是否为素数的方法： 在2～sqr(n)中能否找到一个整数i能将n整除，若i存在，则n不是素数；若找不到i，则n为素数。 如: 11：要用2、3除 16：要用2、3、4除 * */2