PROGRAM: FACTOR : Input A : ClrHome : A -> D : 0 -> B : While (B < (sqrt(A)-1)) : B+1 -> B : A/B -> C : If fPart(C) = 0 : Then : Disp B, C, "" : Pause : End : End
How to useEdit
1. Go to programs
2. Execute FACTOR
3. Insert number that you want factored
4. Hit enter.
5. Two factors of the number will be displayed. If the screen does not display "Done," then there are more factors. Hit enter again to view the next two. Continue in this manner until calculator displays "Done."
This is an example of what the screen will look like
Type in the number. I will use 1024 as an example.
Hit enter. This next portion of text should be appearing on the right of the screen.
1 1024 2 512
2 512 4 256
(Numbers are disappearing as the screen scrolls through the factors). Hit enter.
4 256 8 128
8 128 16 64
Hit enter one last time and...
16 64 Done
Another version Edit
This is another factoring program. This one takes a number and factors it into the smallest primes. For example, the above program would take 100 and show it as 1 and 100, 2 and 50, 4 and 25, 5 and 20, 10 and 10. This one would show it as 2, 2, 5, and 5.
:ClrHome :Float :Func :Full :FnOff :PlotsOff :CoordOff :GridOff :AxesOff :LabelOff :ClrDraw :0→Xmin :-62→Ymin :1→ΔX :1→ΔY :SetUpEditor L1 :0→dim(L1 :Input "X=",X :ClrHome :2→N :X→I% :Repeat N>I%/N :While not(fPart(I%/N :I%/N→I% :1+dim(L1→dim(L1 :N→L1(Ans :End :N+1→N :End :If I%>1 :Then :1+dim(L1→dim(L1 :I%→L1(Ans :End :0→N :34→FV :Repeat FV=105 :If (FV=25 and N>1) or (FV=34 and N<dim(L1 :Then :N-(FV=25)+(FV=34→N :ClrDraw :For(θ,N,min(N+9,dim(L1 :Text(6θ-6N,1,θ,": ",L1(θ :End :End :getKey→FV :End :ClrDraw :Output(1,1,"