计算机类二级VFP

VF考试题库8

21 题含答案VFP
共 21 题返回本类
1材料分析题1 / 21
编程序求出100到800之间同时满足除4余1和除5余3条件的数的个数。
查看答案
clear
n=0
for i=100 to 800
  if mod(i,4)=1 and mod(i,5)=3
    n=n+1
  endif
endfor   
?n
← 上一题回顶部下一题 →
2材料分析题2 / 21
编程序，计算在0至70的范围内有多少个数，其每位数的乘积小于每位数的和。
查看答案
clear
n=0
for i=10 to 70
    a=int(i/10)
    b=i%10
    if a*b<a+b
    n=n+1
    endif
next
?n
← 上一题回顶部下一题 →
3材料分析题3 / 21
编程序求出1到100之间同时满足除3余2和除4余2条件的数的和。
查看答案
clear
s=0
for i=1 to 100
  if mod(i,3)=2 and mod(i,4)=2
    s=s+i
  endif
endfor   
?s
← 上一题回顶部下一题 →
4材料分析题4 / 21
编程序求出1-600以内的能被5整除的数的平方和。
查看答案
set talk off
clear
s=0
for i=1 to 600
  if mod(i,5)=0
    s=s+i*i
  endif
endfor   
?s
← 上一题回顶部下一题 →
5材料分析题5 / 21
编写程序，统计区间[1000，9999]内所有能被6整除，且千位数字与个位数字之和为5的整数的个数。
查看答案
clear
n=0
for a=1 to 9
for b=0 to 9
    for c=0 to 9
      for d=0 to 9
          i=a*1000+b*100+c*10+d
              if mod(i,6)=0  and a+d=5
                n=n+1
              endif
          endfor
    endfor
  endfor
endfor   
?n
← 上一题回顶部下一题 →
7材料分析题7 / 21
1!+2!+3!+....+n! 当s大于61000时结束累加，求n
查看答案
clear
s=0
t=1
i=1
do while .t.
t=t*i
s=s+t
if s>6100
  exit
endif
i=i+1
enddo
?i
← 上一题回顶部下一题 →
11材料分析题11 / 21
下面和程序是求1+3+5+7+9+11+…这样的奇数之和.若累加数大于10000时,则结束累加。
查看答案
clear
s=0
i=1
do while .t.
s=s+i
if s>10000
    exit
endif
i=i+2
enddo
?s
← 上一题回顶部下一题 →
12材料分析题12 / 21
设S=1+1/2+1/3+...+1/N,N为正整数。编程求使S不超过8的最大的N。
查看答案
clear
s=0
i=1
do while .t.
  s=s+1/i
  if s>8
      exit
  endif
  i=i+1
enddo
?i-1
← 上一题回顶部下一题 →
13材料分析题13 / 21
设S=1+1/2+1/3+...+1/N,N为正整数。编程求当算到100项时S的值为多少?精确到小数点后两位。
查看答案
set talk off
clear
s=0
for i=1 to 100
  s=s+1/i
endfor
?str(s,10,2)
← 上一题回顶部下一题 →
14材料分析题14 / 21
编写程序，求出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
← 上一题回顶部下一题 →
15材料分析题15 / 21
编写程序，求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
← 上一题回顶部下一题 →
16材料分析题16 / 21
把30元钱分成一元、二元和五元的纸币且纸币数共为15张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为0）。
查看答案
clear
n=0
for 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
← 上一题回顶部下一题 →
17材料分析题17 / 21
有35个学生一起买小吃，共花钱100元，其中每个大学生花4元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？
查看答案
clear
n=0
for a=1 to 35
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
← 上一题回顶部下一题 →
18材料分析题18 / 21
已知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
← 上一题回顶部下一题 →
19材料分析题19 / 21
编写程序，求200到800之间素数的个数。
查看答案
方法1：
clear
n=0
for x=200 to 800
    flag=.t.
    for i=2 to x-1
        if x%i=0
            flag=.f.
            exit
        endif
    next
    if flag=.t.
      n=n+1
    endif
next
?n
方法2：
Clear
n=0
for i=200 to 800
for j=2 to i-1
    if mod(I,j)=0
      exit
    endif
endfor
if i=j
  n=n+1
endif
endfor
?n
← 上一题回顶部下一题 →
20材料分析题20 / 21
编写程序，求共有几组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
            endif
        next
    next
next
?n
← 上一题回顶部下一题 →
21材料分析题21 / 21
编写程序，统计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%10
      if i=j*j  and a+c=10 and b*d=12
          n=n+1
      endif
    endfor
endfor
?n       
← 上一题回顶部下一题 →
← 上一卷VF考试题库7
← 上一卷下一卷 →