《vfp编程的六个经典例题及答案》由会员分享,可在线阅读,更多相关《vfp编程的六个经典例题及答案(3页珍藏版)》请在金锄头文库上搜索。
1、1、求 36 的因子有哪些?(不包括它本身)CLEAR FOR i=1 to 35IF 36%i=0? iENDIFENDFOR RETURN2、求 100 到 999 之间所有的水仙花数。所谓水仙花数是指:这个数各个数位上的数字的立方和等于这个数本身。如:153=1*3+5*3+3*3. CLEAR FOR i=100 to 999 gw=i%10 sw=INT(i/10)%10 bw=INT(i/100) IF gw*3+sw*3+bw*3=i? i ENDIF ENDFOR RETURN3、A,B,C 是 100 以内的自然数,ABC,求满足 A*2+B*2=C*2 的A,B,C 有多少
2、组。CLEAR n=0 FOR a=1 to 100FOR b=a+1 to 100FOR c=b+1 to 100IF a*2+b*2=c*2n=n+1ENDIFENDFORENDFOR ENDFOR ? n RETURN4、求 100 以内所有的素数的个数。CLEAR n=0 FOR i=2 to 100IF su(i)n=n+1ENDIF ENDFOR ? n RETURN FUNCTION su(x) flag=.f. FOR m=2 to INT(SQRT(x)IF x%m=0EXITENDIF ENDFOR IF m=INT(SQRT(x)+1flag=.t. ELSEflag=.
3、f. ENDIF RETURN flag5、将 1 块钱换成 1 分,2 分,5 分的硬币,要求每种硬币至少一枚,请问有多少种兑换的方法。CLEAR n=0 FOR yf=1 to 100FOR ef=1 to 50FOR wf=1 to 20IF yf*1+ef*2+wf*5=100n=n+1ENDIFENDFORENDFOR ENDFOR ? n RETURN6、有一个数列,这个数列的第一项是 1,第二项也是 1,从第三项开始,每一项是前两项之和。请问这个数列的第 43 项是多少,前 50项的和是多少。CLEAR DIMENSION fib(50) fib(1)=1 fib(2)=1 sum=fib(1)+fib(2) FOR i=3 to 50fib(i)=fib(i-1)+fib(i-2)sum=sum+fib(i) ENDFOR ? fib(43),sum RETURN