第14课_计算正数A的算术根近似值.ppt

1、第14课 计算正数A的算术根近似值,复习引入,For循环结构。在给定条件成立时，可反复执行某程序段，直到条件不成立为止。给定的条件称为循环条件，反复执行的程序段称为循环体。For循环（ForNext）语句的基本格式为： For 循环变量初值 To循环变量终值 Step 增量 循环体 Next 变量 其中循环变量为数值型变量，初值、终值、增量均为数值型表达式。“Step 增量”部分可以省略，缺省时默认为1。在循环体中使用Exit For语句可直接中止循环，执行next后面的语句。,循环结构,当增量值为正数时，For循环的执行过程如下： （1） 将循环变量赋初值； （2） 比较循环变量是否小于等于

2、终值，小于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句； （3） 遇到Next语句，循环变量增加增量值，转到（2）继续循环； 执行过程流程图如右图所示,循环结构,当增量值为负数时，For循环的执行过程如下： （1） 将循环变量赋初值； （2） 比较循环变量是否大于等于终值，大于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句； （3） 遇到Next语句，循环变量减少增量值，转到（2）继续循环； 执行过程流程图如右图所示,例1：运行体验“For循环“程序，输入循环变量初值、循环变量终值和步长值

3、，判断中循环执行次数？,例2：以下Visual Basic程序的功能是： 计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 k = 2 (1) For i= 0 To 10 s = s + k k = k + 2 (2) Next i Text1.Text=Str(s) End Sub 分析数列，要表达式有11项，程序中循环i从0到10，也刚好执行11次。要

4、累加的第一项为1，以后每项是前项的2倍，故(1)处应为 k = 1,(2)处为 k = k * 2 或 k = 2i。,实践体验,实践主题：使用For语句，计算正数A的算术根的近似值。 实践要求：设计一个VB应用程序，利用下面的“除均法”计算正数A的算术根（，A0）的近似值。 要求用户的输入为： （1）被开方数A（A0）； （2）重复次数n。,要求该应用程序的界面如下：,（1）是被开方数为25、重复次数为3的情况,（2）是被开方数仍为25、但重复次数为6的情况,计算正数A的算术根（近似值）的算法如下： 近似值的初始推测值x0可以是任何正数，例如x0=2。 近似值的初始推测值x0可以是任何正数，

5、例如2。重复计算n次后的结果xn是正数A的算术根的近似值。,1） 算法分析。 在求正数A的算术根（近似值）时，给定A，只需定好第一项x1（0），根据公式就能方便地推导出x2xn，此方法又称牛顿迭代法，一般经过6、7次迭代之后就能比较精确了。,2） 画出程序流程图，如图所示。,3）应用程序界面设计如下图所示。,各控件属性表设置参考如下表：,4）根据算法流程图，编写程序代码。 程序代码参考如下： Private Sub Command1_Click() a = Val(Text1.Text) n = Val(Text2.Text) x = 2 For i = 1 To n x = 1 / 2 *

6、(x + a / x) Next i Text3.Text = Str(x) End Sub,5）运行调试（点击下图运行体验）。,课堂练习,1.如果以下是一个完整的Visual Basic For语句，则划线处的语句应该是 For i=1 To 10 a=a+i （A）Loop （B） End For （C）Next i （D）Next a 参考答案：C,课堂练习,2.有如下Visual Basic程序段： k = 0 For i = 1 To 20 If i Mod 3 = 0 Or i mod 5 =0 Then k = k + 1 Next i 该程序段运行后，变量k的值为 参考答案：9

7、,课堂练习,3.有如下Visual Basic程序段： k = 0 s = 0 For i = 1 To 20 If i Mod 3 = 0 Then s = s + i if s 10 then Exit For End if Next i 该程序段运行后，变量s的值为 参考答案：18,课堂练习,4.以下Visual Basic程序的功能是：计算表达式12345678910的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为 。 Private Sub Command1_Click() Dim i As Integer, sum As Long sum = 0

8、For i = 1 To 10 sum = sum * i Next i Text1.Text=Str(sum) End Sub 参考答案：sum=1,编程-死循环,在编程中，一个无法靠自身的控制终止的循环称为“死循环”。死循环的原因是循环终止的条件无法成立,换而言之就是一旦循环开始就结束不掉。例如：有如下程序段 s=0 For m=1 to 100 s=s+m m=m-1 Next m 这段代码在运行时，变量m的值只会在1，0，1，0，1，0，变化，m=100的条件永远成立，循环就会无休止的运行而不会停止，这个时候就形成了死循环，机器就会处于一种“死机”的状态。但是任何编译系统都不做死循环检查，因而在编程时，要注意防止死循环的出现。,课堂练习,5.有如下程序段： A=7681 S=0 For i=1 to 4 B=A mod 10 S=S+B A=A10 Next i 该程序段运行后，S的值为 参考答案：S的值为22,课堂练习,6.有如下程序段： A=1 B=1 For I=