江西财经大学信息管理学院凌传繁 20101数据库应用实验十二多重循环结构程序设计课后实验内容参考解答 2 江西财经大学信息管理学院凌传繁 2010 实验十二多重循环结构程序设计课后实验内容①输出公元 2000 ~2200 年间所有是闰年的年份。②按教材上采用标识 flag 判别素数的方法,求 100 以内的全部素数。③按各个班级显示全体学生的名单。④从键盘输入一门课程的课程编号,编程统计各学院选修该课程的人数、平均分,同时显示选修该课程的同学的学号、姓名和相应成绩(不及格的学生需特别标示出来)。⑤以格式化和非格式化输出语句,采用循环结构控制打印下列图形。************************* 66 5555 444444 33333333 2222222222 1********** (a) (b) 3 江西财经大学信息管理学院凌传繁 2010 ①输出公元 2000 ~2200 年间所有是闰年的年份。 clear n=0 for i=2000 to 2200 step 4 if mod(i,400)=0 or mod(i,100)<>0 n=n+1 @ int((n-1)/5),mod(n-1,5) * 8 say str(i,6) endif next 4 江西财经大学信息管理学院凌传繁 2010 ①输出公元 2000 ~2200 年间所有是闰年的年份(另解) 。 clear n=0 for i=2000 to 2200 if mod(i,4)=(i,100)<>(i,400)=0 n=n+1 @ int((n-1)/5),mod(n-1,5) * 8 say str(i,6) endif next 5 江西财经大学信息管理学院凌传繁 2010 ②按教材上采用标识 flag 判别素数的方法,求 100 以内的全部素数。 clear m=0 for i=2 to 100 flag=.t. for k=2 to int(sqrt(i )) if mod(i,k )=0 flag=.f. endif next if flag m=m+1 ?? i if m=8 ? m=0 endif endif next 6 江西财经大学信息管理学院凌传繁 2010 ②按教材上采用标识 flag 判别素数的方法,求 100 以内的全部素数(另解) 。 clear m=0 for i=2 to 100 flag=.t. for k=2 to int(sqrt(i )) if mod(i,k )=0 flag=.f. endif next if flag m=m+1 @ int((m-1)/8),mod(m-1,8) * 6 say str(i,6) endif next 7 江西财经大学信息管理学院凌传繁 2010 ③按各个班级显示全体学生的名单。 clear open database 教学管理数据库 create sql view xsview ; as; select ,专业名称,学号,姓名; from 学生表,班级表; where =; order by ,学号 use xsview do while not eof () mbjh =班级号? "_______________________________________________________" ? " 班级号: "+ 班级号+" 班级名称: "+ 专业名称? scan while 班级号= mbjh ?? space(4), 学号,姓名 ends enddo close all *说明: *在参考解答中,有些*题目使用了中文表名*和中文字段名, *而另一些题目使用了*英文表名和英文字段名。*同学们可以选择其中一*种来完成全部题目! 8 江西财经大学信息管理学院凌传繁 2010 ③按各个班级显示全体学生的名单(另解 1)
实验十二(多重循环结构程序设计)课后实验内容参考解答 来自淘豆网www.taodocs.com转载请标明出处.