比如输入18
结果为  18=2*3*3

input '请输入一个合数：' to n
cExp=ALLTRIM(STR(n))+'='
FOR i=2 to n-1
    IF 质数否(i)
        IF n/i=INT(n/i)
            cExp=cExp+ALLTRIM(STR(i))+'*'
            n=n/i
            i=1
        ENDIF
    ENDIF
ENDFOR
IF RIGHT(cExp,1)=='*'
    ? LEFT(cExp,LEN(cExp)-1)
ELSE
    ? '该数无法分解质因数'
ENDIF


PROCEDURE 质数否
LPARAMETERS n
LOCAL i
FOR i=2 to n-1
    IF n/i=INT(n/i)
        RETURN .f.
    ENDIF
ENDFOR
RETURN .t.

[此贴子已经被作者于2020-6-11 07:47编辑过]

CLEAR
input to xx
zz=xx
yy=""
FOR i=2 TO xx
    IF MOD(xx,2)=0 THEN
        yy=yy+"*2"
        xx=xx/2
    ELSE
        if MOD(xx,3)=0 THEN
            yy=yy+"*3"
            xx=xx/3
        ELSE
            IF MOD(xx,5)=0 THEN
                yy=yy+"*5"
                xx=xx/5
                IF MOD(xx,7)=0 THEN
                    yy=yy+"*7"
                    xx=xx/7
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ENDFOR
IF xx<>1
    yy=yy+"*"+allTRIM(STR(xx))
endif
?alltrim(str(zz))+"="+SUBSTR(yy,2,LEN(yy)-1)
不知是否实现了你的想法？

[此贴子已经被作者于2020-6-11 08:09编辑过]

谢谢谢谢  是可以的

CEXP 是什么意思啊

谢谢

cExp是变量名称啊，随便起的

我试了下，含有11，13，17等因子的，就出错了。

四楼的正确

是的，所有质数都应该排除，该程序十分不严谨。