FoxPro程序填空.docx
《FoxPro程序填空.docx》由会员分享，可在线阅读，更多相关《FoxPro程序填空.docx（63页珍藏版）》请在冰豆网上搜索。
FoxPro程序填空
一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求所有两位绝对素数的和。
settalkoff
clea
s=0
fori=10to99
j=____________
f1=1
fork=2toi-1
ifmod（i,k）=0
f1=0
endif
endfor
f2=1
fork=2toj-1
ifmod（j,k）=0
f2=0
endif
endfor
if___and_____
s=s+i
endif
endfor
?
s
return
429
已知Fibonacci数列：
1,1,2,3,5,8,……,其特点是：
从第3项开始，每一项都是其前两项之和。
试求此数列的第29项。
settalkoff
clear
f1=1
f2=1
forn=______
f1=f1+f2
________
endfor
?
f1
settalkon
return
514229
已知Fibonacci数列{f（n）}：
1,1,2,3,5,8,……,其特点是：
从第3项开始，每一项都是其前两项之和。
试求f
（2）+f（4）+…+f（30）。
settalkoff
clear
f1=1
f2=1
______
forn=2to15
f1=f1+f2
________
s=s+f2
endfor
?
s
settalkon
return
1346268
求[100,200]内有偶数因子（包括1和其本身）的数的个数。
settalkoff
clear
______
fori=100to200
k=0
forj=1toi
ifmod（i,j）=0
________
endif
endfor
ifmod（k,2）=0
n=n+1
endif
endfor
?
n
settalkoff
return
96
求[100,200]内有奇数因子（包括1和其本身）的数的之和。
settalkoff
clear
s=0
fori=100to200
_____
forj=1toi
ifmod（i,j）=0
k=k+1
endif
endfor
ifmod（k,2）=1
_________
endif
endfor
?
s
settalkoff
return
730
整数60的质因数共有4个：
2、2、3、5，求103385的最大有质因数。
[算法提示：
按小学介绍的分解质因数的方法]
settalkoff
clear
a=103385
max=1
_____
dowhilea>1
ifmod（a,b）=0
max=b
a=int（a/b）
_______
endif
b=b+1
enddo
?
max
settalkon
return
31
*一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求两位数中最大的绝对素数与最小绝对素数之差。
settalkoff
clea
min=100
max=0
fori=10to99
j=mod（i,10）*10+int（i/10）
f1=1
fork=2toi-1
ifmod（i,k）=0
_________
endif
endfor
f2=1
fork=2toj-1
if_________
f2=0
endif
endfor
if_________
ifmin>i
min=i
endif
max=i
endif
endfor
?
max-min
return
86
已知数列：
1、2、4、7、11、16、…，其特点是：
相邻两项之差恰好构成自然数列：
1、2、3、4、5、…。
求此数列的前200项中能被4整除的项之和。
settalkoff
clear
______
s=0
forn=2to200
a=a+n-1
_________
s=s+a
endif
endfor
?
s
settalkon
return
333300
*一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求所有两位绝对素数的个数。
settalkoff
clea
s=0
fori=10to99
j=__________
f1=1
fork=2toi-1
ifmod（i,k）=0
f1=0
endif
endfor
f2=1
fork=2toj-1
if________
f2=0
endif
endfor
if__________
s=s+1
endif
endfor
?
s
return
9
有一个4行5列的数表，位于第m行和第n列交叉处的数的值为m+n。
求出此数表中所有数的和。
settalkoff
clear
dimensiona（4,5）
________
form=1to4
forn=1to5
__________
s=s+a（m,n）
endfor
endfor
?
s
settalkon
return
110
"水仙花数"是指这样的数，其各位数字的立方和等于该数本身，如:
153=1^3+5^3+3^3。
编写程序，计算从100年开始到3000年为止，最大的水仙花数年号为多少？
settalkoff
clea
s=0
fori=100to3000
a=int（i/1000）
b=________
c=int（mod（i,100）/10）
d=mod（i,10）
if______________
__________
endif
endfor
?
s
return
1301
"水仙花数"是指这样的数，其各位数字的立方和等于该数本身，如:
153=1^3+5^3+3^3。
编写程序，计算从100年开始到3000年为止，最大的水仙花数年号为多少？
settalkoff
clea
max=0
fori=100to3000
a=int（i/1000）
b=int（（i-a*1000）/100）
c=___________
d=mod（i,10）
ifa*a*a+b*b*b+c*c*c+d*d*d=____
___________
endif
endfor
?
max
return
407
"水仙花数"是指这样的数，其各位数字的立方和等于该数本身，如:
153=1^3+5^3+3^3。
编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。
settalkoff
clea
n=0
fori=100to2000
a=int（i/1000）
b=int（（i-a*1000）/100）
c=________
d=mod（i,10）
if_______________
n=n+1
endif
endfor
?
n
return
4
设有一个12*12方阵A（I,j）,其每个元素的值为该元素下标的平方和,求出该矩阵所有主对角线（i=j）上的元素的累加和.（注:
I,j从1开始）
settalkoff
dimea（12,12）
_______
fori=1to12
forj=1to12
a（i,j）=_______
if_______
s=s+a（i,j）
endif
endfor
endfor
?
s
return
1300
设有一个12*12方阵A（I,j）,其每个元素的值为该元素下标的平方和,求出该矩阵所有元素的累加和.（注:
I,j从1开始）
settalkoff
______
fori=1to12
_________
s=_______
endfor
endfor
?
s
return
15600
*50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到3时，这人从圈里出来，继续数1,2,3数到第3个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。
settalkoff
clea
dimea（50）
fori=1to50
a（i）=i&&0表示出队
endfor
k=0
fori=1to50
p=1
dowhilep<=3
k=K+1
if_________
k=1
endif
if_______
p=p+1
endif
enddo
a[k]=0
endfor
?
k
settalkoff
return
11
50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。
settalkoff
clea
dimea（50）
fori=1to50
a（i）=i
endfor
bs=0
k=0
fori=1to50
p=1&&每趟报数
dowhilep<=5
k=K+1
ifk>50
________
endif
ifa[k]<>0
p=_______
endif
enddo
a[k]=________
endfor
?
k
settalkoff
return
19
一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求两位数中最大的绝对素数。
settalkoff
clea
max=0
fori=10to99
j=______________
f1=1
fork=2toi-1
ifmod（i,k）=0
f1=0
endif
endfor
f2=1
fork=2toj-1
ifmod（j,k）=0
f2=0
endif
endfor
if____________
________
endif
endfor
?
max
return
97
求方程5x+3y=200的所有正整数解的个数。
settalkoff
clear
n=0
forx=1to39
___________
y=int（y1）
ify=y1
_______
endif
endfor
?
n
settalkon
return
13
设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？
settalkoff
clea
n=0
forx=1000to9999
a=int（x/1000）
b=int（（x-a*1000）/100）
c=____________
d=mod（x,10）
if____________
n=n+1
endif
endfor
?
n
settalkon
return
49
求出将十进制整数87654321等值转换为二进制形式表示后其中数字0的个数。
（提示：
模拟人工计算的“2除取余”法）
settalkoff
clear
a=87654321
p=2
______
dowhilea>0
r=mod（a,p）
ifr=0
n=n+1
endif
a=________
enddo
?
n
settalkon
return
10
已知数列{f（n）}:
f
（1）=1,f
（2）=1,当n>2时f（n）=f（n-2）+f（n-1）。
试求此数列的第15项至第25项共11项之和。
settalkoff
clear
dimensionf（25）,s（25）
f
（1）=1
f
（2）=1
_______
forn=3to25
_______________
s（n）=s（n-1）+f（n）
endfor
?
s（25）-s（14）
settalkon
return
195431
已知数列{f（n）}:
f
（1）=1,f
（2）=1,当n>2时f（n）=3*f（n-2）-f（n-1）。
试求此数列的前20项中所有负数项的绝对值之和。
settalkoff
clear
dimensionf（20）
f
（1）=1
f
（2）=1
s=0
forn=3to20
___________
iff（n）<0
__________
endif
endfor
?
s
settalkon
return
789769
求出将十进制小数0.987654321等值转换为二进制形式表示后前30位小数中数字0的个数。
（提示：
使用“2乘取整”法）
settalkoff
clear
x=0.987654321
n=0
fork=1to30
________
z=int（x）
x=x-z
ifz=0
______
endif
endfor
?
n
settalkon
return
11
求出将十进制小数0.56789等值转换为八进制形式的表示中前18位小数中数字4的个数。
（提示：
使用“8乘取整”法）
settalkoff
clear
x=0.56789
_______
fork=1to18
________
z=int（x）
x=x-z
?
z,x
ifz=4
n=n+1
endif
endfor
?
n
settalkon
return
6
对自然数A、B、C，若A试求出弦为25600的勾股弦数组的个数。
settalkoff
clear
c=25600
_________
fora=1toc
b=int（sqrt（c*c-a*a））
___________________
n=n+1
endif
endfor
?
n
settalkon
return
2
已知a>b>c，且a+b+c<100，求满足方程_1/（a^2）+1/（b^2）=1/（c^2）的正整数解（a,b,c）共有多少组。
[注：
为避免误差，方程可等价变形为b*b*c*c+a*a*c*c=a*a*b*b]
settalkoff
clear
n=0
forc=1to99
forb=c+1to99
____________
ifb*b*c*c+a*a*c*c=a*a*b*b
_______
endif
endf
2
求方程3x-7y=1在条件|x|<50且|y|<20下的整数解的个数。
settalkoff
clear
n=0
forx=__________
y=int（（3*x-1）/7）
if_______________
n=n+1
endif
endfor
?
n
settalkon
return
13
有一个4行5列的数表，位于第m行和第n列交叉处的数的值为m+n。
求出此数表中所有数的平方和。
settalkoff
clear
dimensiona（4,5）
s=0
form=1to4
forn=1to5
___________
s=s+___________
endfor
endfor
?
s
settalkon
return
670
求方程7x+5y=2000的所有正整数解（x,y）的x与y之差的绝对值|x-y|的最大值。
settalkoff
clear
z=2000
max=0
forx=1toint（z/7）
y=int（（z-7*x）/5）
________
if7*x+5*y=zandy>0andmaxmax=w
endif
endfor
?
_____
settalkon
return
388
求S=2!
+4!
+6!
+…+12!
（注：
自然数N的阶乘记为N!
，即1*2*3*…*N）。
settalkoff
clear
t=1
________
forn=2to12step2
t=__________
s=s+t
endfor
?
s
settalkon
return
482671466
求S=1/1!
+1/2!
++1/3!
+…+1/10!
的值（按四舍五入方式保留两位小数）。
（注：
自然数N的阶乘记为N!
，即1*2*3*…*N）。
settalkoff
clear
_____
s=0
forn=1to10
t=t/n
_______
endfor
?
round（s,2）
settalkon
return
1.72
求等比数列1、2、4、8、16、…的前若干项累加和S，当S>100000时停止累加立即输出结果。
settalkoff
clear
t=1
____
dowhiles<=100000
______
s=s+t
enddo
?
s
settalkon
return
131071
所谓回文数是从左至右与从右至左读起来都是一样的数字，如：
121是一个回文数。
编写程序，求出100-900之间所有能被3整除的回文数的个数。
settalkoff
clear
n=0
fori=100to999
a=int（i,100）
c=mod（i,10）
if______________
___________
endif
endfor
?
n
settalkon
return
30
所谓回文数是从左至右与从右至左读起来都是一样的数字，如：
121是一个回文数。
编写程序，求出100-900之间所有能被4整除的回文数的之和。
settalkoff
clear
s=0
fora=1to9
forb=0to9
forc=0to9
x=100*a+10*b+c
if_____________
_________
endif
endfor
endfor
endfor
?
s
return
11000
若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。
例如：
由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。
求所有"四位双平方数"的个数"。
settalkoff
clea
n=0
fori=1000to9999
a=int（i/1000）
b=int（（i-a*1000）/100）
c=_________
d=mod（i,10）
x=a+b+c+d
ifint（sqrt（i））*int（sqrt（i））=iand_____________
n=__________
endif
endfor
?
n
settalkon
return
17
对自然数A、B、C，若A试求出弦为13000的勾股弦组数。
settalkoff
clear
c=13000
__________
fora=1toc
b1=sqrt（c*c-a*a）
b=int（b1）
ifb=b1________
n=n+1
endif
endfor
?
n
settalkon
return
10
设某四位数的各位数字的平方和等于100，问满足这种条件的最大数和最小数之差是多少？
settalkoff
clea
min1=9999
max1=1000
forx=1000to9999
a=int（x/1000）
b=int（（x-a*1000）/100）
c=__________
d=mod（x,10）
ifa*a+b*b+c*c+d*d=100
ifmax1_________
endif
ifmin1>x
________
endif
endif
endfor
?
max1-min1
settalkon
return
8154
若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是"四位双平方数"。
例如：
由于7396=86^2，且7+3+9+6=25=5^2，则称7396是"四位双平方数"。
求所有"四位双平方数"且十位数字是3的数的之和"。
settalkoff
clea
n=0
fori=1000to9999
a=int（i/1000）
b=__________
c=int（mod（i,100）/10）
d=mod（i,10）
x=a+b+c+d
ifint（sqrt（i））*int（sqrt（i））=iand_______________andb=3
n=____________
endif
endfor
?
n
settalkon
return
13064
找满足以下条件:
X^2+Y^2+Z^2=41^2（Xsettalkoff
clea
min=10000
forx=0to41
fory=x+1to41
forz=________
if___________
if_______
min=x+y+z
endif
endif
endfor
endfor
endfor
?
min
settalkon
return
49
找满足以下条件:
X^2+Y^2+Z^2=41^2且X+Y+Z之值最大的三个正整数X,Y,Z,求X+Y+Z之值.
settalkoff
clea
max=0
forx=0to41
fory=0to41
forz=0to41
if___________
if_________
max=x+y+z
endif
endif
endfor
endfor
endfor
?
_______
settalkon
return
71
把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后其中二分的硬币恰有20枚的方案共有多少种?
settalkoff
clea
n=0
foryi=1to100
forwu=1to20
_______
ifyi+er*2+wu*5=______
________
endif
endfor
endfor
?
n
settalkon
return
11
把一张一元钞票,换成一分
升级会员 