重庆理工大学计算机科学与工程学院Visual FoxPro 6.0程序设计课件第十二讲 程序设计综合范例.pptVIP

程序设计综合范例 排序算法 输出点阵算法 找出1000以内符合这样规律的数：本身、平方、立方的值都是对称的，比如：11，121，1331，用函数法求 读程序填空 设计大作业 排序算法 问题的描述： 产生50个100以内的随机正整数，输出，从小到大排序后，再输出！ 问题的求解： 产生随机数 DIMENSION A(50) FOR I=1 TO N A(I)=INT(RAND()*100)+1 ENDFOR 排序算法 输出 FOR I=1 TO N ?? STR(A(I)) IF MOD(I,10)=0 ? ENDIF ENDFOR 排序算法 排序（结果见程序FANLI15） FOR I=1 TO N-1 K=I FOR J=I+1 TO N IF A(J)A(K) K=J ENDIF ENDFOR T=A(I) A(I)=A(K) A(K)=T ENDFOR 输出点阵算法 问题的描述： 在屏幕上输出下列点阵，行数由键盘输入 * *** ***** ******* ……………… 问题的求解： 一行行的输出，行数由I控制，在每行中要输出三个内容：空格、星、回车，关键是找出行数、每行的空格数、星数之间的数量关系 输出点阵算法 算法具体描述为： i: 1 到 N行的循环 输出 N-I 个空格 输出 2*I-1个星 输出回车 循环结束 求对称数算法 定义一个函数，判断一个数是否对称，若对称，返回真，否则返回假 主程序中输入一个数N 分别用该数、平方、立方的值作为参数调用函数，若都为真，则是，否则，不是 面对表格的程序编写 学生档案表（xsda.dbf）：学号/C/10，姓名/C/8，性别/C/2，出生年月/D，民族/C/6，籍贯/C/8，入学总分/N/5.1。 生成绩表（xscj.dbf）： 学号/C/10，课程号/C/5，学期/C/1，考试成绩/N/5.1，补考成绩/N/5.1。 学生课程表（xskc.dbf）：课程号/C/5，课程名/C/14，总学时/N/3，授课教师/C/8，职称/C/10 课程大作业 目的：综合训练，完成对数据库和表格的建立，并建立围绕其操作的相关应用程序 一、建立一个数据库，包含以下两个表格，并以学号建立永久连接 STU.DBF(学号 C 8，姓名 C 8 ，班级号 C 6) SORE.DBF(学号 C 8，科目 C 20 ，成绩 N 4 1) 课程大作业 二、建立如下功能的子程序： 浏览子程序：给定一个班级，浏览该班级全部的学生成绩 查找子程：给定一个学号或者姓名，查找该学生的全部成绩 删除子程序：给定学生学号或者名字，删除该学生在两个表中的所有信息 插入子程序：插入一个新同学的姓名及相关成绩 三、建立一个主程序，用多分支结构实现对多个子程序的调用 面对表格的程序编写 1．根据以上三个表，显示所有学生各门课程的学号、姓名、课程名、考试成绩； 2．通过键盘任意输入一个课程号和学期，计算并输出该门课程该学期的平均分、最高分和最低分，打印该门课程该学期所有需要参加补考的学生的补考通知单，其格式如下： 补考通知单 ××同学： 第××学期你的××课程考试不及格，请利用假期看书复习，作好补考准备。 * *