第4章程序设计(7年制)

1、主模块主模块子模块子模块1子模块子模块2子模块子模块3子子模模块块11子子模模块块12子子模模块块21子子模模块块22子子模模块块31子子模模块块13子子模模块块23子子模模块块24叙述框：叙述框：判断框：判断框：连接框：连接框：流程线：流程线：基基 本本 流流 程程 图图 符符 号号初始化初始化不是表末不是表末打开表打开表总成绩总成绩 360显示当前记录显示当前记录移动指针移动指针结束结束NNYY123思考：思考：1.1.实体之间的三种联系是什么实体之间的三种联系是什么? ? 2. 2.数据库管理系统采用的三种数据模型是什么数据库管理系统采用的三种数据模型是什么? ? 3. 3.关系数据库有

2、哪三种关系操作关系数据库有哪三种关系操作? ?开 始语 句语 句语 句结 束条件条件YesYes条件条件命令序列命令序列ENDIFENDIF的下的下一条命令一条命令NoNoYesYes命令序列命令序列2 2命令序列命令序列1 1ENDIFENDIF的下的下一条命令一条命令NoNo无分支结构无分支结构 分支结构分支结构2)(:)()(CBAWCWBWAWWS式中2)(:)()(CBAWCWBWAWWS式中宏替换函数宏替换函数思考思考: 如果程序中将如果程序中将 作为第一个判断条件作为第一个判断条件,执行完程序后的执行完程序后的结果是什么结果是什么?条件表达式条件表达式CommandslExpre

3、ssionYLOOPNEXIT思考思考:利用建立临时关系的方法利用建立临时关系的方法,如何修改程序如何修改程序? (多表查询多表查询.Prg)*统计按纽统计按纽CLICK事件程序代码：事件程序代码：SET TALK OFFCLOSE ALLOPEN DATA STU_7SELE 1USE XUESHENGINDEX ON 学号学号 TO XH1SELE 2USE CHENGJIINDEX ON 学号学号 TO XH2TOTAL ON 学号学号 TO ABCUSE ABCINDEX ON 学号学号 TO XH3SELE 1SET RELA TO 学号学号 INTO ABCGO TOPDO WHI

4、LE !EOF() REPL XUESHENG.平均分平均分 WITH ABC.成绩成绩/4 SKIPENDDOSORT ON 平均分平均分,学号学号 TO PINGJUN USE PINGJUNBROW题目同第三章查询题目同第三章查询*统计按纽统计按纽CLICK事件程序代码：事件程序代码：SELECT Xuesheng.学号学号, Xuesheng.姓名姓名, AVG(Chengji.成绩成绩) AS 平均分平均分; FROM stu_7!xuesheng INNER JOIN stu_7!chengji ; ON Xuesheng.学号学号 = Chengji.学号学号; GROUP BY

5、 Xuesheng.学号学号; ORDER BY 平均分平均分 , Xuesheng.学号学号; INTO TABLE pingjun.dbfSELE PINGJUNBROW题目同第三章查询题目同第三章查询循环次数循环次数=INT(=INT(终值终值- -初值初值)/)/步长步长)+1)+1Var or nFinalValueCommandsNYEXITLOOPVar = nInitialValueVar = Var nIncrement!EOF( )CommandsNYEXITLOOPSKIP思考题：如何交换任意两条记录？提示：这两条记录的记录号通过键盘输入指定。思考：1. 如何判定 3 的

6、倍数？2. 如何判定 一个数同时被 3 和 7 整除？思考思考:如何计算并输出如何计算并输出3100间有几个素数间有几个素数?aacbbx2422, 1n直到最后一项小于直到最后一项小于10-4为止为止7151311S直到最后一项的绝对值小于直到最后一项的绝对值小于10-4为止为止作业作业: 编程编程 求求1!+2!+3!+N!功能扩展功能扩展功能扩展功能扩展变量Position的作用是？434241333231232221131211434241333231232221131211434241333231232221131211ccccccccccccbbbbbbb

7、bbbbbaaaaaaaaaaaa332313322212312111434241333231232221131211342414332313322212312111*cccccccccbbbbbbbbbbbbaaaaaaaaaaaa41kkjikijbaC343332312423222114131211434241333231232221131211bbbbbbbbbbbbaaaaaaaaaaaaa(i)a(j)编号编号1#2#3#4#5#6#7#8#数据数据降序降序52793684指示器 i指示器 j52指示器 j75757指示器 j99779指示器 j3比较成立，则交换比较成立，则交换:

8、指示器 j6指示器 j8指示器 j4a(i)a(j)t123SET TALK OFFDIMENSION a(8)CLEARFOR i = 1 TO 8ii = ALLTRIM(STR(i) p = Enter + ii + th number： INPUT p TO a(i)ENDFORFOR i = 1 TO 8? a(i)ENDFORSET TALK ON按降序排序按降序排序按升序排序按升序排序SET TALK OFFDIMENSION a(8)CLEARFOR i = 1 TO 8a(i) = INT( RAND( ) * 90 ) + 10ENDFORFOR i = 1 TO 8? a

9、(i)ENDFOR?SET TALK ON按降序排序按降序排序a(i)a(i+1)编号编号1#2#3#4#5#6#7#8#数据数据降序降序52793684比较成立，则交换比较成立，则交换指示器 i第一轮比较，第一轮比较，共比，共比较较 N-1 轮。轮。52指示器 i277272指示器 i299292指示器 i233232指示器 i266262指示器 i288282指示器 i244242SET TALK OFFINPUT Enter number： TO numDIMENSION a(num)CLEARFOR i = 1 TO numa(i) = INT( RAND( ) * 90 ) + 10

10、ENDFORFOR i = 1 TO num? a(i)ENDFOR?SET TALK ON按升序排序按升序排序思考：思考：如何加快排序速度？如何加快排序速度？5247952479数组数组a下标下标.f.f.f.f.f.f.f.f.f.值值12345678911111要点：要点：1. 以数据值作为数组的下标以数据值作为数组的下标2. 在相应元素作一个标记，为输出排序结果做准备在相应元素作一个标记，为输出排序结果做准备优点：排序速度最快优点：排序速度最快缺点：缺点：1. 只能对无重复的数据排序只能对无重复的数据排序2. 只能对正整数排序只能对正整数排序3. 必须知道数据的范围必须知道数据的范围4

11、. 所占空间大所占空间大改良：改良：1. 对有重复的数据集排序？对有重复的数据集排序？2. 对具有小数的数据集排序？对具有小数的数据集排序？3. 对具有负数的数据集排序？对具有负数的数据集排序？4. 检测数据的范围？检测数据的范围？SET TALK OFFDIMENSION a(10000)a=0FOR I=1 TO 7INPUT TO xy=INT(x*100)a(y) = a(y) + 1ENDFORFOR i=1 TO 10000FOR j = 1 TO a(i)? i / 100ENDFORENDFORSET TALK ONRETURNSET TALK OFFDIMENSION a(100