第五章程序设计基础_1.pptVIP

第 五 章 程序设计基础;5.1 面向过程和面向对象;5.2 结构化程序设计基础;5.2.2 程序的三种基本结构;5.2.3　顺序结构;5.2.3.1辅助命令;5.2.3.1辅助命令;5.2.3.1辅助命令;5.2.3.1辅助命令;5.2.3.2基本的输入、输出命令; 输 入 命 令;输 入 命 令;输 入 命 令;;;Set talk off CLEAR CLOSE ALL SELE 1 USE XSDA Index on 学号 tag XUEHAO SELE 2 USE XSXK SELE 3 USE PKQK Index on 课程代号 tag KCDHAO SELE 2 SET RELATION TO 学号 INTO XSDA SET RELATION TO 课程代号 INTO PKQK ADDI LIST 学号,A.姓名,课程代号,C.课程名,C.任课教师, C.地点,C.时间 SET TALK ON CLOSE ALL;［举例］某商店各班组每天的销售额已统计在XSE.DBF数据表中，该数据表有：月份（Ｃ型）、日期（Ｃ型）、班组（Ｃ型）和销售额（Ｎ型）等字段。统计：每月全商店的销售总额；每月各班组的销售额；全年全商店的销售总额；全年各班组的销售额。 ;USE XSE.DBF INDEX ON 月份 tag YF INDEX ON 月份+班组 tag YFBz INDEX ON 班组 tag BZ set order to yf TOTAL ON 月份 TO YZXSE.DBF 每月全商店销售额 set order to yfbz TOTAL ON 月份+班组 TO YBZXSE.DBF 每月各班组销售额 set order to bz TOTAL ON 班组 TO NBZXSE.DBF 全年各班组销售额 TOTAL ON .NOT.EOF( ) TO ZXSE.DBF 年商店销售额 USE ;5.2.4 分支结构程序设计;简单分支图示;;分支结构举例;CLEAR ? 计算三角形面积，请输入三角形的三个边长 ： INPUT A = TO A INPUT B = TO B INPUT C = TO C IF A+BC .AND. B+CA .AND. C+AB W=(A+B+C)/2 S=SQRT(W*(W-A)*(W-B)*(W-C)) IF A**2+B**2=C**2 .OR. B**2+C**2=A**2 .OR. C**2+A**2=B**2 ? 构成直角三角形 . ENDIF ? 三角形面积 = ,S ELSE ? 输入的三个边长不能构成三角形 ！ ENDIF ;分支结构举例;SET TALK OFF CLEAR ? 对三个数排序，请输入三个数： INPUT A = TO A INPUT B = TO B INPUT C = TO C IF AB M=A N=B ELSE M=B N=A ENDIF IF CM ? C,M,N ELSE IF CN ? M,N,C ELSE ? M,C,N ENDIF ENDIF SET TALK ON ;分支结构程序设计;IIF( )判断选择函数举例;IIF(X0, X , IIF(X1 ,2*X ,IIF(X2 , X^2 , SQRT(X))));３．多重分支条件语句;DO CASE 语句说明;DO CASE 语句举例;DO CASE 语句举例;DO CASE 语句举例;DO CASE 语句举例;DO CASE 语句举例