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

[课题]：顺序结构与分支结构程序设计
[目的要求]：了解顺序结构、分支结构的概念，理解分支语句的格式、作用及流程，掌握顺序结构、分支结构的程序设计，领会分支结构在程序的作用。

[重点]：分支语句的格式、作用与流程；分支结构程序的编写。

[难点]：流程与程序的编写。

[学时]：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 N>100 OR N<0
?”非法成绩!”
RETURN
endif
IF N>=85
?”优”
ELSE
IF N>=70
?”良“
ELSE
IF N>=60
?”及格”
else
?”不及格”
ENDIF
ENDIF
ENDIF
SET TALK ON
RETURN
7、练习：解分段函数
x2+7 x<0
y= x+7 x=0
x2-7 x>0
<二> 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 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的值从键盘输入
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 d<0
?"无实根"
case d=0
?"x1=x2=",-b/(2*a)
case d>0
?"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%。

请从键盘输入你的购物款，然后输出实际金额。