湖南省二级VF程序设计题题库.docx
- 文档编号:7680720
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:210
- 大小:70.35KB
湖南省二级VF程序设计题题库.docx
《湖南省二级VF程序设计题题库.docx》由会员分享,可在线阅读,更多相关《湖南省二级VF程序设计题题库.docx(210页珍藏版)》请在冰豆网上搜索。
湖南省二级VF程序设计题题库
求出[10,1000]内所有能被7和9中至少一个数整除的整数的个数。
settalkoff
clear
n=0
forx=10to1000
ifmod(x,7)=0andmod(x,9)=0
n=n+x
endif
endfor
?
n
settalkon
return
236
求出[10,1000]内所有能同时被7和9整除的整数之和。
settalkoff
clear
s=0
forx=10to1000
ifmod(x,7)=0andmod(x,9)=0
s=x
endif
endfor
?
x
settalkon
return
7560
求出[10,1000]内所有能被6整除但不能被9整除的整数之和。
settalkoff
clear
s=0
forx=10to1000
ifmod(x,6)=0ormod(x,9)=0
x=s+x
endif
endfor
?
s
settalkon
return
55440
求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。
settalkoff
clear
n=0
forx=10to1000
ifmod(x,6)=0andmod(x,9)!
=0andmod(x,6)!
=0andmod(x,9)=0
n=x
endif
endfor
?
n
settalkon
return
165
求出[100,800]内所有既不能被5整除也不能被7的整数的个数。
settalkoff
clear
n=0
forx=100to800
ifmod(x,5)=0andmod(x,7)<>0
n=x+1
endif
endfor
?
x
settalkon
return
480
求出[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
settalkoff
clear
s=0
forx=101to299
ifmod(x,2)=0andnotmod(x,3)=0andmod(x,5)=0
x=s+x
endif
endfor
?
s
settalkon
return
18630
求出100以内最大的自然数n,使得从1开始的连续n个自然数的倒数之和小于3.5。
settalkoff
clear
s=0
forn=1to100
s=(s+1)/n
ifs>=3.5
loop
endif
endfor
?
n-1
settalkon
return
18
求出100以内最小的自然数n,使得从1开始的连续n个自然数的倒数之和大于3.6。
settalkoff
clear
s=0
forn=1to100
s=s+1/n
ifs<=3.6
loop
endif
endfor
?
n
settalkon
return
21
求出100以内最大的自然数n,使得从1开始的连续n个自然数的平方和小于5000。
settalkoff
clear
s=0
forn=1to100
s=s+n*2
ifs>=5000
exit
endif
endfor
?
n
settalkon
return
24
求出100以内最小的自然数n,使得从1开始的连续n个自然数的平方之和大于5500。
settalkoff
clear
s=0
forn=1to100
s=s+n*n
ifs<=5500
exit
endif
endfor
?
s
settalkon
return
25
求出100以内最大的自然数n,使得从1开始的连续n个自然数的立方和小于20000。
settalkoff
clear
s=0
forn=1to100
s=s+n*3
ifs>=20000
exit
endif
endfor
?
n
settalkon
return
16
求出100以内最小的自然数n,使得从1开始的连续n个自然数的立方之和大于30000。
settalkoff
clear
s=0
forn=1to100
s=s+n*n*3
ifs>30000
loop
endif
endfor
?
n
settalkon
return
19
求出50以内最大的自然数n,使得从102开始的连续n个偶数之和小于3000。
settalkoff
clear
s=0
forn=1to50
a=100+2*n
s=s*a
ifs>=3000
loop
endif
endfor
?
n-1
settalkon
return
23
求出50以内最小的自然数n,使得从102开始的连续n个偶数之和大于2000。
settalkoff
clear
s=0
forn=1to50
a=102+2*n
s=s+a
ifs>2000
loop
endif
endfor
?
n
settalkon
return
17
求出50以内最大的自然数n,使得从101开始的连续n个奇数之和小于2000。
settalkoff
clear
s=0
forn=1to50
a=99+2*n
s=s+a
ifs<2000
exit
endif
endfor
?
n
settalkon
return
17
求出50以内最小的自然数n,使得从101开始的连续n个奇数之和大于3000。
settalkoff
clear
s=0
forn=1to50
a=101+2*n
s=s+a
ifs>3000
exit
endif
endfor
?
s
settalkon
return
25
求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*(n+1)
s=s+a
ifs<5000
exit
endif
endfor
?
n
settalkon
return
23
求出100以内使得算式1*2+2*3+…+n*(n+1)的值大于6000的最小的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*(n+1)
s=s+a
ifs<=6000
loop
endif
endfor
?
n
settalkon
return
26
求出100以内使得算式1*3+2*5+…+n*(2*n+1)的值小于10000的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*2*(n+1)
s=s+a
ifs>=10000
loop
endif
endfor
?
n-1
settalkon
return
23
求出100以内使得算式1+(1+2)+…+(1+2+…+n)的值小于1000的最大的自然数n。
settalkoff
clear
s=0
t=0
forn=1to100
s=s+n
t=t+s
ift<1000
exit
endif
endfor
?
n
settalkon
return
17
求出100以内使得算式1+(1+2)+…+(1+2+…+n)的值大于1500的最小的自然数n。
settalkoff
clear
t=0
forn=1to100
s=t+n
t=s+n
ift>1500
exit
endif
endfor
?
n
settalkon
return
20
求出100以内使得算式1/(1*2)+1/(2*3)+…+1/(n*(n+1))的值小于0.952的最大的自然数n。
settalkoff
clear
s=0
forn=1to100
s=s+1/n*(n+1)
ifs<0.952
exit
endif
endfor
?
n-1
settalkon
return
19
求出100以内使得算式1/(1*1)+1/(2*3)+…+1/(n*(2n-1)的值大于1.35的最小的自然数n。
settalkoff
clear
s=0
forn=1to100
a=n*(2*n-1)
s=s+a
ifs>1.35
loop
endif
endfor
?
n
settalkon
return
14
求出100以内的最大的自然数n,使得算式1+1/(1+2)+…+1/(1+2+…+n)的值小于1.9。
settalkoff
clear
s=0
t=0
forn=1to100
s=s+1/n
t=t+s
ift>=1.9
exit
endif
endfor
?
n-1
settalkon
return
18
求出100以内使得算式1+1/(1*2)+…+1/(1*2*…*n)的值大于1.71828的最小的自然数n。
settalkoff
clear
a=1.00000000
s=0.00000000
forn=1to100
a=a/n
s=s+a
ifs<=1.71828
loop
endif
endfor
?
n
settalkon
return
9
求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值小于0.68。
settalkoff
clear
s=0
forn=1to100step2
a=1/n-1/(n+1)
s=s+a
ifs<0.68
exit
endif
endfor
?
n-2
settalkon
return
35
求出100以内使算式(1-1/2)+(1/3-1/4)+…+(1/n-1/(n+1))的值大于0.682的最小的奇数n。
settalkoff
clear
s=0
forn=1to100
a=1/n-1/(n+1)
s=s+a
ifs<=0.682
exit
endif
endfor
?
n
settalkon
return
45
某国在2000年时人口总数为1亿,若以每年3%的速度递增,试求出至少要到哪一年该国人口总数才会翻一翻。
settalkoff
clear
s=1
forn=2001to2100
s=s*1.03
ifs=2
loop
endif
endfor
?
n
settalkon
return
2024
某国今年的人口总数为1亿,若以每年4%的速度递增,试求出至少要再过几年该国人口总数才会翻一翻。
settalkoff
clear
s=0
forn=1to100
s=s*1.04
ifs>=2
loop
endif
endfor
?
n
settalkon
return
18
设等比数列:
1,2,4,8,…。
求使得此数列的前n项之和大于100000的最小的自然数n。
settalkoff
clear
a=1
s=1
forn=1to100
s=s+a
ifs>100000
exit
endif
a=2+a
endfor
?
n
settalkon
return
17
设等比数列:
1,2,4,8,…。
求使得此数列的前n项之和小于150000的最大的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s+a
ifs>=150000
exit
endif
a=2+a
endfor
?
n
settalkon
return
17
设等比数列:
1,3,9,27,…。
求使得此数列的前n项之和大于2345678的最小的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s*a
ifs>2345678
exit
endif
a=3+a
endfor
?
n
settalkon
return
14
设等比数列:
1,3,9,27,…。
求使得此数列的前n项之和小于3456789的最大的自然数n。
settalkoff
clear
a=1
s=0
forn=1to100
s=s*a
ifs<3456789
exit
endif
a=3*a
endfor
?
n-1
settalkon
return
14
求出45678的所有非平凡因子(即除1和它本身以外的约数)中奇数的个数。
settalkoff
clear
a=45678
n=0
forb=3toastep2
ifmod(b,a)=0
n=n+1
endif
endfor
?
b
settalkon
return
7
求出203267的所有真因子(即小于它本身的约数)中最大的。
settalkoff
clear
a=203267
forb=1toa
ifmod(a,b)=0
max=a
endif
endfor
?
max
settalkon
return
6557
求出233479的所有真因子(即小于它本身的约数)中最大的。
settalkoff
clear
a=233479
forb=2toa
ifmod(a,b)=0
max=a
endif
endfor
?
max
settalkon
return
8051
求出20677和42067的最大公约数。
settalkoff
clear
a=20677
b=42067
ford=1toa
ifmod(a,d)=0andmod(b,d)=0
max=b
endif
endfor
?
d
settalkon
return
713
求出559399的所有非平凡因子(即除1和它本身以外的约数)中最小的。
settalkoff
clear
a=559399
forn=2toa
ifmod(a,n)=0
loop
endif
endfor
?
a
settalkon
return
73
*求出179869和196037的最大公约数。
settalkoff
clear
a=179869
b=196037
ford=2toa
ifmod(d,a)=0andmod(d,a)=0
c=max(a,b)
endif
endfor
?
c
settalkon
return
2021
*求出179869和196037的最大公约数。
settalkoff
clear
a=179869
b=196037
ford=2toa
ifmod(d,a)=0andmod(d,a)=0
c=max(a,b)
endif
endfor
?
c
settalkon
return
35
求前[1,100]内能被6或8整除的所有自然数的平方根的和(将第1位小数四舍五入,结果只保留整数)。
settalkoff
clear
s=0
forn=1to100
ifmod(n,6)=0andmod(n,8)=0
s=sqrt(s+n)
endif
endfor
?
round(s,0)
settalkon
return
162
求出9269和8671的最小公倍数。
[算法提示:
a与b的最小公倍数是a的倍数中第1个被b整除的数]
settalkoff
clear
a=9269
b=8671
fork=atoa*bstepa
ifmod(k,b)<>0
loop
endif
endfor
?
k
settalkon
return
268801
求所有符合算式ab*ba=2701的最小的两位数ab(即a*10+b)。
其中a、b是1~9之间的一位整数。
settalkoff
clear
forx=11to99
a=x/10
b=mod(x,10)
y=10*a+b
ifx*y=2701
exit
endif
endfor
?
x
settalkon
return
37
已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中大于5000的最小的项。
settalkoff
clear
a=1
forn=0to1000
a=a+n
ifa>5000
loop
endif
endfor
?
n
settalkon
return
5051
已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中小于6000的最大的项。
settalkoff
clear
a=0
forn=0to1000
ifa+n<6000
exit
endif
a=a+n
endfor
?
a
settalkon
return
5996
已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
求最大的自然数n使得此数列的前n项之和小于1000。
settalkoff
clear
a=1
s=0
forn=1to100
a=a+n-1
s=s+a
ifs<1000
exit
endif
endfor
?
n
settalkon
return
18
已知数列:
1,2,4,7,11,16,…,其规律是相邻两项之差依次是1,2,3,4,5,…。
求100以内最小的自然数n使得此数列的前n项之和大于800。
settalkoff
clear
a=0
s=0
forn=1to100
a=a+n
s=s+a
*?
n,a,s
ifs>800
exit
endif
endfor
?
n
settalkon
return
17
已知数列{f(n)}:
f
(1)=1,f
(2)=4,当n=3,4,5,…时,f(n)=3*f(n-1)-f(n-2)。
试求出100以内最小的自然数n使得此数列的第n项大于7654321。
settalkoff
clear
dimensionf(100)
f
(1)=1
f
(2)=4
forn=3to100
f(n)=3*f(n-1)-f(n-2)
iff(n)<=7654321
loop
endif
endfor
?
n
settalkon
return
17
求出100以内最小的自然数n,使得从1开始的连续n个自然数的立方之和大于88888。
settalkoff
clear
s=0
forn=1to100
a=n*3
s=s+a
ifs>88888
exit
endif
endfor
?
a
settalkon
return
24
求出100以内最大的自然数n,使得从1开始的连续n个自然数的立方之和小于99999。
settalkoff
clear
s=0
forn=1to100
a=n*n*n
s=s+a
*?
n,a,s
if<99999
exit
endif
endfor
?
n
settalkon
return
24
一球从100米高处落至平地,并且连续多次再反弹再落下,假设每次反弹的高度都是前一高度的3/4倍,试求出最小的自然数n,使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。
settalkoff
clear
h=100
s=0
forn=2to100
h=h*3/4
s=s+h
ifs>678
exit
endif
endfor
?
n
settalkon
return
13
一球从100米高处落至平地,并且连续多次再反弹再落下,假设每次反弹的高度都是前一高度的3/4倍,试求出最大的自然数n,使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过590米。
settalkoff
clear
h=100
s=0
forn=1to100
h=3/4*h
s=s+2*h
ifs>=590
exit
endif
endfor
?
n-1
settalkon
return
6
设一数列{f(n)}:
f
(1)=1,当n>1时f(n)=1/(f(n-1)+1)。
试求出此数列的前20项中小于0.618的项的数目。
settalkoff
clear
f=1.000000
n=0
fork=1to20
f=1/f+1
iff<0.618
n=n+1
endif
*?
k,f,n
endfor
?
n
settalkon
return
5
设一数列{f(n)}:
f
(1)=1,当n>1时f(n)=1/(f(n-1)+1)。
试求出此数列的前20项中大于0.618的项的数目。
settalkoff
clear
f=1.00000000
n=0
fork=2to20
f=1/f+1
iff>0.618
n=n+1
endif
*?
k,f,n
endfor
?
n
settalkon
return
15
设有用26个字母表示的26个表达式:
a=1,b=1/(a+1),c=1/(b+2),…,z=1/(y+25)。
试求出这26个字母中其值小于0.1的字母个数。
settalkoff
clear
lett=1
n=0
fork=1to26
lett=1/(lett+k)
iflett<0.1
n=n+1
endif
endfor
?
n
settalkon
return
16
求所有符合算式ab*ba=3627的最大的两位数ab(即a*10+b)。
其中a、b是1~9之间的一位整数。
settalkoff
clear
forx=11to99
a=int(x/10)
b=mod(x,10)
y=a*10+b
ifx*y=3627
exit
endif
endfor
?
x
settalkon
return
93
设一个数列的前3项都是1,从第4项开始,每一项都是其前3项之和。
试求出此数列的前25项中大于543
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 湖南省 二级 VF 程序设计 题库