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

实验十 循环结构程序设计 实验目的 1、? 理解程序设计中循环结构的基本概念和执行过程。 2、? 掌握利用DO WHILE…ENDDO和FOR…ENDFOR语句构造循环解决实际问题。 3、? 熟悉SCAN…ENDSCAN语句构造循环处理表中的数据。 4、? 掌握解决循环结构程序中经常出现问题的解决方法。 5、? 利用循环嵌套解决稍微复杂的循环问题。 实验内容 一、利用循环结构计算S=1+2+3+……+100 在Visual FoxPro中建立一个程序文件，程序代码如下，调试运行程序，实现S=1+2+3+……+100累加和的计算。 SET TALK OFF CLEAR SUM=0 COUNTER=1 DO WHILE COUNTER=100 ??? SUM=SUM+COUNTER COUNTER=COUNTER+1 ENDDO ?”计算结果是：”,SUM SET TALK ON RETURN 完成了上述程序的调试和运行后，完成如下的操作要求： （1）修改上述程序代码的循环部分，用FOR……ENDFOR完成相同的任务。 （2）利用FOR……ENDFOR或DO WHILE……ENDDO语句构造循环结构计算10!。 二、水仙花数的计算 求出100~999之间的所有水仙花数。所谓的水仙花数是指一个三位整数，其各位的数字立方和等于该数本身，例如1^3+5^3+3^3=153。请补充完善下列程序代码并调试运行。 SET TALK OFF CLEAR FOR I=100 TO 999 a=?????????? ????????????? b=?????????? ????????????? c=? ???????? ?? ??????????? IF I=??????? ???????????????? ?I ENDIF ENDFOR SET TALK ON RETURN 三、记录操作程序设计 1、下面的程序实现了多次在“Rsda.dbf”表中查找记录的操作。请在建立了Rsda.dbf表的基础上，建立并运行程序。任意输入一位员工的“编号”，若查找到相应的记录则显示，否则给出提示“查无此人！”；根据提示输入“N”或“n”则结束程序的运行。 ********************源程序代码****************** SET TALK OFF CLEAR USE? Rsda.dbf DO WHILE .T. ? CLEAR ? ACCEPT 请输入员工编号: TO ZHGNO ? LOCATE FOR 编号=ZHGNO ? IF .NOT.EOF() ??? DISPLAY 编号,姓名,部门代号,职称,基本工资 ? ELSE ??? ?查无此人！ ENDIF ? WAIT 继续查询？(Y/N): TO P ? IF UPPER(P)Y ??? USE ?? ?EXIT ? ENDIF ENDDO SET TALK ON RETURN 2、下面的程序代码要实现在“Rsda.dbf”表中顺序查找“职称”为“副教授”的全部记录并显示。请补充相应的程序代码并调试。 ********************源程序代码****************** SET TALK OFF CLEAR USE? Rsda.dbf DO WHILE?? ????????????????? ? IF ????????????????????????? ?? ??DISPLAY?? 编号,姓名,部门代码,职称,基本工资 ???? WAIT 敲任意键继续 ? ??????? ? ?????????????????? ? ELSE ??????????????? ENDIF ENDDO USE SET TALK ON RETURN 四、多重循环程序设计 1、编写程序,要求在屏幕上打印一个用“*”组成的等腰三角形如图所示，程序如下： 　　 ? 2、下列程序代码需要实现1！+2！+……+10！的计算，请完善程序代码并调试。 ********程序代码********* SET TALK OFF CLEAR SUM=0 FOR I=1 TO 10 ??? ???????? ????????? FOR J=1 TO I??? ??? X=X*J ? ENDFOR ? SUM=????????????? ENDFOR ? 1！+2！+……+10！=,SUM SET TALK ON RETURN 修改上述程序代码的循环部分，采用单层循环同样实现1！+2！+……+10！的计算。 五、用SCAN……ENDSCAN设计循环 下面的程序完成将“Rsda.dbf”表性别为“女”记录的逐条显示，请建立并运行该程序。 ********