實(shí)驗(yàn)十報(bào)告 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

實(shí)驗(yàn)十循環(huán)結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn)?zāi)康?、

理解程序設(shè)計(jì)中循環(huán)結(jié)構(gòu)的基本概念和執(zhí)行過程。2、

掌握利用DOWHILE…ENDDO和FOR…ENDFOR語句構(gòu)造循環(huán)解決實(shí)際問題。3、

熟悉SCAN…ENDSCAN語句構(gòu)造循環(huán)處理表中的數(shù)據(jù)。4、

掌握解決循環(huán)結(jié)構(gòu)程序中經(jīng)常出現(xiàn)問題的解決方法。5、

利用循環(huán)嵌套解決稍微復(fù)雜的循環(huán)問題。實(shí)驗(yàn)內(nèi)容一、利用循環(huán)結(jié)構(gòu)計(jì)算S=1+2+3+……+100在VisualFoxPro中建立一個(gè)程序文件，程序代碼如下，調(diào)試運(yùn)行程序，實(shí)現(xiàn)S=1+2+3+……+100累加和的計(jì)算。SETTALKOFFCLEARSUM=0COUNTER=1DOWHILECOUNTER<=100

SUM=SUM+COUNTERCOUNTER=COUNTER+1ENDDO?”計(jì)算結(jié)果是：”,SUMSETTALKONRETURN完成了上述程序的調(diào)試和運(yùn)行后，完成如下的操作要求：（1）修改上述程序代碼的循環(huán)部分，用FOR……ENDFOR完成相同的任務(wù)。（2）利用FOR……ENDFOR或DOWHILE……ENDDO語句構(gòu)造循環(huán)結(jié)構(gòu)計(jì)算10!。二、水仙花數(shù)的計(jì)算求出100~999之間的所有水仙花數(shù)。所謂的水仙花數(shù)是指一個(gè)三位整數(shù)，其各位的數(shù)字立方和等于該數(shù)本身，例如1^3+5^3+3^3=153。請補(bǔ)充完善下列程序代碼并調(diào)試運(yùn)行。SETTALKOFFCLEARFORI=100TO999a=

b=

c=

IFI=

?IENDIFENDFORSETTALKONRETURN三、記錄操作程序設(shè)計(jì)1、下面的程序?qū)崿F(xiàn)了多次在“Rsda.dbf”表中查找記錄的操作。請?jiān)诮⒘薘sda.dbf表的基礎(chǔ)上，建立并運(yùn)行程序。任意輸入一位員工的“編號”，若查找到相應(yīng)的記錄則顯示，否則給出提示“查無此人！”；根據(jù)提示輸入“N”或“n”則結(jié)束程序的運(yùn)行。********************源程序代碼******************SETTALKOFFCLEARUSE

Rsda.dbfDOWHILE.T.

CLEAR

ACCEPT"請輸入員工編號:"TOZHGNO

LOCATEFOR編號=ZHGNO

IF.NOT.EOF()

DISPLAY編號,姓名,部門代號,職稱,基本工資

ELSE

?"查無此人！"ENDIF

WAIT"繼續(xù)查詢？(Y/N):"TOP

IFUPPER(P)<>"Y"

USE

EXIT

ENDIFENDDOSETTALKONRETURN2、下面的程序代碼要實(shí)現(xiàn)在“Rsda.dbf”表中順序查找“職稱”為“副教授”的全部記錄并顯示。請補(bǔ)充相應(yīng)的程序代碼并調(diào)試。********************源程序代碼******************SETTALKOFFCLEARUSE

Rsda.dbfDOWHILE

IF

DISPLAY

編號,姓名,部門代碼,職稱,基本工資

WAIT"敲任意鍵繼續(xù)"

ELSE

ENDIFENDDOUSESETTALKONRETURN四、多重循環(huán)程序設(shè)計(jì)1、編寫程序,要求在屏幕上打印一個(gè)用“*”組成的等腰三角形如圖所示，程序如下：

2、下列程序代碼需要實(shí)現(xiàn)1！+2！+……+10！的計(jì)算，請完善程序代碼并調(diào)試。********程序代碼*********SETTALKOFFCLEARSUM=0FORI=1TO10

FORJ=1TOI

X=X*J

ENDFOR

SUM=

ENDFOR?"1！+2！+……+10！=",SUMSETTALKONRETURN修改上述程序代碼的循環(huán)部分，采用單層循環(huán)同樣實(shí)現(xiàn)1！+2！+……+10！的計(jì)算。五、用SCAN……ENDSCAN設(shè)計(jì)循環(huán)下面的程序完成將“Rsda.dbf”表性別為“女”記錄的逐條顯示，請建立并運(yùn)行該程序。********************源程序代碼******************SETTALKOFFCLEARUSERsda.dbfSCANFOR性別＝”女”DISPLAY編號,姓名,性別，部門代碼,職稱,基本工資WAITENDSCANUSESETTALKONRETURN實(shí)驗(yàn)心得1、

DOWHILE…ENDDO和FOR…ENDFOR的比較1.能用循環(huán)次數(shù)判斷的用for2.只能進(jìn)行邏輯判斷的用dowhile

2