循环结构程序设计的应用.pptVIP

习题1：输入10个数，求这10个数的平均值。 拓展练习：输入一批数，以输入0结束。求这些数的平均值。 习题2：设有一张纸厚为0.1毫米，面积足够大。 习题2：设有一张纸厚为0.1毫米，面积足够大。 例题和练习 例题和练习 例题和练习 例题和练习 例题和练习 例题和练习 例题和练习 例题和练习 回家作业 谢谢 * * 第九讲 循环结构程序设计的应用 开始 s=0 输出s 结束 F i=10 T i=1 s=s+x i=i+1 s=0 For i=1 to 10 input x s=s+x Next i Print s/10 要求：画出流程图，写出相应的代码，并在VB中用For－next结构实现。 提示：循环中的输入语句必须用输入函数： Inputbox(提示字符串[,标题字符串]) 例如: x=inputbox(”请分别输入10个数”,”求10个数平均值”) x=1/i 输入x 输出s/10 x=inputbox(”请分别输入10个数”,”求10个数平均值”) 开始 s=0 输出s/10 结束 F i=10 T i=1 s=s+x i=i+1 s=0 For i=1 to 10 input x s=s+x Next i Print s/10 输入x 输入x s=0 : i=0 s=s+x i=i+1 输入x x0 输出s/i s=0 i=0 Input x Do while x0 s=s+x i=i+1 input x Loop Print s/i 设S为累加和； i为项数；x为项值。 开始 x=0.0001 输出x 结束 F i=20 T i=1 i=i+1 问题一：每次对折，纸张的厚度是原来的几倍？ 问题二：每次对折都会产生了一个纸张的厚度，写出这 个数值序列。 问题三：原问题①可以表述为怎样一个问题： 求数值序列0.0002,0.0004,0.0008,…的第20项？ 问题四：如何设计赋值语句，使该赋值语句在反复执行 时可以生成这个数值序列？ 只要取x=0.0001，然后反复执行x=2*x，就可以得到这 个数值序列。 ①问对折20次后，厚度可达到多少米?(注意单位) ②将它不断地对折，问对折多少次后，厚度可达到或 超过太阳到地球的距离?（1471亿米） 要求：画出流程图，写出相应的代码，并在VB中选 用恰当的循环结构实现。 x=2*x 开始 x=0.0001 输出x 结束 F i=20 T i=1 i=i+1 x=0.0001 For i=1 to 20 x=2*x Next i Print x ①问对折20次后，厚度可达到多少米?(注意单位) ②将它不断地对折，问对折多少次后，厚度可达到或 超过太阳到地球的距离?（1471亿米） 要求：画出流程图，写出相应的代码，并在VB中选 用恰当的循环结构实现。 x=2*x 输出i-1 x=0.0001 i=1 Do while x147100000000 x=2*x i=i+1 Loop Print i-1 x147100000000 分析： 根据题意，要求输入n的值，输出第n项的值。如输入4，则输出7。 a1=1； a2=2； a3=4； a4=7； a5=11； … a2-a1=1； a3-a2=2； a4-a3=3； a5-a4=4； … a2=a1+1； a3=a2+2； a4=a3+3； a5=a4+4； … 本数列各项之间的关系为： a1=1， an=an-1+n-1 n=2,3,4,… 例1 ：求序列1，2，4，7，11，… 中第n项的值。 [文件名：求递增项值] 结束 输出 x 开始 x=1 输入 n i=i+1 T F i = 2 i= n x=x+i-1 x=1 For i=2 to n Next i 输入 n x=x+ i -1 输出 x （例2）请编程求解菲波那契数列1,1,2,3,5，8，…，任意项的值。程序运行后通过文本框输入要求的菲波那契数列第an项的n值，然后让计算机计算输出an项的值。[文件名：求菲波那契数列值] 根据题意 a1=1, a2=1, a3=a1+a2=2, a4=a2+a3=3 a5=a3+a4=5 …… an=an-1+an-2 n=3,4,5,…… 于是，我们得到斐波那契数列的一般表达式 a1=1, a2=1, an=an-1+an-2 n=3,4,5,…… 设a为第一项，b为第二项，c为第三项，则 c ＝ a + b 当a = a1 = 1，b = a2 = 1时，则c = a + b ，即 a3 = 2。 根据a1=1，a2=1， ai=ai-1+ai-2，i=3，来生成斐波那