二级foxpro程序改错.docVIP

二级foxpro程序改错 4060题: 已知一个由分数组成的数列：1/2，2/3，3/5，5/8，8/13，…，其特点：是从第2个分数起，每个分数的分子都是前一分数的分母而其分母都是其前一分数的分子与分母之和。试求出此数列的前25项中其值大于0.618的项数。 原程序： set talk off clear f1=1 f2=2 n=0 for k=1 to 25 g=f1/f2 if g0.618 n=n+1 endif f=f1+f2 f1=f2+f f2=f+f1 endfor ? n set talk on return 答案： 20 4061题: 已知一个由分数组成的数列：1/2，2/3，3/5，5/8，8/13，…，其特点：是从第2个分数起，每个分数的分子都是前一分数的分母而其分母都是其前一分数的分子与分母之和。试求出此数列的前25项中其值小于0.618的项数。 原程序： set talk off clear f1=1 f2=2 n=0 for k=1 to 25 g=f2/f1 if g0.618 n=n+1 endif f=f1+f2 f1=f2 f2=f1 endfor ? n set talk on return 答案： 5 4088题: 求出将十进制整数99887766554等值转换为十六进制形式表示后其中字母C的个数。（提示：模拟人工计算的“16除取余”法） 原程序： set talk off clear a=99887766554 p=16 n=0 do while a=0 r=mod(a,p) if r=11 n=n+r endif a=int(a/p) enddo ? n set talk on return 答案： 2 4103题: 已知数列{f(n)}：f(1)=1，f(2)=3，当n=3,4,5,…时，f(n)=f(n-1)-f(n-2)。试求出100以内最大的自然数n使得此数列的前n项之和第3次等于0。 原程序： set talk off clear dimension f(100) f(1)=1 f(2)=3 s=f(1)+f(2) t=1 for n=3 to 20 f(n)=f(n-1)-f(n-2) s=s+f(n) if s=0 t=t+1 if t=3 loop endif endif endfor ? n set talk on return 答案： 18 4104题: 已知数列{f(n)}：f(1)=1，f(2)=3，当n=3,4,5,…时，f(n)=f(n-1)-f(n-2)。试求出100以内最大的自然数n使得此数列的前n项之和第5次等于5。 原程序： set talk off clear dimension f(100) f(1)=1 f(2)=3 s=0 t=0 for n=3 to 100 f(n)=f(n-1)-f(n-2) s=s+f(n) if s=5 t=t+s if t=5 exit endif endif endfor ? n set talk on return 答案： 28 4125题: 设某四位数的各位数字的立方和等于100，问满足这种条件的四位数且是素数的数共有多少个？ 原程序： set talk off clea n=0 for x=1000 to 9999 f=1 for i=2 to int(sqrt(x)) if mod(x,i)=0 f=0 exit endif endfor if f=1 a=int(x/1000) b=int((x-a*1000)/100) c=int(mod(x,100)/10) d=mod(x,10) if a*3+b*3+c*3=100 n=n+x endif endif endfor ? n set talk on return 答案： 4 4126题: 设某四位数的各位数字的平方和等于100，问满足这种条件的四位数且是素数的数共有多少个？ 原程序： set talk off clea n=0 for x=1000 to 9999 f=1 for i=2 to int(sqrt(x)) if mod(x,i)=0 f=0 exit endif endfor if f=0 a=int(x/1000) b=int((x-a*1000)/100) c=mod(x,100) d=mod(x,10) if a*a+b*b+c*c+d*d=100 n=n+1 endif endif endfor ? n set talk on return 答案： 5 4127题: 设某四位数的各位数字的平方和等于100，问满足这种条件的最