VFP顺序结构与分支结构程序设计.docVIP

[课题]：[目的要求]：了解掌握[重点]：。 [难点]：。 [学时]：2学时 [教学过程及内容]： CLEAR SET TALK OFF USE RS ACCEPT 请输入要修改记录的教师名： to xm LOCATE FOR 姓名=xm REPL 职称 WITH 教授 USE SET TALK ON RETURN 是按其语句的排列先后顺序执行的 二、分支结构 概念：选择分支结构是根据条件的测试结果执行不同的操作。VFP中有两条命令实现条件分支：二路选择分支结构（IF…ENDIF）和多路选择分支结构（DO CASE … ENDASE）。 一 IF…ENDIF结构 1、结构：IF 条件表达式 语句系列1 [ELSE 语句系列 2] ENDIF 2、功能：当条件表达式 的值为真时，执行 语句系列1；否则执行 语句系列 2。如果没有ELSE的子句，则当条件表达式 的值为假时，不进行任何操作。 注：IF和ENDIF必须配对使用。 3、流程（板书略） 4、例：从键盘输入一个正整数，判断其是奇数，还是偶数 SET TALK OFF clear INPUT 请输入一个正整数: TO X IF INT(X/2)=X/2 ?X,为偶数! ELSE ?X,为奇数! ENDIF SET TALK ON 5、练习：从键盘输入一个正整数，若该数能被3或7整除，则输出该数的平方 6、IF 嵌套 解释：一个IF语句中包含另一个IF语名 例：从键盘输入一个成绩，若在85~100之间,则输出“优”，若在70~85之间，则为“良”，若在60~75，则为“及格”，在60以下，则为“不及格”，否则输出“非法成绩” SET TALK OFF CLEAR INPUT “请输入你的成绩” TO N IF N100 OR N0 ?”非法成绩!” RETURN endif IF N=85 ?”优” ELSE IF N=70 ?”良“ ELSE IF N=60 ?”及格” else ?”不及格” ENDIF ENDIF ENDIF SET TALK ON RETURN 7、练习：解分段函数 x2+7 x0 y= x+7 x=0 x2-7 x0 二 DO CASE … ENDASE结构 1、结构：见教材P42。 DO CASE CASE 条件表达式1 语句系列1 [CASE 条件表达式2 语句系列2 …… CASE 条件表达式N 语句系列N] [OTHERWISE 语句系列N+1] ENDCASE 2、功能：依次判断条件表达式的值，当值为真时执行对应的语句系列，执行后转到ENDCASE的下一条语句；当所有条件表达式 的值都为假时，则执行OTHERWISE下面的语句系列1。 注：DO CASE和ENDCASE必须配对使用,case 的条件表达式的值必须为逻辑值。 3、流程：板书略 4、例：同例对成绩作出评语 SET TALK OFF CLEAR INPUT “请输入你的成绩：” to n If n100 or n0 ?”非法成绩！” endif do case case n=85 ?”优” case n=70 ?”良” case n=60 ?”及格” otherwise ?”不及格” endcase set talk on return [小结] 1、IF…ENDIF、DO CASE … ENDASE的结构、功能 2、流程 [作业] 1、从键盘输入一半径，然后求圆的周长、面积与球的体积 2、解ax2+bx+c=0的根，a、b、c的值从键盘输入 clear ?一元二次方程：a*x^2+b*x+c input a= to a input b= to b input c= to c d=b*b-4*a*c do case case d0 ?无实根 case d=0 ?x1=x2=,-b/(2*a) case d0 ?x1=,(b+sqrt(d))/(-2*a) ?x2=,(b-sqrt(d))/(-2*a) endcase 3、现某商店按顾客购物的多少分别给予不同的优惠如下：250元以下的，没有 折扣；250～500之间的，优惠5%；500～1000之间的，优惠7.5%；1000～2000之间的，优惠10%，2000及2000以上的，优惠15%。请从键盘输入你的购物款，然后输出实际金额。