等级考试常考算法总结.ppt

等级考试常考算法分析 2.求因子数之和 3.判断数是否为素数 4.求最大公约数 5.求最小公倍数 6.求阶乘 7.求分数约数 8.一维数组排序—冒泡法排序 8.一维数组排序—选择法排序 9.判断一对数是否为互质数 10.判断数是否为降序 11.十进制正整数转换为二至十六进制数 12.二至十六进制数转换为十进制正整数 13.求反序数 14.验证回文数 15.分解数字 * * Private Sub factor(x As Integer, fn() As Integer) Dim i As Integer, n As Integer ReDim fn(1) For i = 1 To x - 1 If x Mod i = 0 Then n = n + 1 ReDim Preserve fn(n) fn(n) = i End If Next i End Sub 1.求因子数 Private Function sum_factor(x As Integer) As Long Dim i As Integer, s As Integer For i = 1 To x - 1 If x Mod i = 0 Then s = s + i End If sum_factor = s Next i End Function Private Function prime(n As Integer) As Boolean Dim m As Integer For m = 2 To Sqr(n) If n Mod m = 0 Then Exit Function Next m prime = True End Function Private Function gcd(m As Integer, n As Integer) As Integer r = m Mod n If r = 0 Then gcd = m Else m = n n = r gcd = gcd(m, n) End If End Function Private Function lcm(x As Integer, y As Integer) As Integer Dim m As Long, flg As Boolean flg = False Do Until flg m = m + x If m Mod y = 0 Then flg = True End If Loop lcm = m End Function Private Function fact(n As Integer) As Long If n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If End Function Private Sub divisor(fz As Long, fm As Long) Dim min As Integer, k As Integer If fm fz Then min = fz Else min = fm For k = 2 To min Do While fz Mod k = 0 And fm Mod k = 0 fz = fz / k fm = fm / k Loop Next k End Sub Private Sub Bubble_Sort(Sort() As Integer) Dim I As Integer, Tem As Integer, j As Integer, m As Integer For I = LBound(Sort) To UBound(Sort) - 1 For j = 1 To UBound(Sort) - I If Sort(j) Sort(j + 1) Then Tem = Sort(j) Sort(j) = Sort(j + 1) Sort(j + 1) = Tem End If Next j Next I End Sub Private Sub ch