Sharp PC-E500/E500S Technikersoftware

PRIME.111

Primfaktoren

PRIME.111 (962 Bytes)

10 ' PRIME.111 (Prime factors)
20 CLEAR :MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 GOSUB 900:Q8$="*"
50 PRINT "Base (2~9999999999)= ";:INPUT QX
60 IF QX-INT QX<>0 OR QX>=1E+10 OR QX<2 THEN 40
70 GOSUB *DPC
80 P1=QX:Q5=1:R7=0:P8=R7:Q7$="":GOTO 110
90 R7=2:GOSUB 300
100 P1=P1/2:IF P1=1 THEN 190
110 IF P1/2-INT (P1/2)=0 THEN 90 ELSE Q1=3
120 R1=SQR (P1+1)
130 IF R1<=Q1 THEN 180
140 IF P1/Q1-INT (P1/Q1)=0 THEN 160
150 Q1=Q1+2:GOTO 130
160 IF P1/Q1*Q1-P1<>0 THEN 150
170 R7=Q1:GOSUB 300:P1=P1/Q1:GOTO 120
180 R7=P1:GOSUB 300
190 Q8$="":GOSUB 320
200 GOSUB 900:LOCATE 0,2:PRINT QX;"= ";Q7$:GOSUB *REK:GOTO 40
300 IF R7=P8 THEN Q5=Q5+1:GOTO 350
310 IF P8=0 THEN 350
320 Q9$=MID$ (STR$ P8,2,15):IF Q5>1 THEN Q9$=Q9$+"^"+MID$ (STR$ Q5,2,15)
330 Q7$=Q7$+Q9$+Q8$:Q5=1
340 '
350 P8=R7:RETURN
900 CLS :LOCATE 10,0:PRINT "*  PRIME FACTORS  *":LOCATE 1,2:RETURN
1000 *ERR IF ERL =50 RESUME 40
1010 GOSUB 900:GOSUB *DPA:GOSUB *REK:RESUME 40

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net