《面向过程程序设计》由会员分享，可在线阅读，更多相关《面向过程程序设计（60页珍藏版）》请在金锄头文库上搜索。
1、第6章 面向过程程序设计,6.1 应用程序基本操作,6.2 应用程序中的常用命令,6.4 分支结构程序设计,6.3 顺序结构程序设计,6.5 循环结构程序设计,退出,6.6 过程结构程序设计,6.7 数组变量的应用,6.8 结构化程序设计举例,6.1 应用程序基本操作,6.1.3 应用程序的修改,退出,6.1.2 应用程序的运行,6.1.1 应用程序的建立,1）应用程序：为完成某项任务所需执行的命令序列，这些命令按照一定的结构有机地组合在一起，并以文件的形式存储在磁盘上，又称为命令文件。 2）应用程序的组成：前言：注释语句设置区：设置程序的运行环境，多由SET命令实现程序体：所有命令序列，一般
2、包括数据的输入输出、数据的处理以及结果输出等命令整理部分：如关闭各种文件程序的退出：设置有关命令关闭文件返回到命令窗口状态或操作系统状态,6.1.1 应用程序的建立,（1）菜单方式 （2）命令方式：MODIFY COMMAND 说明：为主文件名，其扩展名的默认值为.PRG示例：建立名为L1.PRG的应用程序，使其能够打开表文件“VFP 学生表.DBF”，根据键入的学生姓名在该表文件中查找并输出该学生的基本情况，然后关闭该文件。 命令窗口：MODI COMM VFPL1.PRG 编辑窗口：*L1.PRGSET TALK OFFUSE VFPZGDA.DBFACCEPT “请输入学生姓名：” TO
3、 XMLOCATE姓名=XM?学号,姓名,性别,班级USESET TALK OFFRETURN,6.1.2 应用程序的运行,1. 菜单方式 2. 命令方式：DO 应用程序名 WITH 说明：1）在程序运行过程中执行到下述命令时将会中断运行而退出，它们退出后返回的系统状态分别是： CANCEL：命令窗口状态。 QUIT：操作系统状态。 RETURN：调用点或命令窗口状态。 2）在程序运行过程中，若按下ESC键可使运行强行中断。这时系统显示警告，并给用户三种选择： 取消：中断程序的运行。此为缺省选项。 继续执行：忽略ESC的中断作用，继续程序的执行。 挂起：暂时中断程序的运行，返回命令窗口。当再次
4、运行时可以从中断处继续运行。,6.1.3 应用程序的修改,1）菜单方式 2）命令方式： MODIFY COMMAND ,6.2 应用程序中的常用命令,退出,6.2.2 常用辅助命令,6.2.1 交互输入命令,6.2.1 交互输入命令,1. 键入字符串命令,格式：ACCEPT TO 说明：1）暂停程序的运行，等待用户键入字符型常量以赋给指定的内存变量。 2）是显示在屏幕上的、用于提示说明的字符型表达式。 3）如果不键入任何字符而只按回车键，则赋给内存变量的值将是一个空字符串。 示例：编写可以打开任一数据表文件的通用命令。 ACCEPT “请输入要打开的表文件名：” TO BM USE &BM,2
5、. 输入单字符命令,格式：WAIT TO 功能：暂停程序的运行，等待用户键入单个字符后再恢复程序运行。 说明：1）为可选项，其格式、功能与要求同ACCEPT命令。如果命令中无此选项，则系统默认的提示信息是：PRESS ANY KEY TO CONTINUE 2）TO 也为可选项，选用时，则键入的单个字符均作为字符型数据赋给内存变量。如果只是按下回车键，则只将一个空字符存入内存变量。 示例：试编写一个VFP程序，能够根据键入的系别代号（单字符）在不同系的档案表文件中查找某一职工的情况。 *L2.PRG,SET TALK OFF CLEAR WAIT “请输入系的代号：” TO DH XH=“DH
6、”+DH USE &XH ACCEPT “请输入职工姓名：” TO XM LOCATE FOR 姓名=XM ?“职工姓名：”+姓名 ?“性别：”+性别 ?“年龄：”+STR(年龄,2) WAIT ?“职称：”+职称 ?“任教课程：”+任教课程 ?“教研室：”+教研室 WAIT SET TALK ON RETURN,2. 输入单字符命令,3. 键入表达式命令,格式：INPUT TO 功能：暂停程序运行，等待键入表达式并将其值赋给指定的内存变量，待按回车键后，继续运行程序。 说明： 1）为可选项，其格式、功能与要求同ACCEPT命令。 2）命令中的的类型决定于键入数据的类型，但不得为M型数据。 3
7、）若键入的是表达式，本命令将先计算出表达式的值，然后把其结果赋给。 4）若键入字符型常量或逻辑型常量时应带有定界符。 5）在响应该命令时，若键入了无效表达式或只按下回车键，系统将会给出“句法错”的提示信息。 示例：试运行下述交互输入命令。 INPUT “请输入学生姓名：” TO XM INPUT “请输入其班级：” TO BJ INPUT “该人性别为：” TO XB,6.2.2 常用辅助命令,格式I：NOTE 格式II：* 格式III：)，系统默认下一行内容仍为注释内容。 示例1：NOTE 打开学生表USE 学生表.DBF 示例2：SET CONSOLE OFF &取消窗口的输出显示,1.
8、注释命令,SET TALK ON/off 设置是否在主窗口的状态栏中 显示所有命令的执行结果。SET CONSOLE ON/off 设置是否把输出信息在窗口上 显示。SET PRINTER on/OFF 设置是否在打印机上输出信息。SET SAFETY ON/off 设置在改写文件时，VFP是否 显示对话框以确认改写有效。SET HEADING ON/off 设置在执行LIST、DISPLAY等 命令时是否显示字段名。SET STATUS ON/off 设置是否显示状态行。SET DEFAULT TO盘符 指定默认的驱动器。SET DEVICE TO SCREEN 把输出信息发送到VFP的窗口
9、/PRINTER 屏幕或打印机。,2. 环境设置命令,格式I：CLEAR 说明：清除当前屏幕上的所有信息 格式II：CLEAR ALL 说明：关闭所有文件，清除所有内存变量 格式III：CLEAR TYPEAHEAD 说明：清除键盘缓冲区,3. 清除命令,4. 关闭文件命令,格式I：CLOSE ALL 说明：关闭所有的数据库、表以及索引文件 格式II：CLOSE 说明：文件类型DATABASE 数据库文件、索引文件、格式文件INDEX 当前工作区的索引文件FORMAT 当前工作区的格式文件PROCEDURE 当前工作区的过程文件,5. 运行中断和结束命令,格式I：QUIT 说明：退出VFP，返
10、回到操作系统状态 格式II：CANCEL 说明：结束本次程序的运行，返回到命令窗口状态 格式III：RETURN TO MASTER 说明：返回到调用点处。,6. 文本显示命令,格式：TEXTENDTEXT 说明：将文本内容原样输出，需要SET TEXTMERGE ON (允许嵌入表达式和函数),7. 定位输出命令,格式： SAY 说明：在指定的行、列处输出数据，SET DEVICE TO SCREEN,6.3 顺序结构程序设计,1）程序设计的过程：分析问题、确定任务、划分模块、建立模型、组织数据、描述操作步骤、编写程序、上机调试、分析运行结果、写出程序说明书。 2）流程图：就是运用一些特定的
11、图形符号和必要的文字来描述解题步骤的图示。 3）三种基本程序结构流程图：,顺序结构,分支结构,循环结构,6.3 顺序结构程序设计,4）顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。 5）示例1：试在表文件中查看某学生的有关情况。*L3.PRGSET TALK OFFCLEARUSE 学生表.DBFLOCATE FOR 姓名=“林冲”DISPLAYUSESET TALK ON 示例2：编程，根据输入的半径值，计算出相应的圆的周长。SET TALK OFFCLEARINPUT “请输入圆的半径：” TO RL=2*3.1416*R10,10 SAY “圆的
12、周长是：”+STR(L,6,3)SET TALK ON,6.4 分支结构程序设计,退出,6.4.2 多分支结构,6.4.1 两分支结构,6.4.1 两分支结构,1）简单分支的格式：IF ENDIF 注意：IF和ENDIF必须成对出现,分支结构：就是按照一定的条件由判断语句或选择语句构成的双重或多重走向的程序,1. 简单分支,例：在“学生表”中查看“李清照”的基本情况。SET TALK OFFCLEARUSE 学生表LOCATE FOR 姓名=”李清照”,IF FOUND()DISP ENDIFUSESET TALK ON,2. 选择分支,格式：IF ELSEENDIF,例1：求解一元二次方程A
13、X2+BX+C=0，系数A，B，C的值由用户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！”SET TALK OFFCLEARINPUT “A=” TO AINPUT “B=” TO BINPUT “C=” TO CD=B*B-4*A*CIF D=0X1=(-B+SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A)?“方程的两根是：”+STR(X1,2)+SPACE(4)+STR(X2,2)ELSE?”方程无实根！”ENDIFSET TALK ONRETURN,例2：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成
14、绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、课程号并通知其补考。 *L6.PRG SET TALK OFF USE 分数.DBF CLEAR LOCATE FOR 学号=“99020203” IF 成绩=60?“学号：”+学号?“课程号：”+课程号?“成绩：”+STR(成绩,6,2) ELSE ?“学号为”+学号+“的学生应参加补考的课程号为：”+课程号 ENDIF USE SET TALK ON,3. 判断语句嵌套,IF语句多重嵌套示意结构如下：IF ELSE IFELSE IF ELSEENDIF3ENDIF2ENDIF1,注意：（1）IF、ELSE(可不选)、ENDIF一一
15、 对应、互相匹配（2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉（3）最好采用缩格（缩进）的书写方式,例：根据键入X的值，计算下面分段函数的值，并显示结果。,程序如下： SET TALK OFF CLEAR INPUT “X=” TO X IF X0IF X10Y=X*X+1ELSEY=3*X*X-2*X+1ENDIF ELSEY=X*X+4*X-1 ENDIF ?”分段函数值为：”+STR(Y,10,2) SET TALK ON RETURN,6.4.2 多分支结构,格式： DO CASE CASE CASE OTHERWISEENDCASE注释内容,例：用DO
16、CASE语句修改上面计算分段函数的例子。 SET TALK OFF CLEAR INPUT “X=” TO X DO CASECASE X0.AND.X10Y=X*X+1 ENDCASE ?”分段函数值为：”+STR(Y,10,2) SET TALK ON RETURN,6.5 循环结构程序设计,退出,6.5.2 固定次数的循环结构,6.5.1 当型循环结构,6.5.4 多重循环结构,6.5.3 表扫描循环结构,6.5.1 当型循环结构,循环结构程序：按照一定条件重复进行某种特定操作的程序称为循环结构程序。,格式：DO WHILE LOOPEXITENDDO 说明： 结构组成：循环起始语句、循环体、循环终端语句 注意：在循环体内要设置修改循环条件的语句，避免死循环。,
