欢迎来到天天文库
浏览记录
ID:29790926
大小:50.18 KB
页数:3页
时间:2018-12-23
《vfp编程的六个经典例题及答案》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、1、求36的因子有哪些?(不包括它本身)CLEARFORi=1to35IF36%i=0?iENDIFENDFORRETURN2、求100到999之间所有的水仙花数。所谓水仙花数是指:这个数各个数位上的数字的立方和等于这个数本身。如:153=1**3+5**3+3**3.CLEARFORi=100to999gw=i%10sw=INT(i/10)%10bw=INT(i/100)IFgw**3+sw**3+bw**3=i?iENDIFENDFORRETURN3、A,B,C是100以内的自然数,A
2、0FORa=1to100FORb=a+1to100FORc=b+1to100IFa**2+b**2=c**2n=n+1ENDIFENDFORENDFORENDFOR?nRETURN4、求100以内所有的素数的个数。CLEARn=0FORi=2to100IFsu(i)n=n+1ENDIFENDFOR?nRETURNFUNCTIONsu(x)flag=.f.FORm=2toINT(SQRT(x))IFx%m=0EXITENDIFENDFORIFm=INT(SQRT(x))+1flag=.t.ELSEflag=.f.ENDIFRETURNflag1、将1块钱换成1分,2分,
3、5分的硬币,要求每种硬币至少一枚,请问有多少种兑换的方法。CLEARn=0FORyf=1to100FORef=1to50FORwf=1to20IFyf*1+ef*2+wf*5=100n=n+1ENDIFENDFORENDFORENDFOR?nRETURN2、有一个数列,这个数列的第一项是1,第二项也是1,从第三项开始,每一项是前两项之和。请问这个数列的第43项是多少,前50项的和是多少。CLEARDIMENSIONfib(50)fib(1)=1fib(2)=1sum=fib(1)+fib(2)FORi=3to50fib(i)=fib(i-1)+fib(i-2)sum=
4、sum+fib(i)ENDFOR?fib(43),sumRETURN
此文档下载收益归作者所有