实验4 程序设计(4学时).docVIP

PAGE PAGE 1 实验4 程序设计(4学时) 目的与要求 掌握VFP程序设计特点，程序文件的建立、修改和运行方法； 掌握环境设置语句的含义和基本输入输出命令的使用； 掌握VFP的顺序、选择和循环结构的设计方法； 掌握程序设计过程中参数传值和传引用的传递规则； 掌握子程序、过程和自定义函数的建立，以及调用与返回规则； 掌握内存变量的作用域属性及对参数传递的影响。 实验内容 一、实验准备 参照HYPERLINK TO 姓名 SEEK M - 姓名 DISPLAY 三、选择结构程序设计 参照HYPERLINK 顺序程序设计题3程序基础上改写)。 用多路选择分支结构将从键盘输入的阿拉伯数字(0, 1, 2, …, 9)转换为中文大写数字(〇、一、二、…、九)。 已知符号函数的定义如下，后面的程序用于计算符号函数的值，请在(1)、(2)处填入恰当的语句。 -1 a 0 b = 0 a = 1 a SET TALK OFF (1) 输入数据到内存变量a DO CASE CASE a 0 b = 1 CASE a = 0 b = 0 (2) 此处不允许写CASE a 0 b = -1 ENDCASE ? b SET TALK ON 四、循环结构程序设计 参照HYPERLINK s = , s CLEAR a = 0 b = 0 DO WHILE a 100 a = a + 1 IF INT( a / 2 ) = a / 2 LOOP ELSE b = b + a ENDIF ENDDO ? b = , b 五、过程式程序设计 参照HYPERLINK TO r s = 3.14 * r * r ? 圆的面积是： + ALLTRIM( STR( s, 19, 2 ) ) SET TALK ON 例2：在学生表中，根据从键盘上输入的学生姓名，显示该学生的基本情况。 解题思路： 程序首先要打开“student表”文件，然后用输入语句输入学生姓名，接着将记录指针定位在该学生，显示该学生信息，最后关闭表文件。 示例程序： SET TALK OFF CLEAR USE student ACCEPT 请输入学生姓名： TO stuname LOCATE FOR 姓名 = stuname 没有考虑查找失败 DISPLAY USE SET TALK ON 例3：编写程序，按照用户输入的表文件名与表中的记录号显示记录内容。 解题思路： 首先从键盘输入表文件名，然后打开该表文件，接下来输入记录号，然后将记录指针移至该记录并显示，最后关闭该表文件。 示例程序： SET TALK OFF CLEAR ACCEPT 请输入表文件名： TO filename USE filename INPUT 请输入记录号： TO recordno GO recordno DISPLAY USE SET TALK ON 选择结构程序设计 分支选择结构是根据测试条件的结果执行不同的操作，即程序中某些命令的执行受某一条件的控制，当条件成立时，执行其中的一部分命令，不成立时执行另外一部分的命令，即根据条件决定做什么操作。 VFP中实现条件分支有两种格式： 二路分支选择结构(IF…ENDIF) 和多路选择分支结构(DO CASE…ENDCASE)，其中IF…ENDIF语句又可以分成带ELSE与不带ELSE两种格式。 例1：已知一元一次方程ax + b = 0，输入a、b值后，求解x值。 解题思路： 该方程只有当a不等于零时，方程才有解x = –b / a，而当a = 0时就不用求解。 示例程序： SET TALK OFF CLEAR INPUT a = TO a INPUT b = TO b IF a 0 ? x = , -b / a ENDIF SET TALK ON 例2：从键盘输入学生的学号，在“score表”中计算该学生的平均成绩，并判断平均成绩是否大于60分，分别显示“平均分及格”和“平均分不及格”信息，如果该学生的学号不在表中，则提示相应的信息。 解题思路： 从键盘输入的学号在“score表”中确实存在时，才能统计平均成绩，输入的学号一旦在“成绩表”中找不到，程序运行之后会因为找不到满足条件的记录而出错，因此必须检测输入输入的学号是否存在。 程序框架如下： 打开相应的数据表文件； 输入学号； 查找该学号是否存在(可以使用顺序查找或索引查找)； 如果输入的学号在“成绩表”中存在，则进行步骤5，否则显示信息说明该学号不存在，进行步骤6； 计算该学号学生的平均成绩，并判断平均成绩是否大于等于60分，如果是则显示“平均分及格”信息，否则显示