优·计算机第4章课件.pptVIP

【例4.2】 编一个程序，将华氏温度F=68度变换成摄氏温度C，并将结果显示出来 计算公式为：C=5×(F-32)÷9 程序如下： SET TALK OFF F=68 C=5*(F-32)/9 ? 摄氏：+STR(C, 4)+度+， +华氏：+STR(F, 4)+度 CANCEL 运行结果： 摄氏：20度， 华氏：68度 【例4.4】 显示zggl.DBF中有无工资低于650元的记录 程序如下： USE zggl LOCATE FOR 工资650.00 IF .NOT.EOF( ) DISPLAY ENDIF 【例4.6】 铁路托运行李，假设每张车票可按每公斤0.5元托运50公斤以内的行李，如果超过50公斤时，超过的部分每公斤加价0.3元 计算公式如下： X=0.5×W 当X≤50公斤 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)+元 CANCEL 语句功能： 从头依次查看每一个CASE的条件表达式，只要某一个条件表达式的值为真，就执行该条件下的语句组 其他条件下的语句组都跳过去，接下来执行ENDCASE后面的语句 OTHERWISE是一个可选项，若所有的条件都不成立，则执行OTHERWISE后面的语句 如果没有可选项OTHERWISE，则所有的条件都不成立，接着执行ENDCASE后面的语句 说明： 如有两个或两个以上的条件为真，则只执行第一个条件表达式值为真的CASE后的语句组，执行完后，即转去执行ENDCASE之后的语句，而不会再去判断下一个CASE中的条件 DO CASE中的CASE〈条件表达式〉个数不限 每个CASE〈条件表达式〉之间是独立的 DO CASE和CASE〈条件表达式1〉之间不允许出现任何语句 DO CASE和ENDCASE必须成对出现 [例 4-9-2] 编辑学生信息表xsb1.DBF中的学生基本信息。 SET TALK OFF USE xsb1 SCAN CLEAR @ 5,10 SAY 学号： GET 学号 @ 7,10 SAY 姓名： GET 姓名 @ 8,10 SAY 性别： GET 性别 @10，10 SAY 出生日期： GET 出生日期 @12,10 SAY 专业： GET 专业 @14,10 SAY 入学成绩： GET 入学成绩 @16,10 SAY 党员否： GET 党员否 @18,10 SAY 简历 GET 简历 READ ENDSCAN USE SET TALK ON * 4_9_2.prg SET TALK OFF USE xsb1 do while .not.eof() CLEAR @ 5,10 SAY 学号： GET 学号 @ 7,10 SAY 姓名： GET 姓名 @ 8,10 SAY 性别： GET 性别 @10,10 SAY 出生日期： GET 出生日期 @12,10 SAY 专业： GET 专业 @14,10 SAY 入学成绩： GET 入学成绩 @16,10 SAY 党员否： GET 党员否 @18,10 SAY 简历 GET 简历 READ skip ENDDO USE SET TALK ON 输入输出格式命令 “@ …SAY…GET” 语法：@ 行号 ，列号 SAY exp GET 内存变量 | 字段名 说明： （1）在当前窗口中指定的位置处显示并可接受数据。 （2）@SAY…GET与READ的命令配合使用。 如果在一个循环程序的循环体内又包含着另一些循环, 就构成多重循环, 或称循环嵌套。循环嵌套的层次不限, 但内层循环必须完全嵌套在外层循环之中。用多重循环处理复杂问题, 逻辑性强, 结构简单。 右边给出循环嵌套的一般结构示意图: 二、多重循环 (循环嵌套) DO WHILE 条件表达式 语句行序列 DO WHILE 条件表达式 语句行序列 DO WHILE 条件表达式 语句行序列 … ENDDO 语句行序列 ENDDO 语句行序列 ENDDO 下面的循环嵌套是正确的 注意：循环不能交叉！ 注