VFP课件第六章 节 结构化程序设计.ppt

例6.3：任意查询一个学生，找到则显示其信息，找不到则显示查无此人。 Clear Use 学生信息 Accept 请输入学生姓名： to cname locate for 姓名=cname If found( ) Disp 学号,姓名,性别 Else ? 查无此人！ endif Use return 双分支结构 课堂练习: 任意地输入一个数,如果这个数大于零则在屏幕上显示同学们好,否则在屏幕上显示同学们再见。 首先进行算法分析,然后再编写程序. 例6.4：根据输入的X值，计算下面分段函数的值，并显示结果。 input 请输入X的值 TO X IF X1 Y=2*X-5 ELSE IF X10 Y=2*X ELSE Y=2*X+5 ENDIF ENDIF ?Y IF语句嵌套 Y=2*X-5 x1 Y=2*X 1=x10 Y=2*X+5 x=10 分段函数: DO CASE CASE 条件表达式1 命令行序列1 CASE 条件表达式2 命令行序列2 …… CASE 条件表达式N 命令行序列N [OTHERWISE 命令行序列N+1] ENDCASE 3.多分支结构语句格式： 多分支结构 即根据多个条件表达式的值,选择执行多个操作中的一个对应执行。 input 请输入X的值 TO X do case case X1 Y=2*X-5 case x=1.and.X10 Y=2*X case x=10 Y=2*X+5 endcase ?Y 计算y的值: x1 y=2*x-5 1=x10 y=2*x X=10 y=2*x+5 例6-8：输入学生成绩，判断并输出成绩等级。 clear input 请输入分数： to nscore do case case nscore100 or nscore 0 ? 成绩必须在0——100之间！ case nscore=90 ? 优秀 case nscore=80 ? 良好 case nscore=70 ? 中等 case nscore=60 ? 及格 otherwise ? 不及格 endcase 课堂练习:用DO CASE 语句计算Y的值: 当X0时，Y=2*X 当X=0.and.x2时，Y=X**2 当x=2.and.x3时， Y=1-X 当x=3.and.x6时， Y=(X+5)**2 当x=6时，Y=X*(X+5) 问题的提出： 在实际工作和生活中，经常要完成一些多次相同的重复操作。如要计算某个单位所有纳税人的纳税金额、计算多组数的平均值及标准差等，为解决这类问题常采用循环结构的处理方法。 6.3.3 循环结构 6.3.3循环结构 DO WHILE 条件表达式（当型循环结构） 命令序列1 [LOOP] 命令序列2 [EXIT] 命令序列3 ENDDO 条件？ YES 循环体 ENDDO的后续语句 NO 循环结构流程图 LOOP EXIT DO WHILE 型循环也叫当型循环.即根据条件表达式的值,决定循环体内的执行次数. 最简单的循环格式为: DO WHILE 条件表达式 命令行序列 ENDDO 读程序写出结果。 X=1 DO WHILE X50 ?X X=X*3 ENDDO 参考结果： 1 3 9 27 例6.9：计算1+2+…+100 s=0 i=1 Do while i=100 s=s+i i=i+1 Enddo ?s 注意：S=S+i，i=i+1 在这里等号是赋值的作用， 先计算等式右边的表达式，然后把结果赋给等号左边的变量。 练习计算100以内的奇数和。 练习计算100以内的偶数和。 练习1：读程序写结果： Y=0 Do while y=40 Y=y+1 If y/7=int(y/7) ?y Endif enddo Int为取整函数，对括号中的表达式取出整数部分。 练习2：读程序写结果： T=“abcdefg” I=1 Do while i6 ?substr(t,6-i,1)