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*