VisualBasic60程序设计黄学平主编Ⅲ-07normalalgorithms幻灯片.pptVIP

PPT研究院 POWERPOINT ACADEMY * * * * * * 补充 数组最多60维 上机实验保存文件的方式 递归 1.递归的概念： 用自身的结构来描述自身就称为“递归”。例对阶乘的定义： 2. 递归过程 过程在自身定义的内部调用自己 编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function 递推 回归 n=3 Function fac%(n%) If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function n=2 Function fac%(n%) If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function n=1 Function fac%(n%) If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function Private Sub Command1_Click() Dim n%,x% n = InputBox(“input”) ‘运行时输入3 x=fac(n) print x End Sub 1 2 6 例1 递归算法设计简单，但消耗的机时和占据的内存空间比非递归大。 思考： 若上述fac函数中没有这句语句： If n = 1 Then fac = 1 即仅有语句： fac = n * fac(n - 1) 程序运行将造成何结果？ 由此可见构成递归的条件： ★递归结束条件及结束时的值； ★能用递归形式表示，并且递归向终止条件发展。 数组排序 对已知存放在数组中的n个数。 (1)．选择法排序 算法思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小（升序）或最大（降序）的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小或最大的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 原始数据：8 6 9 3 2 7 第一轮后：2 6 9 3 8 7 第二轮后：2 3 9 6 8 7 第三轮后：2 3 6 9 8 7 第四轮后：2 3 6 7 8 9 第五轮后：2 3 6 7 8 9 选择法排序（升序）的VB程序 For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i 原始数据：8 6 9 3 2 7 第一轮后：2 6 9 3 8 7 第二轮后：2 3 9 6 8 7 第三轮后：2 3 6 9 8 7 第四轮后：2 3 6 7 8 9 第五轮后：2 3 6 7 8 9 实例2 （2）．冒泡法排序（递增） 算法思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 8 6 9 3 2 6 8 9 3 2 6 8 9 3 2 6 8 3 9 2 6 8 3 2 9 ① ② ③ ④ 6 8 3 2 9 6 3 8 2 9 6 3 2 8 9 ① ② ③ 冒泡法排序（升序）的VB程序： For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then temp=a(j)