您所在位置：主题：分解质因数最简方式
verysmartboy
[专家分：1260] 发布于 2010-11-27 21:57:00
CLS
INPUT n
PRINT n;
DO
h$ = LTRIM$(STR$(n))
k = 1: l = LEN(h$)
FOR i = 1 TO l
c$ = MID$(h$, i, 1)
k = k * VAL(c$)
NEXT i
n = k
PRINT n;
LOOP UNTIL n = 0
END
这一题大概意思是例如 98886，下一个数就是9*8*8*8*6,直到乘积为0为止，是原创，没有搜。
想学质因数大家可以参考百度知道上的程序，可是有点误差，我把网址和正确程序全发给大家，认真学习学习，希望对你们有帮助。
网址：http://zhidao.baidu.com/question/121792930.html
正确程序：
CLS
INPUT N
S=1
DO
S=S+1
IF N MOD S=0 THEN
N=N\S
S=S-1
PRINT S+1;"*";
END IF
LOOP UNTIL N/(S+1)=1
PRINT S+1
END
INPUT n
PRINT n;
DO
h$ = LTRIM$(STR$(n))
k = 1: l = LEN(h$)
FOR i = 1 TO l
c$ = MID$(h$, i, 1)
k = k * VAL(c$)
NEXT i
n = k
PRINT n;
LOOP UNTIL n = 0
END
这一题大概意思是例如 98886，下一个数就是9*8*8*8*6,直到乘积为0为止，是原创，没有搜。
想学质因数大家可以参考百度知道上的程序，可是有点误差，我把网址和正确程序全发给大家，认真学习学习，希望对你们有帮助。
网址：http://zhidao.baidu.com/question/121792930.html
正确程序：
CLS
INPUT N
S=1
DO
S=S+1
IF N MOD S=0 THEN
N=N\S
S=S-1
PRINT S+1;"*";
END IF
LOOP UNTIL N/(S+1)=1
PRINT S+1
END