Visual FoxPro 应用基础电子教案 - 顺序结构与分支结构程序设计20

[课题]：顺序结构与分支结构程序设计

[目的要求]：了解顺序结构、分支结构的概念，理解分支语句的格式、作用及流程，掌握顺序结构、分支结构的程序设计，领会分支结构在程序的作用。 [重点]：分支语句的格式、作用与流程；分支结构程序的编写。 [难点]：流程与程序的编写。 [学时]：2学时 [教学过程及内容]：

导入：

面向过程程序设计包括三种基本控制结构：顺序结构、分支结构、循环结构。今天我们来了解有关顺序结构、分支结构的有关内容

一、顺序结构

概念：程序的执行是按其语句排列的先后顺序进行执行的程序。 例：CLEAR

SET TALK OFF USE RS

ACCEPT \请输入要修改记录的教师名：\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 \请输入一个正整数:\IF INT(X/2)=X/2

?X,\为偶数!\?X,\为奇数!\ELSE 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 N>100 OR N<0

?”非法成绩!” RETURN endif IF N>=85

?”优” IF N>=70 ENDIF SET TALK ON RETURN

7、练习：解分段函数 x+7 x<0 y= x+7 x=0 x-7 x>0

22

ELSE

?”良“ IF N>=60

?”及格” ?”不及格” else ENDIF

ELSE

ENDIF

<二> DO CASE … ENDASE结构 1、结构：见教材P42。 DO CASE

CASE <条件表达式1>

<语句系列1> <语句系列2> [CASE <条件表达式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 n>100 or n<0

?”非法成绩！” 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的值从键盘输入

3、现某商店按顾客购物的多少分别给予不同的优惠如下：250元以下的，没有折扣；250～500之间的，优惠5%；500～1000之间的，优惠7.5%；1000～2000之间的，优惠10%，2000及2000以上的，优惠15%。请从键盘输入你的购物款，然后输出实际金额。