最新VF程序题练习一级Word文件下载.docx
《最新VF程序题练习一级Word文件下载.docx》由会员分享,可在线阅读,更多相关《最新VF程序题练习一级Word文件下载.docx(26页珍藏版)》请在冰豆网上搜索。
=2
ifmod(b,a)=0
s=s+b
t=t+1
ENDIF
ELSE
loop
10864
5、求559399的所有非平凡因子(即除1和它本身以外的约数)中最小的。
a=559399
forn=2toa
ifmod(a,n)=0
73
6、求179869和196037的最大公约数。
a=179869
b=196037
ford=2toa
ifmod(d,a)=0andmod(d,b)=0
max=d
max
2021
7、求[1,100]内能被6或8整除的所有自然数的平方根的和(将第1位小数四舍五入,结果
只保留整数)。
forn=1to100
ifmod(n,6)=0andmod(n,8)=0
s=sqrt(s+n)
round(s,0)
答案162
8、求出[100,999]内恰有1位数字是7的所有整数之和。
forx=100to999
a=int(x/100)
b=INT(x-a*100)/10
c=MOD(x,10)
if(a=7ANDb!
=7ANDc!
=7)or(a!
=7ANDb=7ANDc!
=7ANDb!
=7ANDc=7)
答案137750
9、编写程序,计算10000以内有多少个这样的数,其个位数为6且该数能被9整除。
clea
fori=1to10000
ifmod(i,10)=6
ifmod(i,10)=9
答案111
10、已知24有8个正整数因子(即:
1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。
求[100,300]之间能被其因子数目整除的数的个数。
c=0
forn=100to300
s=0
fori=1ton
ifint(i/10)=0
s=s+1
endfor
ifmod(n,s)=0
c=c+1
答案19
11、闰年是指年号能被4整除,但不能被100整除,或者能被400整除的年份。
求1000年到2050年之间共有多少闰年。
fori=1000to2050
ifmod(i,4)=0ormod(i,100)#0andmod(i,400)=0
答案255
12、求出203267的所有真因子(即小于它本身的约数)中最大的。
a=203267
forb=1toa-1step-1
exit
b
答案6557
13、将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后,求前面20个数之和。
k=0
x=1000
dowhilek<
=20
x=x+1
ifmod(x,3)=0ormod(x,5)=0
k=k+1
enddo
答案20465
14、求1000以内最小的自然数n,使得从1开始的连续n个自然数的倒数之和大于5.6。
forn=1to1000
s=s+1/n
ifs>
=5.6
n
答案152
15、求500以内最小的自然数n,使得从102开始的连续n个偶数之和大于60000。
forn=0to500
a=102+2*n
s=s+a
60000
答案199
16、求出100以内使得算式1+(1+2)+…+(1+2+…+n)的值小于1000的最大的自然数n。
s=s+n
t=t+s
ift<
1000
n-1
答案17
17、求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值小于0.68。
forn=1to100step2
a=1/n-1/(n+1)
ifs<
0.68
n-1
答案36
18、某国在2000年时人口总数为1亿,若以每年3%的速度递增,试求出至少要到哪一年该国人口总数才会翻一翻。
s=1
forn=2001to2100
s=s*1.03
ifs=2
答案2024
19、已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中小于6000的最大的项。
a=1
forn=0to1000
ifa+n<
6000
exit
a=a+n
a
答案5996
20、求S=1-1/3+1/5-1/7+.....的前100项之和。
f=-1
fori=1to100
s=s-f/(2*i+1)
f=-1*f
答案0.7829
21、求最大的自然数n,使得从1开始的连续n个自然数的倒数之和小于10。
forn=1to100000
=10
答案12366
22、求最小的自然数n,使得从101开始到n中被3除余1的数之和大于8000。
forn=101to100000
ifmod(n,3)=1
8000
答案241
23、求使得算式1*3+2*5+…+n*(2n+1)的值小于10000的最大的自然数n。
s=s+n*(2*n+1)
=10000
答案23
24、求最大的自然数n使得算式(1/1-1/2)+(1/3-1/4)+…+(1/(2n-1)-1/(2n))的值小于0.68。
forn=1to1000step2
25、设等比数列:
1,3,9,27,…。
求使得此数列的前n项之和大于2345678的最小的自然数n。
s=s*a
2345678
a=3*a
答案14
26、一球从100米高处落至平地,并且连续多次再反弹再落下,假设每次反弹的高度都是前一高度的3/4倍,试求出最小的自然数n,使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过589米。
h=100
s=h
h=h+h*3/4
s=s+2*h
589
endif
答案7
27、设有用26个字母表示的26个表达式:
a=1,b=1/(a+1),c=1/(b+2),…,z=1/(y+25)。
试求出这26个字母中其值小于0.1的字母个数。
lett=0
fork=1to25
lett=1/(lett+k)
iflett>
=0.1
答案16
28、已知数列{f(n)}:
f
(1)=1,f
(2)=1,当n>
2时f(n)=3f(n-2)-f(n-1)。
试求此数列的前15项中所有正数项之和。
dimensionf(20)
f
(1)=1
f
(2)=1
forn=3to15
f(n)=3*f(n-2)-f(n-1)
iff(n)#0
s=s+f(n)
答案12293
29、求方程3x-7y=1在条件|x|<
100且|y|<
40下的整数解的个数。
forx=-99to99
y=int((3*x-1)/7)
if3*x-7*y=1orabs(y)<
40
答案26
30、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?
foryi=11to100
forer=11to20
forwu=11to20
ifyi+er+wu=100
答案13
31、求方程3x-7y=1在条件|x|<
40下的所有整数解的|x|+|y|的最大值。
max=0
y=int((3*x)/7)
z=abs(x+y)
if3*x-7*y=1andabs(y)<
40
max=z
答案127
32、编写程序,求所有符合算式ij*ji=2668的最大数ij(即i*10+j)。
其中i、j是1~9之间的一位整数。
max=10
fori=1to9
forj=1to9
ifij+ji=2668
ifmax<
ij
max=10*i+j
答案92
33、找满足以下条件:
X^2+Y^2+Z^2=41^2且X+Y+Z之值最大的三个正整数X,Y,Z,求X+Y+Z之值.
forx=0to41
fory=0to41
forz=0to41
ifx*2+y*2+z*2=41*41
ifmax>
x+y+z
max=x+y+z
答案71
34、求100-1000内的所有素数的平均数。
(素数是指只能被1和本身整除的数)
fori=100to1000
f=1
forj=2toi
ifmod(i,j)=0
f=0
iff=0
n=n+i
n/t
答案524.9441
35、一个大于6的偶数可以表示为两个素数之和,即C=A+B,其中C为偶数,A与B为素数。
求出280的所有素数和表示中A*B的最大值。
c=280
fora=3toc/2STEP2
f1=1
forj=2toa-1
ifmod(a,j)=0
f1=0
ENDFOR
IFf1=1
b=c-a
f2=1
forj=2tob-1
ifmod(b,j)=0
f2=0
IFf1=1orf2=1
IFmax>
a*b
max=a*b
答案19519
36、设某四位数的各位数字的立方和等于100,问满足这种条件的四位数且是素数的数共有多少个?
forx=1000to9999
fori=2toint(sqrt(x))
ifmod(x,i)=0
a=int(x/1000)
b=int((x-a*1000)/100)
c=int(x/10)
d=MOD(x,10)
IFa*a*a+b*b*b+c*c*c+d*d*d=100
?
return
答案1933
37、求100-1000内的第10个素数。
iff=1
n=i
k=k+i
ifk=10
答案149
38、梅森尼数是指能使2^n-1为素数的数n,求[1,21]范围内的梅森尼数的个数?
forI=2to21
flag=1
*下行有错
forj=2toI
ifmod((2^I-1),j)=0
flag=0
ifflag=0
39、一个大于6的偶数可以表示为两个素数之和,即C=A+B,其中C为偶数,A与B为素数。
求出300的所有素数和表示中A*B的最大值。
c=300
max=10000000
IFmax<
答案22499
40、回文数指的是正读和反读都一样的数字,如121、1221。
试求出[1234,9876]内奇数回文数的个数。
forx=1234to9876
a=x/1000
b=int((x-a*1000)/100)
c=int((x-a*1000-b*100)/10)
d=x-a*1000-b*100-c*10
*下行有错
ifa=dandb=candmod(x,2)=0
答案45
41、勾股弦数是满足公式:
A^2+B^2=C^2(假定A<
B<
C)的一组正整数(A,B,C),例如,(3,4,5)是勾股弦数,因为:
3^2+4^2=5^2。
求A,B均小于25且A+B+C<
=100的勾股弦数的个数。
fora=1to25
forb=1to25
forc=1to100
ifa<
bandb<
c
ifa+b+c=100
答案11
42、若一个四位正整数是另一个正整数的平方,且各位数字的和是一个平方数,则称该四位正整数是"
四位双平方数"
。
例如:
由于7396=86^2,且7+3+9+6=25=5^2,则称7396是"
求所有"
中最大的一个"
fori=1000to9999
a=i/1000
b=int((i-a*1000)/100)
c=int((i-a*1000-b*100)/10)
d=mod(i,10)
x=a+b+c+d
ifsqrt(i)=int(sqrt(i))andsqrt(x)=int(sqrt(x))
*下行有错
i
max=i
min
答案9025
43、若一个四位正整数是另一个正整数的平方,且各位数字的和是一个平方数,则称该四位正整数是"
且十位数字是3的数之和"
d=mod