高中信息技术_算法程序框图分析题常见题型及解题策略教学课件设计.ppt

算法与程序设计分析题常见题型及解题策略 山东省泰安第一中学信息技术组 任森森 常见题型 一、阅读算法程序框图，写出运行结果。 二、分析完善程序。 正向思维 逆向思维 真题赏析（一）---读程序 1、阅读下列程序，写出正确运行结果 Dim n As Long Dim s As Long Dim x As Long n = Val(InputBox(n=)) s = 0 Do While n 0 x = n Mod 10 s = s + x n = n \ 10 Loop Print s 程序运行时，输入518，运行输出结果是：？ 初始值 第一步 第二步 第三步 X X=n mod 10 0 8 1 5 S S=s+s 0 0+8 0+8+1 0+8+1+5 N N=n \ 10 518 51 5 0 2、阅读下列程序，写出运行结果 Dim x As Integer Dim y As Integer y = 0 For i = 1 To 5 x = Val(InputBox(请输入：)) y = y + x Next i print y 程序运行后，依次输入：10 20 30 40 50 运行输出结果是： ？ 初始 第1次 第2次 第3次 第4次 第5次 第6次 i 0 1 2 3 4 5 6 x 0 10 20 30 40 50 不满足条件，循环终止 y 0 0+10 0+10+20 0+10+20+30 0+10+20+30+40 0+10+20+30+40+50 3、阅读下列程序，选出运行结果 For i = 1 To 10 For j = 1 To i Print * ; Next j Print Next i 运行结果是： (填：A/B/C/D,6分) A B C D i控制*的行数 j控制每行*的个数 注意末尾是分号 输出换行 D 解题思路（一）---读程序 细化程序结构 人工模拟，列表跟踪变量的变化过程 人脑模拟程序 真题赏析（二）---完善程序 4、分析完善程序 考拉兹猜想： 考拉兹猜想又称为3n+1猜想，指的是对于给定的每一个正整数，经过下列有限次变换后，最终都能变为1： 如果它是偶数，则对它除以2；如果它是奇数，则对它乘3再加1；…………如此循环，直到得到1为止。 例如 n=6 ，根据上述规则需要8次变换后得到1，变换过程：6—3—10—5—16—8—4—2—1。以下是验证考拉兹猜想的主要VB程序片段，请你补全代码：（8分） Dim n As Long Dim cnt As Long n = Val(InputBox(n=)) cnt = 0 Do While n 1 cnt = cnt + 1 If n Mod 2 = 0 Then n = ＿ Else n = ＿＿ End If Loop n/2 3*n+1 5、分析完善程序 “完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1、2、3，而6=1+2+3，因而6就是完数。再如28的因子为1、2、4、7、14，而28=1+2+4+7+14，因而28也是完数。 问题：输入一个正整数n，判断该正整数是否为完数。要判断一个整数n是否为完数，最简单的方法是： 求出1到n-1之间的所有因子和为sum，如果sum的值和n的值相同，则n就是完数。 以下代码是判断n是否为完数的程序片段，请你补全代码：（8分） Dim n As Long Dim sum As Long n = InputBox(n=) For i = 1 To n - 1 If n Mod i = 0 Then sum = ＿＿ Next i If Then Print n 是完数 Else Print n 不是完数 End If sum+i sum=n 6、分析完善程序 问题：输入一个正整数n,判断该正整数是否为素数（质数）。 要判断一个数n是否为素数，最简单的方法是： 统计2到n-1之间的所有能整除n的整数个数s，若s大于