第4章结构化程序设计

32
2．多分支选择结构
格式： DO CASE CASE <条件表达式1> <语句序列1> [CASE <条件表达式2> <语句序列2> ... CASE <条件表达式n> <语句序列n>] [OTHERWISE <语句序列n+1>] ENDCASE
35
4.2.2
选择结构
功能：依次判断<条件表达式I>（I=1、2、3n） 的逻辑值，当值为真（.T.）时，控制执行对应的< 语句序列I>（I=1、2、3n）。OTHERWISE 表 示当所有的<条件表达式I>（I=1、2、3n）的值 都为假（.F.）时，则执行<语句序列n+1>。 说明：CASE条件语句的多少根据问题而定。当只 有一条CASE条件语句行时，DO CASE控制结构实 现的功能与IF控制结构相同。 注意：如果有多个条件表达式的值为真，也只执行 第一个满足条件的<语句序列>。
5
4.1
程序文件设计
4.1.1 结构化程序设计基础
4.1与执行
6
结构化程序设计基本特点
一个结构化程序应该具有如下主要特点：只有一 个入口；只有一个出口；没有死语句（永远执行 不到的语句）；没有死循环（无限制的循环）。 程序的质量标准是“清晰第一，效率第二”。
1966年，博姆（Bohm）和雅可比尼（Jacopini） 二位学者提出了只用三种基本的结构就能实现任 何单入口单出口的结构，这三种基本的结构就是 “顺序结构”、“选择结构”、“循环结构”。
7
算法表示
常用的流程图符号
8
【例4.1】下面的命令集合就是Visual FoxPro的一个 程序：程序的功能是为指定职工的基本工资增加20 0元
循环结构
1．DO WHILE…ENDDO 格式：
DO WHILE <条件表达式> <语句序列> [EXIT] [LOOP] <语句序列> &&执行ENDDO的下一条语句 &&执行DO WHILE语句
ENDDO
功能：当<条件表达式>的值为.T.时，重复执行DO ... ENDD O之间的<语句序列> ，直到<条件表达式>的值为.F.时，结 束循环操作。
4.2.1 顺序结构
4.2.2 选择结构
4.2.3 循环结构
4.2.4 多种结构的嵌套
21
4.2.1 顺序结构
顺序结构如下图所示，按照语句序列1、语句序 列2…自上而下逐条顺序执行。顺序结构是最简 单也是最基本的结构。
22
例：求“职工”表中指定部门（如直销、零售）全体职工的基本 工资总额。
*****CH4_2'.PRG ***** NOTE 求指部门基本工资总额 SET TALK OFF CLEAR USE 职工 ACCEPT "请输入指定部门：" TO BM SUM 基本工资 TO JBGZ FOR 部门=BM ?BM+"部全体职工的基本工资为："+STR(JBGZ,8,2) USE SET TALK ON
49
4.2.3
循环结构 (已知循环次数)
开始
设置环境 置循环变量初值 >终值 N 执行循环体 修改循环变量 Y
【例4.10】求1+2+3+…+10的和 分析：
设变量：I，S 使I在1～10之间变化 S的初值为0，且使S=S+I
输出结果
结束
50
4.2.3
循环结构(已知循环次数)
程序代码如下： *****CH4-10.PRG ***** SET TALK OFF CLEAR S=0 &&设置用于存放累加和的初值 I=1 &&设循环控制变量I的初值 DO WHILE I<=10 &&循环条件为：I<=10 S=S+I &&实现累加，将I的值加上原来的S再赋值给S I=I+1 &&循环变量I加步长1 ENDDO ?"1+2+3+…+10=",S &&输出结果 SET TALK ON 如果I不是到10,而是N呢?
4．常用环境设置语句 SET CENTURY ON/OFF SET DATE TO USA/JAPAN…. SET MARK TO SET DEFAULT TO 默认路径 SET DELETED ON(有效)/OFF SET ESCAPE ON (有效)/OFF SET EXACT ON (有效)/OFF SET EXCLUSIVE ON (有效)/OFF SET FILTER TO <条件> SET SAFETY ON (有效)/OFF SET TALK ON (有效)/OFF SET CONSOLE ON/OFF (该命令在程序中起作用)
数据库应用基础
第4章
结构化程序设计
重点：控制结构 、程序实例
天津科技大学 经济与管理学院 信息管理教研室
学习提要与目标
理解结构化程序设计的概念 熟练掌握程序控制的基本结构 掌握控制结构嵌套 掌握过程与自定义函数
3
4.1
程序文件设计
程序文件是为了解决实际问题而编写的命 令集合。这些命令集合以一定的结构有序 地编排在一起，并以文件的形式存储在磁 盘上，这种文件称为命令文件或程序文件。 在Visual FoxPro中命令文件的扩展名为.P RG（执行时自动编译为目标文件，扩展名 为.FXP）。
SET TALK OFF 改进例4-5 CLEAR DO WHILE .T. INPUT "请输入一个数值型数据：" TO A IF INT(A/2)=A/2 ?A," 是偶数!" ELSE ?A," 是奇数!" ENDIF WAIT "继续吗？（Y/N）" TO YN IF UPPER(YN)<>'Y' IF UPPER(YN)="Y" EXIT LOOP ENDIF ELSE ENDDO EXIT SET TALK ON ENDIF
24
课堂练习：
销售表按职工号对数量分类求和并输出结果。
25
4.2.2
选择结构
1．二路分支选择结构
格式：IF <条件表达式> [THEN]
<语句序列1>
[ELSE <语句序列2>] ENDIF 必须成对出现！
28
程序代码如下： *****CH4-5.PRG ***** SET TALK OFF CLEAR INPUT "请输入一个自然数：" TO A IF INT(A/2)=A/2 &&A%2=0或MOD(A,2)=0 ?A,"是偶数!" ELSE ?A,"是奇数!" ENDIF SET TALK ON
51
【例4.10】求1+2+3+…+10 的和 分析：倒计数 设变量：I，S 使I在10～1之间变化 S的初值为10，且使S=S+I
SET TALK OFF CLEAR S=0 I=10 S=S+I I=I-1 &&累加和的初值 &&设循环变量I的初值 &&实现累加 &&修改循环变量
42
4.2.3
循环结构
在处理实际问题时，常常需要重复某些相同 的操作，即对某一行或多行语句重复执行多次， 解决此类问题，就要用到循环结构，其控制结构 如下图所示。在Visual FoxPro中有三种循环语句：
DO WHILE…ENDDO。
FOR…ENDFOR。 SCAN…ENDSCAN。
43
4.2.3
13
（2）字符串接收语句
格式：ACCEPT [<字符表达式>] TO <内存变量> 功能：等待用户从键盘输入数据并赋给指定的<内 存变量>。 说明：从键盘输入的数据只能是字符型常量，输入 的汉字不需用定界符。 例如： ACCEPT “请输入职工姓名:" TO ZGXM ?ZGXM
14
4.2
程序控制的基本结构
38
4.2.2
选择结构
【例4.8】在例4.3的基础上，根据职工的总销售金额给出5 档业绩评价：优（≥6000），良（≥4000），中（≥20 00），合格（≥1000），不合格（<1000）。 分析：输入的职工有可能存在，也可能不存在，因此要加以 判断。我们已经在例4.3中对销售金额的计算作过分析， 根据销售金额的不同，运用多路分支结构，可以做出销售 业绩的评价。程序流程如图4-13所示。
USE 职工 ACCEPT "请输入职工号:" TO ZGH IF !EOF() REPLACE 基本工资 WITH 基本工资+200 ?"没有找到!" LOCATE FOR 职工号= ZGH ?职工号,姓名, 基本工资 USE
9
*****CH4-1.PRG ***** NOTE 修改并显示指定职工的基本工资 SET TALK OFF CLEAR USE 职工 ACCEPT "请输入职工号:" TO ZGH LOCATE FOR 职工号= ZGH IF !EOF() REPLACE 基本工资 WITH 基本工资+200 ?职工号,姓名, 基本工资 ELSE ?"没有找到!" ENDIF USE SET TALK ON
10
程序设计的基本命令
1．程序注释语句