【正文】 運(yùn)用 程序 13：編寫(xiě)程序?qū)⒔o定的正整型數(shù)值表達(dá)式的值分解因子，輸出各個(gè)質(zhì)數(shù)因子。如24的因子有： 2， 2， 2和 3。如： 153=1^3+5^3+3^3） 程序 20：求 2 至 1000 之間完數(shù)的個(gè)數(shù)（完數(shù)：一個(gè)數(shù)如果恰好等于它的因子之和，因子不包括本身且不重復(fù)。如 5*5=25， 5出現(xiàn)在 25 的右邊， 3*3=9， 3不出現(xiàn)在 9的右邊，所以 5是同構(gòu)數(shù)， 3不是同構(gòu)數(shù)。輸出格式如下： 學(xué)期 考試課總學(xué)分 考查課總學(xué)分 ************************************* 1 11 3 ?? ?? ?? 程序 5：統(tǒng)計(jì)顯示“成績(jī)”表中所有不同學(xué)生的各課成績(jī)和總平均成績(jī)。條件：都是指定的班級(jí)的學(xué)生，曾經(jīng)都在指定的中學(xué)學(xué)習(xí)過(guò)（指定的班級(jí)和中學(xué)名稱(chēng)從鍵盤(pán)輸入。 四、 口令程序 程序 1：編寫(xiě)口令判斷程序，要求在 VFP 主窗口顯示并從鍵盤(pán)輸入口令，能自動(dòng)判斷是否與系統(tǒng)口令 —— 學(xué)生 .DBF 中“姓名”字段的值完全一 致，若一致則顯示歡迎信息，否則給予二次重輸機(jī)會(huì)，若仍不對(duì)則退出系統(tǒng)。若一致則顯示相應(yīng)的歡迎信息；否則有三次機(jī)會(huì)，輸入次數(shù)在三 次之內(nèi)，給予重輸?shù)奶崾?，輸入次?shù)超過(guò)三次，則顯示無(wú)權(quán)使用本系統(tǒng)的提 示。 五、 圖案打印 程序 1：打印如下圖形： 6 5 4 3 2 1 5 4 3 2 1 4 3 2 1 3 3 2 1 2 1 1 程序 2：打印如下圖形： ＊ ＊＊＊ ＊＊＊＊＊ ＊＊＊ ＊ 程序 3：打印楊輝三角形 １ １ １ １ ２ １ １ ３ ３ １ １ ４ ６ ４ １ 程序 4：打印矩形方陣 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 六、口決表打印 程序 1：打印乘法九九表 1*1=1 1*2=2 2*2=4 1*3=3 2*3=6 3*3=9 1*4=4 2*4=8 3*4=12 4*4=16 . . 1*9=9 … 2*9=18 3*9=27 4*9=36 9*9=81 程序 2：打印乘法口決表 * 1 2 3 4 5 1 1 2 2 4 3 3 6 9 4 4 8 12 5 5 10 15 20 25 七、參數(shù)傳遞和自定義函數(shù)實(shí)現(xiàn) 程序 1：利用參數(shù)傳遞和過(guò)程文件， 求 （ M！ +N?。?/（ MN）！ 其中 M， N 從鍵盤(pán)輸入。 4 一．?dāng)?shù)值運(yùn)算 程序 1：求 1+2+? +100的值 SET TALK OFF CLEAR S=0 N=1 DO WHILE N=100 S=S+N N=N+1 ENDDO ?1+2+? +100=+ALLTRIM(STR(S,4)) SET TALK ON 程序 2：求 1！ +2！ +? +100！的值 SET TALK OFF CLEAR N=1 T=1 S=0 DO WHILE N=100 T=T*N S=S+T N=N+1 ENDDO ?1！ +2！ +? +100！ =+ALLTRIM(STR(S,19)) SET TALK ON 程序 3：求 X+X2+? +XN的值 SET TALK OFF CLEAR INPUT X= TO X INPUT N= TO N I=1 T=1 S=0 DO WHILE I=N T=T*X S=S+T I=I+1 ENDDO ?X+X^2+? X^N=+ALLTRIM(STR(S,19)) SET TALK ON 程序 4：求 S=2/1+3/2+5/3+8/5+13/8?前 20項(xiàng)之和 SET TALK OFF CLEAR STORE 1 TO T,C,I S=0 DO WHILE I=20 T=T+C C=TC S=S+T/C I=I+1 ENDDO ?S=+ALLTRIM(STR(S,19,6)) SET TALK ON 程序 5：求 S=1+X+X2/2！ +X3/3！ +? +XN/N！，其中 X， N的值從鍵盤(pán)輸入，當(dāng)XN/N！ = 方法一： SET TALK OFF CLEAR 5 STORE 1 TO T,C,S,I INPUT X= TO X INPUT N= TO N DO WHILE I=N AND (T/C) T=T*X C=C*I S=S+T/C I=I+1 ENDDO ?S=+ALLTRIM(STR(S,19,10)) SET TALK ON 方法二： SET TALK OFF CLEAR INPUT X= TO X INPUT N= TO N S=1 I=1 DO WHILE I=N P=1 J=1 DO WHILE J=I P=P*J J=J+1 ENDDO IF X^I/P= EXIT ENDIF S=S+X^I/P I=I+1 ENDDO ?S=,S SET TALK ON 程序 6：從鍵盤(pán)輸入一個(gè)正整數(shù)，判斷其是否為偶數(shù) SET TALK OFF CLEAR DO WHILE .T. INPUT N= TO N IF INT(N)!=N OR ABS(N)!=N ?輸入的數(shù)據(jù)不符合題目要求！ LOOP ELSE EXIT ENDIF ENDDO IF INT(N/2)=N/2 ?N,是偶數(shù)！ ELSE ?N,是奇數(shù)！ ENDIF SET TALK ON 程序 7：求 1000 之內(nèi)能被 3和 7整除的 數(shù)的個(gè)數(shù)和 SET TALK OFF CLEAR N=1 S=0 DO WHILE N=1000 IF INT(N/3)=N/3 AND INT(N/7)=N/7 S=S+1 6 ??N ENDIF N=N+1 ENDDO ?1000 之內(nèi)能被 3 和 7 整除的數(shù)的個(gè)數(shù)和； 為： +ALLTRIM(STR(S,5)) SET TALK ON 程序 8：求 A、 B兩數(shù)的最小公倍數(shù) M和最大公約數(shù) N SET TALK OFF CLEAR INPUT A= TO A INPUT B= TO B X=MIN(A,B) FOR I=X TO 1 STEP 1 IF INT(A/I)=A/I AND INT(B/I)=B/I N=I EXIT ENDIF ENDFOR ?最大公約數(shù) N=+ALLTRIM(STR(N,19)) ?最小公倍數(shù)； M=+ALLTRIM(STR(A*B/N,19)) SET TALK ON 程序 9：編寫(xiě)一個(gè)自定義函數(shù)，實(shí)現(xiàn)將任意一個(gè)正整數(shù)分解為最小因子的連乘（如 8=2*2*2） 方法 1： FUNC LCJ PARA X Z=X SET TALK OFF FOR I=2 TO Z IF INT(Z/I)=Z/I S=ALLTRIM(STR(I,19)) Z=Z/I EXIT ENDIF ENDFOR DO WHILE INT(Z/I)=Z/I S=S+*+ALLTRIM(STR(I,19)) Z=Z/I ENDDO IF Z1 S=不能分解成最小因子的連乘積！ ENDIF RETURN S ENDFUNC 方法 2： SET TALK OFF CLEAR INPUT M= TO M FOR I=2 TO M IF INT(M/I)=M/I EXIT ENDIF ENDFOR S=0 IF CC(M,I,S) P=ALLTRIM(STR(M,19))+=； +ALLTRIM(STR(I,19)) FOR J=S TO 2 STEP 1 7 P=P+*+ALLTRIM(STR(I,19)) ENDFOR ?P ELSE ?ALLTRIM(STR(M,19))+不能分解為； 最小因子的連乘積。如 24的因子有： 2， 2， 2和 3。