常用算法及调试方法.pptVIP

常用算法举例 算法是对某个问题求解过程的描述 一、若干初等数学问题： 1.累加、连乘 程序调试 一.错误类型 （1）编辑错误 在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，VB在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。 （2）编译错误 编译错误指按了“启动”按钮，VB开始运行程序前，先编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，Visual Basic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。 （3） 运行错误 运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。 （4） 逻辑错误 程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读分析程序以及调试。 * * 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 Sum 3～10的乘积 t = 1 For i =3 To 10 t = t * i Next i Print t 例 求自然对数e的近似值,要求其误差小于0.00001，近似公式为: 该例题涉及两个问题： （1）用循环结构求级数和的问题。本例根据某项值的精度来控制循环的结束与否。 （2）累加：e=e+t 循环体外对累加和的变量清零 e=0 连乘：n=n*i 循环体外对连乘积变量置1 n=1 Private Sub Form_Click() Dim i%,n, t!, e! e = 0 : n = 1 ‘ e存放累加和、n存放阶乘 i = 0 : t = 1 ‘ i计数器、t第i项的值 Do While t 0.00001 e = e + t : i = i + 1 ‘ 累加、连乘 n = n * i : t = 1 / n Loop Print 计算了 ; i; 项的和是 ; e End Sub 2.求素数 素数是一个大于2，且不能被1和本身以外的整数整除的整数。 判别某数m是否为素数最简单的方法是: 对于m 从 i=2，3，…，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。 例 求100以内素数的代码： For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m NotNextM: Next m m是否为素数 求100以内的素数 思考： 此例用GoTo语句对非素数不作判断，若不用GoTo语句，如何修改程序？ 例：用筛选法求素数 3.穷举法 “穷举法”也称为“枚举法”或“试凑法”， 即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。 例 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： x+y+ z =100 3x+2y+0.5z=100 三个未知数，两个方程，此题有若干个解。 解决此类问题采用“试凑法”，把每一种情况都考虑到。 方法一：最简单三个未知数利用三重循环来实现。 方法二：从三个未知数的关系，利用两重循环来实现。 4.递推法 “递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，并由新值代替旧值。 例 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到