itgle.com

【程序说明】 计算1~30之间能够被3整除的奇数的阶乘和。【程序】** 主程序SET TALK OFFS=0FOR I=1 TO 30 STEP 2IF (4)(5)S=S+NENDIFENDFOR?“1到30之间能被3整除的奇数阶乘和为:”+ (6)SET TALK ONRETURN** 过程 P1.PRGPARAMETERS M(7)N=1FOR J=1 TO MN=N*JENDFOR(8)(4)A.MOD(I,3)>=0B.MOD(I,3)>0C.MOD(I,3)<>0D.MOD(I,3)=0

题目

【程序说明】 计算1~30之间能够被3整除的奇数的阶乘和。

【程序】

** 主程序

SET TALK OFF

S=0

FOR I=1 TO 30 STEP 2

IF (4)

(5)

S=S+N

ENDIF

ENDFOR

?“1到30之间能被3整除的奇数阶乘和为:”+ (6)

SET TALK ON

RETURN

** 过程 P1.PRG

PARAMETERS M

(7)

N=1

FOR J=1 TO M

N=N*J

ENDFOR

(8)

(4)

A.MOD(I,3)>=0

B.MOD(I,3)>0

C.MOD(I,3)<>0

D.MOD(I,3)=0


相似考题
参考答案和解析
正确答案:D
解析:由题意知,需找出1~30之间能被3整除的奇数。所以用MOD(I,3)=0。
更多“【程序说明】 计算1~30之间能够被3整除的奇数的阶乘和。【程序】** 主程序SET TALK OFFS=0FOR I=1 TO ”相关问题
  • 第1题:

    下列程序是用来计算1+2+3……+10的程序段,请补充该程序。

    Dim i, s, k As Integer

    s =0: k = 0

    For【 】To 1

    k=k+1

    s=s+ k

    Next i

    Print s


    正确答案:j=-10
    j=-10

  • 第2题:

    【程序说明】 程序功能是用两种循环步长值来求1+2+3+…+50的值。

    【程序一】

    S=0

    FOR (5)

    (6)

    ENDFOR

    ? S

    RETURN

    【程序二】

    S=0

    FOR (7)

    S=S+N

    ENDFOR

    (8)

    RETURN

    (5)

    A.N=50 TO 1

    B.N=1 TO 50 STEP-1

    C.N=1 TO 50

    D.S=1 TO 50


    正确答案:C
    解析:FOR… ENDFOR格式1:
    FOR循环变量=初值TO终值[STEP 步长]
      语句序列>
      [EXIT]
      [LOOP]
    ENDFOR/NEXT
    功能:当循环变量的值不大于终值时,执行循环操作。每循环一次,循环变量的值自动递增一个步长值。
    循环变量为任意一个内存变量,不需要事先定义。
    初值、终值、步长均为一个数值表达式,其值可为正或负或小数。
    若不选[STEP步长]选项,递增步长为1。
    [LOOP]选项实现循环短路操作,[EXIT]选项实现结束当前循环操作。
    格式2:
    FOREACH变量>IN数组变量>/集合>
      语句系列>
      [EXIT]
      [LOOP]
    ENDFOR/NEXT[变量>]
    功能:对数组变量>或集合>中的每个元素执行循环操作。

  • 第3题:

    编写程序,计算出1000到5000之间能被3和7整除但不能被13整除的所有整数的和。


    【审题关键句】千位+百位等于十位+个位,且千位+百位等于个位-千位的10倍。计算并输出这些四位自然数的个数cnt以及这些数的和。 【解题思路】 ①首先定义一个循环变量i,以及分别用来存放四位数分解之后各位数的变量qw(千位)、bw(百位)、SW(十位)和 gw(个位)。 ②通过for循环依次对数组中的每个四位数进行分解,循环初值为l 000,终值为5000,每循环一次,循环变量i的值加1。每分解一个四位数,根据题目要求,判断其“千位+百位=十位+个位”的条件是否满足,同时判断“(千位+百位)=(个位-千位)*10”的条件是否满足,两个条件之间用运算符进行连接。当同时满足以上两个判断条件时,计数变量cnt的值加l,同时将该四位数累加到求和变量sum中,最终得到满足条件的四位自然数个数cnt及它们的和sum。 本题中cnt和sum变量在源程序中已经定义,在该子程序中就不需要再重新定义了。 【参考答案】

  • 第4题:

    现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 Else If i Mod 7=0 Then c2=c2+1 End If Next i Print c1+c2 End Sub 此程序运行后输出的是在1~100范围内( )。

    A.同时能被3和7整除的整数个数

    B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)

    C.能被3整除,而不能被7整除的整数个数

    D.能被7整除,而不能被3整除的整数个数


    正确答案:B
    B。【解析】i是1到100的循环,在程序中,对3和7取模,显然就是3和7的倍数关系。需要注意的是If和else语句分别判断3和7的倍数而同时是21倍数的时候会不计,这有别于传统的计数方法。

  • 第5题:

    计算公式s=1!+2!+...+6! 要求:定义函数,计算阶乘。主程序调用函数,并输出结果。


    long