您所在位置：主题：2-100的质因数 并列出来 如:100=2*2*5*5
cyk
[专家分：0] 发布于 2005-11-24 16:54:00
CLS
WHILE n <= 100
n = b: n = n + 1: b = n: p = 0
DO
a = 0
FOR i = 2 TO INT(SQR(n))
FOR j = n - 1 TO INT(SQR(n)) STEP -1
IF i * j = n THEN
p = p + 1: a(p) = i
n = j: a = 1
EXIT FOR
ELSE
a = 0
END IF
NEXT j
IF n = j THEN EXIT FOR
NEXT i
IF a = 0 THEN a(p + 1) = n
LOOP UNTIL a = 0
PRINT b; "="; a(1);
IF p = 0 THEN
PRINT
ELSE
FOR i = 2 TO p + 1
PRINT "*"; a(i);
NEXT i
PRINT ,
END IF
WEND
END
出来多了个101=101 怎么回事?
WHILE n <= 100
n = b: n = n + 1: b = n: p = 0
DO
a = 0
FOR i = 2 TO INT(SQR(n))
FOR j = n - 1 TO INT(SQR(n)) STEP -1
IF i * j = n THEN
p = p + 1: a(p) = i
n = j: a = 1
EXIT FOR
ELSE
a = 0
END IF
NEXT j
IF n = j THEN EXIT FOR
NEXT i
IF a = 0 THEN a(p + 1) = n
LOOP UNTIL a = 0
PRINT b; "="; a(1);
IF p = 0 THEN
ELSE
FOR i = 2 TO p + 1
PRINT "*"; a(i);
NEXT i
PRINT ,
END IF
WEND
END
出来多了个101=101 怎么回事?
