vf期末考试题库含答案

s=s+1/i endfor

?str(s,10,2)

[4]编写程序，求出1到5000 之间能被3整除的前若干个奇数之和，当和大于 2000 时程序退出。 clear s=0

for i=1 to 5000 step 2 if mod(i,3)=0 s=s+i endif if s>2000 exit endif endfor ? s

[5]编写程序，求3+6+12+24+48+ ?之和。当累加和大于500时终止累加，输出此时的和。 clear s=0 i=3

do while .t. s=s+i if s>500 exit endif i=i*2 enddo ?s

第三类题目：实际应用题目

[1]把30元钱分成一元、二元和五元的纸币且纸币数共为15张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为0）。 clear n=0

for one=0 to 15

for two=0 to 15 for five=0 to 6

if one+two+five=15 and one+two*2+five*5=30 n=n+1 endif endfor endfor endfor ?n

[2]有35个学生一起买小吃，共花钱100元，其中每个大学生花4元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ clear n=0

for a=1 to 35

29

for b=1 to 35 for c=1 to 35

if a+b+c=35 and a*4+b*2+c*1=100 n=n+1 endif endfor endfor endfor ?n

第四类题目

[1]已知a>b>c，且a+b+c<30，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组。 clear n=0

for a=1 to 29

for b=1 to a-1 for c=1 to b-1

if a+b+c<30 and 1/a^2+1/b^2=1/c^2 n=n+1 endif next next next ?n

[2]编写程序，求200到800之间素数的个数。 方法1：

clear 方法2：

Clear n=0 n=0

for x=200 to 800

for i=200 to 800 flag=.t.

for j=2 to i-1

for i=2 to x-1 if mod(I,j)=0

exit if x%i=0 endif

flag=.f.

endfor exit

if i=j

endif n=n+1

endif next endfor

if flag=.t.

?n n=n+1 endif next ?n

[3]编写程序，求共有几组I、j、k符合算式ijk+kji=2333，其中I、j、k是0~9之间的一位整数。clear n=0

for i=0 to 9 for j=0 to 9 for k=0 to 9

if (i*100+j*10+k)+(k*100+j*10+i)=2333 n=n+1

30

endif next next next ?n

编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，其第1位与第3位数字之和为10，第2位与第4位数字之积为12。 clear n=0

for i=1000 to 9999

for j=1 to int(sqrt(i)) a=int(i/1000) b=int(i/100)-a*10

c=int(i/10)-a*100-b*10 d=i

if i=j*j and a+c=10 and b*d=12 n=n+1 endif endfor endfor

?n

31