• 所有问题

    • 用VFP编写一个小程序

    VFP中定义一个判断N是素数的函数然后调用该函数求2~10000内的全部素数

    举报该问题
    其他回答
    第1个回答  2020-10-09
    *
    VFP中定义一个判断N是
    素数
    的函数，然后调用该函数求2~10000内的全部素数
    SET
    TALK
    OFF
    CLEAR
    FOR
    i1
    =2
    TO
    1000
    IF
    ispn(i1)
    ??i1
    ENDIF
    ENDFOR
    SET
    TALK
    ON
    RETURN
    FUNCTION
    ispn
    PARAMETERS
    sz
    IF
    sz<2
    RETURN
    .f.
    ENDIF
    ssbz=.t.
    FOR
    j1=2
    TO
    sz-1
    IF
    MOD(sz,j1)=0
    ssbz=.f.
    EXIT
    ENDIF
    ENDFOR
    RETURN
    ssbz
    相似回答
    大家正在搜