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

第14课 计算正数A的算术根近似值 复习引入 ?? For循环结构。在给定条件成立时，可反复执行某程序段，直到条件不成立为止。给定的条件称为循环条件，反复执行的程序段称为循环体。For循环（For……Next）语句的基本格式为：??? For 循环变量初值 To循环变量终值 Step 增量??????? 循环体??? Next 变量??? 其中循环变量为数值型变量，初值、终值、增量均为数值型表达式。“Step 增量”部分可以省略，缺省时默认为1。在循环体中使用Exit For语句可直接中止循环，执行next后面的语句。 循环结构 当增量值为正数时，For循环的执行过程如下：?? （1） 将循环变量赋初值；?? （2） 比较循环变量是否小于等于终值，小于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；?? （3） 遇到Next语句，循环变量增加增量值，转到（2）继续循环； 执行过程流程图如右图所示 循环结构 当增量值为负数时，For循环的执行过程如下：?? （1） 将循环变量赋初值；?? （2） 比较循环变量是否大于等于终值，大于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；?? （3） 遇到Next语句，循环变量减少增量值，转到（2）继续循环；??? 执行过程流程图如右图所示 ? 例1：运行体验“For循环“程序，输入循环变量初值、循环变量终值和步长值，判断中循环执行次数？ 例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次。要累加的第一项为1，以后每项是前项的2倍，故(1)处应为 k = 1,(2)处为 k = k * 2 或 k = 2^i。 实践体验 实践主题：使用For语句，计算正数A的算术根的近似值。 ???? 实践要求：设计一个VB应用程序，利用下面的“除均法”计算正数A的算术根（＋，A＞0）的近似值。 ???? 要求用户的输入为： （1）被开方数A（A0）； （2）重复次数n。 要求该应用程序的界面如下：? 计算正数A的算术根（近似值）的算法如下： ??????? 近似值的初始推测值x0可以是任何正数，例如x0=2。 ?? 近似值的初始推测值x0可以是任何正数，例如2。重复计算n次后的结果xn是正数A的算术根的近似值。 1） 算法分析。?????? 在求正数A的算术根（近似值）时，给定A，只需定好第一项x1（≠0），根据公式就能方便地推导出x2……xn，此方法又称牛顿迭代法，一般经过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 * (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