32 lines
527 B
Text
32 lines
527 B
Text
PRINT "Factors of 45 are ";factorlist$(45)
|
|
PRINT "Factors of 12345 are "; factorlist$(12345)
|
|
END
|
|
|
|
FUNCTION factorlist$(f)
|
|
DIM L(100)
|
|
FOR i = 1 TO SQR(f)
|
|
IF (f MOD i) = 0 THEN
|
|
L(c) = i
|
|
c = c + 1
|
|
IF (f <> i^2) THEN
|
|
L(c) = (f / i)
|
|
c = c + 1
|
|
END IF
|
|
END IF
|
|
NEXT i
|
|
s = 1
|
|
WHILE s = 1
|
|
s = 0
|
|
FOR i = 0 TO c-1
|
|
IF L(i) > L(i+1) AND L(i+1) <> 0 THEN
|
|
t = L(i)
|
|
L(i) = L(i+1)
|
|
L(i+1) = t
|
|
s = 1
|
|
END IF
|
|
NEXT i
|
|
WEND
|
|
FOR i = 0 TO c-1
|
|
factorlist$ = factorlist$ + STR$(L(i)) + ", "
|
|
NEXT
|
|
END FUNCTION
|