实验十二(多重循环结构程序设计)课后实验内容参考解答.pptVIP

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