《基本算法介绍.docVIP

基本算法介绍 算法实际上就是用计算机解决某个问题的方法和步骤，学习完循环和分支结构的语句后，实际上就可以编写任何复杂的程序了，而在程序的编写之前必须掌握程序算法的基本思想，即对不同问题处理时的计算机的解题步骤，下面就介绍一些基本的算法思想。 注意：对某一类问题的解决，有很多解决的方法，因此，同一个问题的程序设计，针对不同的算法可能编写出不同的程序，而我们在下面介绍的只是对某类问题的通用算法思想。另外，算法的设计不针对某一个具体的问题，希望大家在学习时，不要仅满足掌握相关例题的程序设计，而要学习算法的基本思想，学会以后遇到类似的问题时能运用该思想来解决问题。 累加算法 累加是程序设计中最常遇见的问题，比如求某单位职工的所有工资总和等。 累加算法的一般做法是定义一个变量 s，作为累加器使用，一般初值为0，再定义一个变量用来保存加数。一般在累加算法中的加数都是有规律可循，可结合循环程序来实现。 由前面可知，一个循环程序的设计，如果以下三方面确定下来：变量的赋初值、循环体的内容、循环结束条件，那么根据循环语句的格式，就很容易写出相应的循环程序。 例5-2-8 求1+2+3+……+100的累加和，并在窗体上打印输出。 分析： 设累加器S专门存放累加的结果，初值为0，加数用变量I表示 当I=1时， S的值应为0+1=1，即S= 0+1= S+I （执行语句S=S+I） 当I=2时， S的值应为1+2= 3，即S =1+2= S+I （执行语句S=S+I） 当I=3时， S的值应为3+3= 6，即S= 3+3 = S+I （执行语句S=S+I） 当I=4时， S的值应为6+4= 10，即S= 6+4 = S+I （执行语句S=S+I） …… 当I=100时，累加器S=S+100=1+2+3+……+99+100=5050（执行语句S=S+I） 不难看出，I的值从1变化到100的过程中，累加器均执行同一个操作：S=S+I，S=S+I的操作执行了100次，所以该程序段可写成： Dim i As Integer, s As Integer s= 0 ‘给累加器s赋初值 For i= 1 To 100 s= s +i ‘i既作为循环变量，又作为加数 Next I Print 1+2+……+100=; S 考虑一下：语句Print 1+2+……+100=; S可以放在循环体中吗？ 归纳一下： 所有累加程序的基本思想都是定义累加器s，初值为0或根据情况赋一个特定值，定义一个变量t存放加数，只不过在不同情况下，加数t的值不同，在循环体中，每次产生指定的加数t，执行s = s +t，直到循环结束为止。 如果累加次数确定，累加程序一般可以采用如下的编程模式（假设累加次数为n次）： s = 0 …… ‘其他的变量初始化语句（如果需要的话） For i = 1 To n 将加数赋给t s = s + t Next I 如果累加次数不确定，累加程序一般可以采用如下的编程模式： s = 0 …… ‘其他的变量初始化语句（如果需要的话） Do 将加数赋给t s = s + t Loop Until 循环结束条件 例5-2-9 求1+1/x+1/x2+……+1/xn（x1）的累加和，要求精确到10-6。 分析： 很显然，这也是一个累加的算法题，但累加次数不确定，所以应用Do-Loop型循环实现。 加数t为1/xn，x由用户从键盘上输入，n的值从1开始，每次循环，n的值增加1，由前面的归纳可以编写程序如下： Private Sub Command1_Click() Dim x As Single, n As Integer Dim s As Single, t As Single n = 1 s = 1 x = InputBox(请输入x的值，x要求大于1) Do t = 1 / x ^ n ‘产生每次的加数t n = n + 1 ‘ s = s + t ‘累加 Print t Loop Until t 0.000001 Print s End Sub 延伸一下： 上述算法对数值型数据，执行的是累加操作，但如果用于字符串型数据，完成的则是字符串的连接。 如果需要实现字符串的连接，定义一个字符串型变量s作为字符连接器，一般赋初值为””（空串），变量t作为被连接的字符，则在循环体中执行s=s+t时完成的就是字符串的顺序连接。 比如：如果t分别被赋值为字符“A”、“B”、“C”、“D”，在4次循环中，执行s=s+t，循环执行过程如下： s=s+t=”A” （t=“A”) s=s+t=”AB” （t=“B”) s=s+t=”ABC” （t=“C”) s=s+t=”ABC