VF考试题库7

下面的程序是求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.程序中有一处错误。改正后运行程序，将程序执行结果填入答案框内。
      SET TALK OFF
      CLEAR
      X=3
      Y=0
DO WHILE .F.   
        Y=Y+X
        IF Y>500
            EXIT
        ENDIF
        STORE 3*X TO X
      ENDDO
        ?Y
    SET TALK ON
    RETURN

已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFF
I=20
N=0
DO WHILE I<=80
  STORE 1 TO S 
  J=1
  DO WHILE J<=I
    S=S+J
    J=J+1
  ENDDO
  IF MOD(S,17)=0 
    N=N+1
  ENDIF
  I=I+1
ENDDO
? N
SET TALK ON
RETURN

下列程序为求满足s=1^3+2^3+3^3+...+N^3,当s>=100000的最小的整数N。
  程序中有错误。
  改正后运行程序，将程序执行结果填入答案框内。         
            set talk off
            s=0
            n=1
            do while s>=100000
            s=s+n^3
            n=n+1
            enddo
            ?n   
            return

计算S=1*5*9*13*...*k，直到累乘数k>=25中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。           
      SET TALK OFF
      CLEAR
      s=0 
      k=1
      DO WHILE .T.
          s=s*k
          IF k>=25
            EXIT
          ENDIF
          k=k+4
        ENDDO
        ?s
        RETURN

下面的程序是求1到500的偶数立方和与奇数立方和之差。程序中有一处错。
更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。
SET TALK OFF
STORE 0 TO I,S1,S2
DO WHILE I<=500
  I=I+1
  IF MOD(I,2)=0
    S1=S1+I*I*I
  ELSE
    S2=S2+I*I*I
  ENDIF
ENDDO
? S1-S2
SET TALK ON
RETURN

下面的程序是计算1*2*3*4*5...的积，要求其积大于10000后结束程序运行，输出乘积的值。程序有一处错误。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。
SET TALK OFF
STORE 1 TO X,Y
DO WHILE X<30
  Y=Y*X
  X=X+1
  IF Y>10000
    LOOP
  ENDIF
ENDDO
? Y
SET TALK ON
RETURN

已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第35个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。
            SET TALK OFF
            DIME A(35)
            A(1)=1
            A(2)=2
            A(3)=3
            I=4
            DO WHILE I=35 
            A(I)=A(I-1)+A(I-2)+A(I-3)
            I=I+1
            ENDDO
            ? A(35)
            SET TALK ON
            RETURN

下面的程序是求在1,2,3,4,...,10这10个数中,任意选 两个不同的数,求它们的和能被2整除的数的总对数. (注意: 象3+5和5+3认为是同一对数). 程序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。
SET TALK OFF
CLEAR
N=0
I=1
DO WHILE I<=10
    J=1
DO WHILE J<I
IF INT((I+J)/2)<>(I+J)/2 
N=N+1
ENDIF
J=J+1
ENDDO
I=I+1
ENDDO
?N
SET TALK ON RETURN

下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或 另外编写程序，(程序名由考生自定)运行程序，将结果填入答题窗口。
SET TALK OFF
CLEAR
S=0
I=8
DO WHILE I<=10
STORE 1 TO T,J
DO WHILE J<=I
T=T*J
J=J+1
ENDDO
(        )
I=I+1
ENDDO
?S
SET TALK ON
RETURN

s=3!+5!+7!+…+n!，求直到s>=680000为止的最大阶乘数n。
SET TALK OFF
CLEAR
s=0
n=3
DO WHILE .T.
T=1 
FOR I=1 TO n   
  T=T*I       
NEXT 
s=s+t 
IF S>=680000         
  EXIT 
ENDIF 
  (    )
ENDDO
?n

下面的程序是求出1到5000之间的能被5整除的前若干个奇数之和，当和大于500时退出。在下列程序中填上缺少的语句或另外编写程序，
  (程序名由考生自定）运行程序，将结果填入答题窗口。
            SET TALK OFF
            CLEAR
            I=1
            S=0
            DO WHILE I<5000 AND S<=500
            (              )
            S=S+I
            ENDIF
            I=I+1
            ENDDO
            ?S
            SET TALK ON
            RETURN

设S=1+1/2+1/3+...+1/N，N为正整数。编程求使S不超过10的最大的N.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。
            set talk off
            clear
            s=0
            i=1
            do while s<=10
            s=s+1/i
            (      )
            enddo
            ? i-2
            set talk on
            return

编程求区间[5000，9999]中所有素数的个数.(程序名由考生自定)。 在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.
set talk off
i=9999
t=0
do while i>=5000
j=2
do while j<=i-1
if int(i/j)=i/j
exit
endif
j=j+1
enddo
if j=i
t=t+1
endif
(    )
enddo
?t

输出[10,100]中除以17的余数和除以5的商相等的整数及其个数。
SET TALK OFF
N=0
FOR K=10 TO 100
    IF (      )
      ?  K
      N=N+1
    ENDIF
ENDFOR
? N
RETURN

编程求区间[5000，9999]中按递增顺序，第15大的素数。在下列程序中填上缺少的语句或另外 编写程序，运行程序，将结果填入答题窗口。
SET TALK OFF
I=9999
T=0
do while i>=5000
j=2
do while j<=i-1
if int(i/j)=i/j
exit
endif
j=j+1
enddo
if j=i
t=t+1
if t=15
?i
endif
endif
(    )
enddo

求[600,900]之间素数的个数。

统计[1000，5000]内所有既能被7整除，且至少有一位数字是9的数的个数。

编程序求出3000到5000之间同时满足除3余2和除5余3条件的数的个数。

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

编程序求出1到5000之间同时满足除7余2和除9余5条件的数的和。

编程序，计算在0至50的范围内有多少个数，其每位数的乘积小于每位数的和。

求出[100，500]以内同时满足除以7余3，除以5余3,除以3余1的所有整数个数。

求[105，625]间能被7和11整除的自然数之和。

设s=1+1/2+1/3+…+1/n, n为正整数。编程求使S刚好超过6时的n。

有30个人在一家小餐馆里用餐，其中有男人、女人和小孩。每个男人花了3元，每个女人花了2元，每个小孩花了1元，一共花去50元,问有几种组合？

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

一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出1000以内的所有的完数之和。