求一个数的所有因子,如72=2*2*2*3*3
给出个思路就行,谢谢啊!

建立循环，然后用质数分别去整除，不能整除的就换另一个质数试，能整除的就用商进入下一个循环。不知这样能行吗？

怎样控制除数一直是质数呢

我在Tiger5392的博客上看见过，你去看看。

好的,谢谢
刚去看了，没怎么看懂,以后继续看,
不过看到了些其他的东西,收益良多,呵呵

[此贴子已经被作者于2006-8-21 11:12:26编辑过]

我在博客中提出的是"最简因子分解",包括了1这个因子。要是分解质因数的话，必须去掉1这个因子。

input "请输入一个数" to n
n=INT(n)
DO case
CASE n<1
MESSAGEBOX("不能为负数")
return
CASE n=1
MESSAGEBOX("1没有因子")
return
endcase
t_1=ALLTRIM(STR(n))+"="
i=2
DO while i<n
IF MOD(n,i)=0
ok=.t.
FOR j=2 to i-1
IF MOD(i,j)=0
ok=.f.
EXIT
ENDIF
ENDFOR
IF ok
t_1=t_1+ALLTRIM(STR(i))+"*"
n=n/i
ENDIF
i=2
LOOP
ENDIF
i=i+1
enddo
t_1=t_1+ALLTRIM(STR(n))
? t_1