vfp编程产生菲波拉默契数列20项
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/01 17:58:41
clear&&清屏t=o&&给t赋初值s=1&&赋初值给sfori=1to10&&循环s=s*i&&s=i!t=s+t&&t为1到i的阶乘和endfor&&循环终点"T=1!+2!+3!+…+10!=
新建-程序文件.最后保存的后缀应该是prg.
input"n="tonfora=10^(n-1)to10^ns=0b=adowhileb0s=s+(b%10)^nb=int(b/10)enddoifs=a?int(a)endifendfo
clears=0a=2b=1fori=1to20k=a/ba=a+bb=a-bs=s+kendfor?"2/1,3/2,5/3,8/5,13/8…前二十项的和为:",s
INPUT"输入自然数:"TOnnSUM(n)RETURNFUNCTIONnSUMPARAMETERSnns=0FORi=1TOnns=s+iENDFORRETURNs
x=Val(Inputbox("请输入一个数:","测试"))Ifx>0Y=x*xEndifIfx=0Y=100EndifIfx
i=0s=0DOWHILEi
clears=0i=1dowhilei
forj=1to9a(i)=a(j+1)endfor改成:forj=ito9a(j)=a(j+1)endfor再问:运行了下,结果是1098765432...再答:不会吧,你将我给你改的拷贝粘贴进去看
新的数字放在数组最后向前循环比较大小,进行位置调换亦可如下方式:dimea(5)FORi=1TO4a(1)=17a(2)=36a(3)=45a(4)=65ENDFORb=46FORi=4TO1STEP
1、clears=1fori=1to9s=s+i/(i+1)endfor2、clears=0fori=10to100ifmod(i,2)=0s=s+iendifendfo
1、clearinput"请输入成绩:"tocjdocasecasecj>=0andcj=60andcj=80andcj=90andcj
经过调试,可以写如下代码:clearS=0fori=1to100ifmod(i,2)=0x=x-1/ielsex=x+1/iendifendfor"S=",s
clears=0fori=2to100step2s=s+1/iendfor"s=",sreturn
契约,约定
cleara=1b=1s=0fori=1to18c=a+bs=s+ca=bb=cendfor"斐波拉契数列前30项的和:",s再问:不是求前30项的和吗》为什么fori=1to18呢?再答:哦,笔误,
input"请输入一个数:"toainput"请输入一个数:"tobinput"请输入一个数:"tocmax=aifmax
****!输出菱形CLEARFORi=1TO4FORj=iTO3?""ENDFORFORj=1TO2*i-1?"*"ENDFORFORj=iTO3?""ENDFOR?ENDFORFORi=3TO1ST
//把n变为2进制数//由低往高数位置,最低位为第0位//若第i位为1,就将k^i累加到ans//例如n是6,二进制数为:110,所以结果为k^1+k^2vark,n,ans:longint;i,t:
clears=0t=1input"请输入n的值:"tonfori=1tont=t*is=s+tendfor"1!+2!+3!+.N!=",s