第6章节程序设计内容资料.pptVIP

6.9 顺序结构程序设计 一、顺序结构:根据程序中语句的书写顺序依次逐条执行。流程图如下： 例6.1查找某个学生信息(lz1) Open database 教学管理 Use 学生 Accept “请输入学生姓名:” to name Locate for 姓名=name Display Use return 分类： 简单分支语句(IF－ENDIF) 选择分支语句(IF－ELSE－ENDIF) 结构分支（do case-endcase 1．简单分支语句（Lz1） 格式：IF 条件表达式 语句块 ENDIF 功能：计算条件表达式的值，若为真（.T.），则执行语句块中的语句；若为假（.F.），不执行语句块。无论执行还是不执行，程序都将转向ENDIF下一条语句继续执行。 说明： （1） IF 和 ENDIF必须配对出现，且分两行书写。 （2） 条件表达式可以是关系表达式或逻辑表达式。 例6.2 Open database 教学管理(lz2) Use 学生 Accept “请输入学生姓名:” to name Locate for 姓名=name If found() Display Endif ?“结束” Use return 例6.3 Use zgda(lz3) Locate for 基本工资650.00 If .not. Eof() display Endif 2．选择分支语句 格式：IF 条件表达式 语句块A ELSE 语句块B ENDIF 功能：条件成立，执行语句块A；条件不成立，执行语句块B。然后程序转向ENDIF下一条语句继续执行。 说明： （1） 无论条件是否成立，在语句块A和B之间必执行一个，且只能执行一个。 （2） 该语句可以解决一入口，二分支问题 例6.37铁路托运行李，假设每张车票可按每公斤0.5元托运50公斤以内的行李，如果超过50公斤时，超过的部分每公斤加价0.8元。计算公式和程序如下：p143 X=0.5×W 当W≤50公斤 X=0.5×50+0.8×(w-50) 当W50公斤 Set talk off Input “请输入行李的重量为：” to w If w=50 x=0.5*w Else x=0.5*50+0.8*(w-50) Endif ?”行李的重量为：”+str(w,6,2)+”公斤，其运费为：”+str(x,6,2)+”元” 例6.5 在学生信息.DBF中查找某人，若找到，显示该记录；若找不到，显示“查无此人!”。（lz6) * PROG7.PRG SET TALK OFF USE 学生 ACCEPT 输入待查找人的姓名: TO NAME LOCATE FOR 姓名=NAME IF FOUND() DISP ELSE ? 查无此人! ENDIF USE SET TALK ON CANCEL 有学生成绩表：现要统计60分以下有多少人，60到69分的有多少人，70-89分的有多少人，90分以上的有多少人。 3． IF语句的嵌套 IF-ELSE-ENDIF语句中的语句块里可以包含任何合法的语句，也可以包含另一条IF语句，这就构成了IF语句的嵌套。嵌套IF语句可以解决一入口，三分支甚至更多分支的问题。嵌套形式可以是多种多样的，以下是其中的一种： IF 条件表达式1 语句块1 ELSE IF 条件表达式2 语句块2 ELSE 语句块3 ENDIF ENDIF If 大学英语=90 a=a+1 Else If 大学英语=70 b=b+1 else If 大学英语=60 c=c+1 else d=d+1 endif Endif endif If 大学英语60 d=d+1 Else If 大学英语70 c=c+1 else If 大学英语90 b=b+1 else a=a+1 endif Endif endif 4．结构分支语句 格式： DO CASE CASE 条件表达式1