实验十报告 循环结构程序设计

实验十循环结构程序设计实验目的1、

理解程序设计中循环结构的基本概念和执行过程。2、

掌握利用DOWHILE…ENDDO和FOR…ENDFOR语句构造循环解决实际问题。3、

熟悉SCAN…ENDSCAN语句构造循环处理表中的数据。4、

掌握解决循环结构程序中经常出现问题的解决方法。5、

利用循环嵌套解决稍微复杂的循环问题。实验内容一、利用循环结构计算S=1+2+3+……+100在VisualFoxPro中建立一个程序文件，程序代码如下，调试运行程序，实现S=1+2+3+……+100累加和的计算。SETTALKOFFCLEARSUM=0COUNTER=1DOWHILECOUNTER<=100

SUM=SUM+COUNTERCOUNTER=COUNTER+1ENDDO?”计算结果是：”,SUMSETTALKONRETURN完成了上述程序的调试和运行后，完成如下的操作要求：（1）修改上述程序代码的循环部分，用FOR……ENDFOR完成相同的任务。（2）利用FOR……ENDFOR或DOWHILE……ENDDO语句构造循环结构计算10!。二、水仙花数的计算求出100~999之间的所有水仙花数。所谓的水仙花数是指一个三位整数，其各位的数字立方和等于该数本身，例如1^3+5^3+3^3=153。请补充完善下列程序代码并调试运行。SETTALKOFFCLEARFORI=100TO999a=

b=

c=

IFI=

?IENDIFENDFORSETTALKONRETURN三、记录操作程序设计1、下面的程序实现了多次在“Rsda.dbf”表中查找记录的操作。请在建立了Rsda.dbf表的基础上，建立并运行程序。任意输入一位员工的“编号”，若查找到相应的记录则显示，否则给出提示“查无此人！”；根据提示输入“N”或“n”则结束程序的运行。********************源程序代码******************SETTALKOFFCLEARUSE

Rsda.dbfDOWHILE.T.

CLEAR

ACCEPT"请输入员工编号:"TOZHGNO

LOCATEFOR编号=ZHGNO

IF.NOT.EOF()

DISPLAY编号,姓名,部门代号,职称,基本工资

ELSE

?"查无此人！"ENDIF

WAIT"继续查询？(Y/N):"TOP

IFUPPER(P)<>"Y"

USE

EXIT

ENDIFENDDOSETTALKONRETURN2、下面的程序代码要实现在“Rsda.dbf”表中顺序查找“职称”为“副教授”的全部记录并显示。请补充相应的程序代码并调试。********************源程序代码******************SETTALKOFFCLEARUSE

Rsda.dbfDOWHILE

IF

DISPLAY

编号,姓名,部门代码,职称,基本工资

WAIT"敲任意键继续"

ELSE

ENDIFENDDOUSESETTALKONRETURN四、多重循环程序设计1、编写程序,要求在屏幕上打印一个用“*”组成的等腰三角形如图所示，程序如下：

2、下列程序代码需要实现1！+2！+……+10！的计算，请完善程序代码并调试。********程序代码*********SETTALKOFFCLEARSUM=0FORI=1TO10

FORJ=1TOI

X=X*J

ENDFOR

SUM=

ENDFOR?"1！+2！+……+10！=",SUMSETTALKONRETURN修改上述程序代码的循环部分，采用单层循环同样实现1！+2！+……+10！的计算。五、用SCAN……ENDSCAN设计循环下面的程序完成将“Rsda.dbf”表性别为“女”记录的逐条显示，请建立并运行该程序。********************源程序代码******************SETTALKOFFCLEARUSERsda.dbfSCANFOR性别＝”女”DISPLAY编号,姓名,性别，部门代码,职称,基本工资WAITENDSCANUSESETTALKONRETURN实验心得1、

DOWHILE…ENDDO和FOR…ENDFOR的比较1.能用循环次数判断的用for2.只能进行逻辑判断的用dowhile

2