FoxPro程序填空.docx
- 文档编号:9881478
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:63
- 大小:29.70KB
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个小学生按1至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个小学生按1至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>0andmax max=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(X settalkoff 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 把一张一元钞票,换成一分
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FoxPro 程序 填空