算法与程序设计会考真题.docVIP

1,分析并完善程序： 考拉兹猜想：又称为3n+1猜想，指的是对于给定的每个正整数n,经过一系列的有限次变化后，最终都能变为了： 如果它是偶数，则对它除以2,如果它是奇数，则对它乘3再加1;…… 如此循环，直到得到位为止。例如：n=6,根据上述需要8次变换后得1，变换过程：63105168421。以下是验证考拉兹猜想的主要程序片段，请你补全代码， Dim n As Long Dim cnt AS Long ’变换次数cnt n=Val(InputBox(“n=”))’输入正整数n cnt=0 Do While n1 cnt=cnt+1 ‘变换次数累加 If n Mod 2=0 Then n=___n/2___ Else n=__3*n+1____ endif Loop Print cnt ‘输出变换次数 2，输入一个正整数n,判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是，统计2到n-1之间的所有能整除n的整数个数s,若s大于0，则n不是素数，否则不是素数，根据以上方法，完善以下程序代码： N= val(InputBox(“n=”) S=0 For i=2 to n-1 If n mod i=0 Then S=__s+1____’统计因数个数 Endif