VFP程序改错题正式.docVIP

1. 求1/1!+1/2!+1/3!+ ···+1/9!的值。1.7183 CLEAR SET TALK OFF S=0 T=1 FOR I=1 TO 9 ***1**** T=T*1 ***2*** S=S+T ENDFOR ?S SET TALK ON T=T*I S=S+1/T 2. 本程序计算S=2^1+2^2+···+2^N的值。求和S第一次大于100000时的S值 131070 SET TALK OFF CLEA Store 0 to I,S DO WHIL .t. I=I+1 S=S+X*I IF S100000 ******1****** LOOP ENDIF ENDDO ******2****** ? S=+S SET TALK ON 1. EXIT 2. ? S=+STR(S) / ? S=,S 3. 求当1！+3！+5！+···+n!的值不超过10^20时的临界值及n的值。21 SET TALK OFF CLEA STOR 1 TO S,T,N ******1****** DO WHIL S=20E+10 T=T*(N+1)*(N+2) S=S+T N=N+2 ENDDO ******2****** ?N=,N SET TALK ON 1. DO WHIL S=1E+20 2. ? S=,S-T,N=,N-2 4. 求20!中0的个数. 7 SET TALK OFF CLEAR M=20 ******1****** T=0 FOR I=1 TO M T=T*I ENDFOR S=0 DO WHILE .T. N=MOD(T,10) IF N=0 S=S+1 ENDIF ********2******* T=T/10 IF T=0 EXIT ENDIF ENDDO ?’0的个数’,S SET TALK ON 1. T=1 2. T=INT(T/10) 5. 求1-10000之内既能被3整除,又能被7整除的数之和. 2384046 SET TALK OFF CLEAR S=0 FOR I=1 TO 10000 *******1****** IF INT(I,3)=I/3 AND INT(I,7)=I/7 S=S+I ENDIF *******2****** ENDDO ? S SET TALK ON 1. IF INT(I/3)=I/3 AND INT(I/7)=I/7 / IF MOD(I,3)=0 AAND MOD(I,7)=0 / IF I%3=0 AND I%7=0 2. ENDFOR 6. 本程序计算从58一直乘到30的积。2.65847614191286E+47 SET TALK OFF CLEA *********1******** S=0 ********2******* FOR I=58 TO 30 S=S*I ENDFOR ? S SET TALK ON 1. S=1 2. FOR I=58 TO 30 STEP -1 /FOR I=30 TO 58 7.下列程序的功能是计算分数数列2/1，3/2，5/3，……,m/n,m+n/m的前20项之和。32.6603 SET TALK OFF CLEAR SUM=0 M=2 N=1 FOR X=1 TO 20 *********1******** SUM=SUM+M Y=M M=M+N N=Y ********2******* ENDDO ?SUM SET TALK ON 1.SUM=SUM+M/N 2.ENDFOR 8. 下列程序的功能是统计所有的“水仙花数”的个数， “水仙花数”是指一个三位数，其各位数字立方和等于该数本身，例如：153=13+53+33） 4 SET TALK OFF CLEAR COUNT=0 FOR X=100 TO 999 A=INT(X/100) *********1******** B=INT(X/10)/10 C=X%10 IF A^3+B^3+C^3=X COUNT=COUNT+1 *********2******** END