一级VF题库
- 格式：doc
- 大小：311.50 KB
- 文档页数：45
- 1 - 一级程序设计题库
1 编程序求出1-200以内的能被7整除的数的平方和。 377986
clea
s=0
m=0
for i=1 to 200
if i%7=0
m=i^2
s=s+m
endif
endfor
?s
2 编程序求1~99的平方根的和并输出结果。（保留小数点两位） 661.46
clea
s=0
for i=1 to 99
s=s+sqrt(i)
endfor
?round(s,2)
3 编程序求1~55的平方根的和并输出结果。（保留小数点两位） 275.43
clea
s=0
for i=1 to 55
s=s+sqrt(i)
endfor
?round(s,2)
4 编程序统计1~1000能被3整除的数的个数。 333
clea
s=0
for n=1 to 1000
if n%3=0
s=s+1
endif
endfor
?s
7 编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500
时程序退出。 550
clea s=0
for n=10 to 5000 step 10
s=s+n
if s>500
exit
endif
endfor
?s
8 编程序求在3000以内被17或者23整除的正整数数的个数。 299
clea
s=0
for n=1 to 3000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
9 序求在1000以内被17或者23整除的正整数数的个数。 99
clea
s=0
for n=1 to 1000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
10 编程序求在5000以内被17或者23整除的正整数数的个数。 499
clea
s=0
for n=1 to 5000
if n%17=0 or n%23=0
s=s+1
endif
endfor
?s
11 编程序求出1-100以内的能被3整除的数的平方和。 112761
clea
s=0
- 2 - for n=1 to 100
if n%3=0
s=s+n^2
endif
endfor
?s
12 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 334745777
clea
dime f(36)
f(1)=0
f(2)=0
f(3)=1
s=0
for n=4 to 36
f(n)=f(n-3)+f(n-2)+f(n-1)
s=f(n)
endfor
?s
13 编程序求出1-100以内的能被9整除的数的平方和。 40986
clea
s=0
for n=1 to 100
if n%9=0
s=s+n^2
endif
endfor
?s
14 编程序求出1-200以内的能被3整除的数的平方和。 882189
clea
s=0
for n=1 to 200
if n%3=0
s=s+n^2
endif
endfor
?s
15 编程序求出1-7000以内能被3或者7整除数的个数。 3000
clea
s=0 for n=1 to 7000
if n%3=0 or n%7=0
s=s+1
endif
endfor
?s
16 序求出1-3000以内能被3或者5整除数的个数。 1400
clea
s=0
for n=1 to 3000
if n%3=0 or n%5=0
s=s+1
endif
endfor
?s
17 编程序求出1-5000以内能被3或者7整除数的个数。 2142
clea
s=0
for n=1 to 5000
if n%3=0 or n%7=0
s=s+1
endif
endfor
?s
18 编程序求出1-6000以内能被3或者5整除数的个数。 2800
clea
s=0
for n=1 to 6000
if n%3=0 or n%5=0
s=s+1
endif
endfor
?s
19 编程序求出1-4000以内能被3或者11整除数的个数。 1575
clea
s=0
for n=1 to 4000
if n%3=0 or n%11=0
s=s+1
endif
- 3 - endfor
?s
20 编程序求出1-5000以内能被37整除的整数之和。 339660
clea
s=0
for n=1 to 5000
if n%37=0
s=s+n
endif
Endfor
?s
21 编程序求出1-6000以内能被23整除的整数之和。 780390
clea
s=0
for n=1 to 6000
if n%23=0
s=s+n
endif
endfor
?s
22 编程序求出1-3000以内能被33整除的整数之和。 135135
clea
s=0
for n=1 to 3000
if n%33=0
s=s+n
endif
endfor
?s
23 编程序求出1-5000以内能被15整除的整数之和。 834165
clea
s=0
for n=1 to 5000
if n%15=0
s=s+n
endif
endfor
?s
24 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6 clea
s=0
for n=100 to 200
if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
25 编程序求出1到300之间同时满足除3余2和除5余3条件的数的个数。 20
clea
s=0
for n=1 to 300
if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
26 编程序求出100到500之间同时满足除3余2和除5余3条件的数的个数。 26
clea
s=0
for n=100 to 500
if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
27
编程序求出1到400之间同时满足除3余2和除5余3条件的数的个数。 27
clea
s=0
for n=1to 400
if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
28 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。 33
clea
s=0
for n=100 to 600
- 4 - if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
29
编程序求出1到500之间同时满足除3余2和除5余3条件的数的个数。 33
clea
s=0
for n=1to 500
if n%3=2 and n%5=3
s=s+1
endif
endfor
?s
30 1 编程序求出 2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。 510
clea
s=0
for n=1 to 100
s=s+2^n
if s>500
exit
endif
endfor
?s
31 编程序求出1~100所有整数的立方和并输出结果。 25502500
clea
s=0
for n=1 to 100
s=s+n^3
endfor
?s
32 编程序求出1~110所有整数的立方和并输出结果。 37271025
clea
s=0
for n=1 to 110
s=s+n^3
endfor
?s 33 编程序求出1~66所有整数的立方和并输出结果。 4888521
clea
s=0
for n=1 to 66
s=s+n^3
endfor
?s
34 编程序求出1~150所有整数的立方和并输出结果。 128255625
clea
s=0
for n=1 to 150
s=s+n^3
endfor
?s
35 编程序求出1~180所有整数的立方和并输出结果。 265364100
clea
s=0
for n=1 to 180
s=s+n^3
endfor
?s
36 编程序求出1~200所有整数的立方和并输出结果。 404010000
clea
s=0
for n=1 to 200
s=s+n^3
endfor
?s
37 编程序求出1~210所有整数的立方和并输出结果。 490844025
clea
s=0
for n=1 to 210
s=s+n^3
endfor
?s
38 编程序求出S=1~130所有整数的立方和并输出结果。 72505225
clea
s=0
