VFP_實(shí)驗(yàn)4-4 過程與自定義函數(shù).doc

實(shí)驗(yàn)4-4 過程文件與自定義函數(shù)一、實(shí)驗(yàn)?zāi)康募訌?qiáng)對(duì)過程文件與自定義函數(shù)概念的理解，掌握過程文件與自定義函數(shù)在程序設(shè)計(jì)中的運(yùn)用，并掌握程序之間數(shù)據(jù)傳遞的方法。二、實(shí)驗(yàn)準(zhǔn)備復(fù)習(xí)教材中有關(guān)子程序與自定義函數(shù)的內(nèi)容，重點(diǎn)掌握子程序、過程與過程文件、自定義函數(shù)等概念，理解本節(jié)給出的實(shí)例。三、實(shí)驗(yàn)內(nèi)容1用過程文件的形式編寫程序，求1！+ 3！+ 5！+ n！的值，n從鍵盤輸入，階乘計(jì)算用過程。*1用過程文件的形式編寫程序，求1！+ 3！+ 5！+ + n！的值，n從鍵盤輸入，階乘計(jì)算用過程。SET TALK OFFCLEARINPUT n= TO nS=0Q=FOR J=1 TO n STEP 2T=1DO jc WITH JS=S+TQ=Q+ALLTRIM(STR(J,19)+!+ENDFOR?LEFT(Q,LEN(Q)-1)+=+ALLTRIM(STR(S,19,2)SET TALK ON PROCEDURE JCPARAMETERS XFOR I=1 TO X T=T*IENDFORRETURNENDPROC2 編寫自定義函數(shù)，判斷X是否是素?cái)?shù)，返回結(jié)果為邏輯值.T. 或 .F.。*2編寫自定義函數(shù)，判斷X是否是素?cái)?shù)，返回結(jié)果為邏輯值.T. 或 .F.。CLEARPROCEDURE SSPARAMETERS QFOR N=2 TO Q-1IF INT(Q/N)=Q/NEXITENDIFENDFORIF NQ-1RETURN .T.ELSE RETURN .F.ENDIFENDPROC3 編寫程序，要求利用參數(shù)傳遞和過程文件求解：(m! + n!)(m - n)!+ mn + mm )的值。M，N從鍵盤上輸入且MN，要求使用子程序和過程文件兩種方式實(shí)現(xiàn)。*3編寫程序，要求利用參數(shù)傳遞和過程文件求解：(m! + n!) (m - n)!+ mn + mm )的值。*M，N從鍵盤上輸入且MN，要求使用子程序和過程文件兩種方式實(shí)現(xiàn)。SET TALK OFFCLEARINPUT M= TO MINPUT N= TO NMJ=MDO JC WITH MJNJ=NDO JC WITH NJMNJ=M-NDO JC WITH MNJMN=NDO MC WITH M,MNDO MC WITH M,M?(MJ+NJ)/(MNJ+MN+M)SET TALK ONPROCEDURE JCPARAMETERS X T=1FOR I=1 TO XT=T*XENDFORX=TRETURN PROCEDURE MCPARAMETERS X,YT=1FOR J=1 TO YT=T*XENDFORY=TRETURN4 編制自定義函數(shù)，實(shí)現(xiàn)將任意一個(gè)正整數(shù)分解為其最小因子的連乘式。如：8=2*2*2。*4編制自定義函數(shù)，實(shí)現(xiàn)將任意一個(gè)正整數(shù)分解為其最小因子的連乘式。如：8=2*2*2。CLEARPROCEDURE ccPARAMETERS XS=ALLTRIM(STR(X,20)+=FOR I=2 TO XIF INT(X/I)=X/IS=S+ALLTRIM(STR(I,20)+*X=X/II=I-1ENDIFENDFORRETURN LEFT(S,LEN(S)-1)ENDPROC5 編寫程序，要求從鍵盤輸入一個(gè)正整數(shù)M，自動(dòng)判斷并顯示M中有哪些數(shù)可以分為兩個(gè)相等的素?cái)?shù)。如：若M=10，因?yàn)?0中有4=2+2，6=3+3，10=5+5，所以共有三個(gè)數(shù)符合條件。不做6 用自定義函數(shù)編制程序：實(shí)現(xiàn)將一個(gè)日期型表達(dá)式轉(zhuǎn)換為中文大寫形式。如：1999-02-15或CTOD(“1999-02-15”) 轉(zhuǎn)換為中文大寫形式為：一九九九年二月十五日。不做四、實(shí)驗(yàn)4-4報(bào)告1實(shí)驗(yàn)過程報(bào)告（1）寫出第1題的程序代碼及n=7時(shí)的程序運(yùn)行結(jié)果。（2） 寫出第2題的程序代碼。*2編寫自定義函數(shù)，判斷X是否是素?cái)?shù)，返回結(jié)果為邏輯值.T. 或 .F.。CLEARPROCEDURE SSPARAMETERS QFOR N=2 TO Q-1IF INT(Q/N)=Q/NEXITENDIFENDFORIF NQ-1RETURN .T.ELSE RETURN .F.ENDIFENDPROC（3） 寫出第5題的程序代碼及程序運(yùn)行結(jié)果（輸入M=20）。不做2簡(jiǎn)答題（1）敘述子程序、過程、過程文件的概念。子程序是相對(duì)于主程序而言的一個(gè)獨(dú)立的程序文件，其建立的方法與建立程序文件的方法相同，擴(kuò)展名也為.Prg過程是存放在過程文件中的子程序不在成為子程序。過程文件是存放若干個(gè)子程序的文件，可以理解為若干個(gè)子程序的打包。（2） 過程文件打開的方法及過程調(diào)用的方法？打開方法：PROCEDUREENDPROC調(diào)用方法： 打開：SET PROCEDURE TO 關(guān)閉：SET PROCEDURE TO（3） 程序之間參數(shù)傳遞有哪幾種方法？1. 內(nèi)存變量的作用域 。PUBILCSTORE/=、DIMENSION、DECLARE、INPUT、SUMPRIVATELOCATE2. DOWITH（4） 自定義函數(shù)應(yīng)如何調(diào)用, 其數(shù)據(jù)是怎樣傳遞的？調(diào)用：自定義函數(shù)雖然是一個(gè)子程序，但不能用DO命令調(diào)用，而只能像系統(tǒng)函數(shù)一樣用輸出語(yǔ)句（？、？）輸出或出現(xiàn)在表達(dá)式