vfp程序设计题(附参考答案)-新.doc
文本预览下载声明
VFP程序设计题(附参考答案)
范茂华
1.求1到2000之间,能被3或7整除,并且含有数字5的整数的个数、它们的和、它们的平方根的和(保留2位小数)、以及它们的平方和。
clear
store 0 to n,s1,s2,s3
for i=1 to 2000
if (mod(i,3)=0 or i%7=0) and ‘5’$str(i)
n=n+1
s1=s1+i
s2=s2+sqrt(i)
s3=s3+i^2
endif
next
? “个数:”,n,”和:”,s1,”平方根和:”,s2,”平方和:”,s3
return
2.求能被3整除且至少有一位数字为5的三位数的个数。
clear
n=0
for i=100 to 999
if i%3=0 and 5$str(i)
n=n+1
endif
next
?n
return
3.求出只要能被2,7,9之一整除的800以内的正整数的个数。
clear
n=0
for i=1 to 800
if i%3=0 or i%7=0 or i%9=0
n=n+1
endif
next
?n
return
4.求[105,625]间能同时被7和11整除的自然数之和。求[200,600]间奇数之和。
clear
s=0
for i=105 to 625
if i%7=0 and i%11=0
s=s+i
endif
next
?s
return
5.编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。
clear
n=0
for i=1000 to 2000
if i%3=2 and i%5=3
n=n+1
endif
next
? “个数:”, n
return
6.输出[10,100]中除以17的余数和除以5的商相等的整数的个数。
clear
n=0
for i=10 to 100
if i%17=int(i/5)
n=n+1
endif
next
? “个数:”, n
return
7.统计区间[1000,9999]内所有能被3整除,且千位数字与个位数字之和为8的整数的个数。
clear
n=0
for i=1000 to 9999
gw=i%10
qw=int(i/1000)
if i%3=0 and gw+qw=8
n=n+1
endif
next
? “个数:”, n
return
8.求在四位数的奇数中,所有各位数字之和是25的倍数的数的和。
clear
s=0
for i=1000 to 9999
gw=i%10
sw=int(i/10)%10
bw=int(i/100)%10
qw=int(i/1000)
if i%20 and (gw+sw+bw+qw)%25=0
s=s+i
endif
next
? “和:”, n
return
9.求出所有能被17整除且不含重复数字的三位数的和。
clear
s=0
for i=100 to 999
gw=i%10
sw=int(i/10)%10
bw=int(i/100)
if i%17=0 and gwsw and swbw and bwgw
s=s+i
endif
next
? “和:”, n
return
————————————————————————————————————
10.求1到500的偶数立方和与奇数立方和之差。
clear
s1=0
s2=0
for i=1 to 500
if i%2=0
s1=s1+i^3
else
s2=s2+i^3
endif
next
? “偶数立方和与奇数立方和之差为:”, s1-s2
return
————————————————————————————————————
11.求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.
clear
s=0
n=1
do while .t.
s=s+3^n
if s500
exit
endif
n=n+1
enddo
? s
return
12.求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时, 则结束累加。
13.计算S=1*5*9*13*...*k,直到累乘数k=25中止。
clear
s=1
n=1
do while .t.
s=s*n
if n=25
exit
endif
n=n+4
enddo
? s
return
14.求出1到5000之间的能被5整除的前若干个偶数之和,当和大于500时程序退出。
——————————————————
显示全部