数据库基础实验

1、数据库基础(jch)实验实验十四 循环结构设计东北财经大学信息(xnx)工程学院 2008共三十七页实验(shyn)十四 循环结构设计【实验目的与要求】【实验准备】【实验数据】【实验内容】【实验步骤】【实验总结】目 录共三十七页【实验目的(md)与要求】掌握三种循环结构的命令格式、执行流程和区别；了解循环结构的缩进书写格式，学会调试循环结构程序；熟练编写DO WHILE 和FOR型的循环结构应用程序，能够根据实际(shj)问题选择合适的循环结构。共三十七页【实验(shyn)准备】1. VFP的循环(xnhun)结构 按照一定的条件重复执行某一程序段的程序称为循环结构。（1）DO WHILE-E

2、NDDO命令命令格式如下：DO WHILE LOOP EXITENDDO共三十七页【实验(shyn)准备】DO WHILE-ENDDO命令(mng lng)的程序流程如图141所示 。共三十七页【实验(shyn)准备】2. FOR-ENDFOR命令 FOR-ENDFOR命令是一个计数型循环，命令格式如下： FOR = TO STEP LOOP EXIT ENDFOR | NEXT共三十七页【实验(shyn)准备】FOR循环结构的流程如图14-2 。 首先给赋初值，然后(rnhu)判断的值是否达到(大于或小于)终值。如果达到终值则结束循环，执行ENDFOR后面的语句；否则，执行循环体，修改循环控

3、制变量，将增加一个步长，然后(rnhu)程序控制自动转到循环开始，再次判断的值是否到达终值。重复这一过程，直至循环控制变量的值大于或小于终值时，终止循环处理。 共三十七页【实验(shyn)准备】3. SCAN-ENDSCAN循环语句 格式如下： SCAN FOR WHILE ENDSCAN 、FOR和WHILE用来控制SCAN循环处理的记录(jl)范围和条件。共三十七页【实验(shyn)准备】图143为SCAN循环结构框图。 执行该命令(mng lng)时，首先判断函数EOF()的值，若为真，则退出SCAN循环，执行ENDSCAN后面的语句；若为假，则执行循环体，然后记录指针自动移到指定的范围

4、和条件内的下一个记录。遇到ENDSCAN 后重新判断函数EOF()的值。重复此过程，直到EOF()为真值时，结束循环处理。共三十七页【实验(shyn)数据】教师工作量表 本实验除了使用实验十二的教师信息表和教师工资表外，还用到教师工作量表gzl.dbf。表141给出了该数据表的结构和数据。其中gzl字段存储该教师在给定学期(xuq)term的工作量，level表示授课等级，根据教师工作量按以下规则来确定level的取值：若教师工作量300，则level为A；若教师工作量在201300之间，则level为B；若教师工作量在121200之间，则level为C；否则，则level为D。 共三十七页【

5、实验(shyn)数据】 表141 教师(jiosh)工作量gzl表结构字段名bhtermgzllevel含义编号学年教学工作量授课等级类型 字符型字符型数值型字符型宽度3941共三十七页【实验(shyn)内容】1.编写程序a14-1.prg.任意输入一个正整数n，计算n的阶乘并输出。2.编写程序a14-2.prg. 输入一个院系名称，要求分别使用DO-WHILE结构和SCAN-ENDSCAN结构查找并显示该院系的教师姓名、性别和职称。3.编写程序a14-3.prg. 根据教师工作量表gzl.dbf，修改(xigi)所有教师的等级并显示结果。共三十七页【实验(shyn)内容】4.编写程序a14-

6、4.prg.在屏幕上显示如下的图形(txng)。 * * * *5.编写程序a14-5.prg. 输出1100之间能被29整除的数。6.编写程序a14-6.prg. 输出500600之间所有素数，统计素数的个数。共三十七页【实验(shyn)步骤】1.程序a14-1.prg（1）问题分析 根据公式n!=1*2*n，为了计算(j sun)n的阶乘，需要设一个变量m存放累计乘积，m的初值为1，每次与一个自然数相乘，直到自然数大于n为止。本程序也是计数循环，其流程图如图144所示。共三十七页【实验(shyn)步骤】（2）主要代码如下：INPUT “请输入n：” TO nIF n300 replace

7、level with A CASE gzl200 replace level with B-接下页- 共三十七页【实验(shyn)步骤】-接上页- CASE gzl120 replace level with C OTHERWISE replace level with D ENDCASE ?bh,gzl,level SKIPENDDOUSE 共三十七页【实验(shyn)步骤】（3）调试(dio sh)运行程序a14-3.prg，运行结果如图146所示。图146 程序a14-3.prg运行结果共三十七页【实验(shyn)步骤】4.程序a14-4.prg（1）问题分析 待打印的图形包括4行，第i

8、行有2i-1个“*”，因此(ync)可以用二重循环实现。难点在于打印格式的控制，每行打印前要输出若干空格，如第i行输出40-i个空格（40是任意给的），打印一行中的“*”不换行，每行结尾才输出换行符。共三十七页【实验(shyn)步骤】（2）在命令窗口输入(shr)“MODI COMM d:a14-4.prg”，进入程序编辑器，其主要代码如下：CLEARFOR i=1 TO 4 ?SPACE(40-i) &输出每行前的空格 FOR j=1 TO 2*i-1 ?* &不换行 输出第i行的* NEXT ? &换行NEXT共三十七页【实验(shyn)步骤】（3）调试运行程序(chngx)a14-4.p

9、rg，运行结果如图147所示。图147 程序a14-4.prg运行结果 共三十七页【实验(shyn)步骤】5.程序a14-5.prg（1）问题分析 本程序关键在于判断一个数m是否能被另一个数n整除，既可以(ky)通过检查int(m/n)与m/n是否相等来判断，也可以(ky)检查m除以n的余数mod(m,n)是否为0来判断。共三十七页【实验(shyn)步骤】（2）在命令窗口输入“MODI COMM d:a14-5.prg”，进入程序编辑器，其主要(zhyo)代码如下：CLEARFOR i=1 TO 100 IF mod(i,29)=0 ?i & i能被29整除 ENDIFNEXT共三十七页【实验

10、(shyn)步骤】（3）调试运行程序(chngx)a14-5.prg，运行结果如图148所示。 图148 程序a14-5.prg运行结果 共三十七页【实验(shyn)步骤】6.程序a14-6.prg（1）问题分析本程序需要依次判断500-600之间的每个整数是否是素数，因此需要用计数(j sh)循环来实现。而判断一个整数k是否是素数则用从2 到k的平方根之间的每个数去除以k，如果有一个数能够整除k，则可以断定k不是素数；只有当所有的数都不能整除k，才能说k是素数。因此本程序是一个二重循环结构，其程序流程如图149所示。共三十七页【实验(shyn)步骤】 图149的左侧是外循环，右侧是判断(pn

11、dun)素数的内循环。为了统计素数的个数，需要定义一个变量，每当找到一个素数，该变量累加1。当判断(pndun)一个数k是否是素数时，定义一个标识变量flag，初始为0，表示k不是素数。如果k能被某个数j整除，则设置flag为1，表示k一定不是素数，而且不必再判断(pndun)k能否被其他的数j整除。循环结束时，根据flag的值可以判断(pndun)k是否是素数，如果flag为0，则k是素数，否则不是素数。 共三十七页【实验(shyn)步骤】（2）在命令窗口输入“MODI COMM d:a14-6.prg”，进入程序编辑器，其主要代码如下(rxi)：CLEARcnt=0FOR k=500 TO

12、 600 flag=0 FOR j=2 TO SQRT(k) IF int(k/j)=k/j &判断k能否被j整除 flag=1 & k不是素数 EXIT &强行退出循环 ENDIF ENDFOR &内层循环结束-接下页-共三十七页【实验(shyn)步骤】-接上页- IF flag=0 cnt=cnt+1 ?k ENDIFENDFOR &外层(wi cn)循环结束?素数个数为+STR(cnt,3)共三十七页【实验(shyn)步骤】（3）调试运行程序(chngx)a14-6.prg，运行结果如图1410所示。图1410 程序a14-4.prg运行结果共三十七页【实验(shyn)总结】1. 在书写循环结构的程序时，尤其要注意采用缩进方式，为清晰起见，还可在每层循环结束处加以(jiy)注释。 循环入口和循环出口命令应该匹配。2.编写循环结构的程序时，在循环体中应该有改变循环控制变量的命令。共三十七页结束(jish)！2008.3共三十七页内容摘要数据库基础实验。若教师工作量在121200之间，则level为C。否则(fuz)，则level为D。任意输入一个正整数n，计算n的阶乘并输出。DO WHILE结构的运行结果。SCAN-ENDSCAN结构的运行