VFP第4、5、6部分(程序算法、顺序分支循环).ppt

说明： ①步长可正可负，缺省为1。 ②循环体中不应包含改变循环变量值的命令，否则循环次数将随之改变。 ③如果循环可以通过计数来控制，则本循环比条件循环更为方便。 当循环 步长循环 在文本框Text1中输入终值n 在文本框Text2中输入步长k i=1 for i=1 to n step k do while i=n 命令序列 命令序列 endfor|next i=i+k endddo 【例】求100以内的奇数和。 A=1+3+5+…+99 循环变量 初值n=1 循环条件n100 循环变量的变化 趋势n=n+2 请同学们自己写出程序 循环体累加语句：A=A+n 【例】求 循环变量 初值x=1 循环条件xn 循环变量的变化 趋势x=x+1 请同学们自己写出程序 循环体累加语句：K=K+x2 思考：计算e的近似值。其公式为：e＝1+1/1!＋1/2!＋1/3!＋…＋1/N!，直到1/N!0.000001为止。 【例】求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身。 编程方法： “枚举法” 按问题本身的性质，一一列举出该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，我们采纳这个解，否则抛弃它。对于所列举的值，既不能遗漏也不能重复。 查找范围： 三位数100~999 任意一个三位数 X 百位数字X1 十位数字X2 个位数字X3 判断这个三位数x是水仙花数的条件： X=x13+x23+x33 例：1+2+…+n 1到n的奇数和、偶数和 100以内能够被X整除的数之和。 请同学们自己写出程序 (教材P60-61) 【例3-10】设计如图1所示表单。运行该表单，在文本框Text1中输入一串字符，单击“逆序显示”命令按钮后，逆序显示该字符串，如图2所示。 图1 图2 x=Av56:YijB8 逆序： 从右到左逐个取出 8 B j i Y : 6 5 v A 11 10 9 8 7 6 5 4 3 2 1 次数i(循环变量): 总次数=总的字符数 c=c+substr(x,i,1) C=8BjiY:65vA substr(x,i,1) 总的字符数len(x) 确定变量： x：存任意字符串x= Av56:YijB8 i：存截取次数(1~len(x)) c：存逆序字符串 c=c+substr(x,i,1) 确定算法：用循环在原字符串中从右到左逐个截取字符，重新组装成逆序字符串 确定循环三要素： 循环变量 : i (i初值为len(x),终值为1) 循环条件: i=1 循环条件改变：i=i-1(从右到左截取) 【例】输入一串ASCII字符，显示数字字符串。假设输入：Av56:YijB8 显示：568。 请同学们自己写出程序 从左到右逐个取出字符x 判断x是数字的条件： Asc(x)=asc(‘0’) and Asc(x)=asc(‘9’) 【例】输入一串ASCII字符，显示大写字母串。假设输入：Av56:YijB8 显示： AYB 。 输入一串ASCII字符，显示小写字母串。假设输入： Av56:YijB8 显示：vij 。 请同学们自己写出程序 服务理念中的“点点” ◆理解多一点 真情浓一点 ◆学习勤一点 品质高一点 ◆理由少一点 效率高一点 ◆处理问题灵活点 工作过程用心点 ◆对待同事宽容点 互相协作快乐点 输入两个数a,b ab? 把b的值赋给a Y N ？a 方法二：单分支 EXM3：输入两个数，比较大小，并按从大到小的顺序输出。 输入两个数a,b ab? 交换a,b的值 Y N ？a,b 使用单分支结构： 容器A 容器B 容器C 1 2 3 1、C = A 2、A = B 3、B = C 赋值 赋值 赋值 交换 思考：输入3个数a,b,c，比较大小，并按从大到小的顺序输出。 (教材P53) 【例3-5】已知一元二次方程的3个系数，求一元二次方程的根。求根公式 ： 分支的嵌套 “求解”命令按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.te