| 5. PRIMFAKTOR | |
| Mit diesem Programm erhalten Sie den Primfaktor einer beliebigen Zahl. | |
| 10 REM PRIME FACTOR | |
| 20 CLS | |
| 30 PRINT "PRIMZAHLEN" | |
| 40 INPUT "GEBEN SIE EINE ZAHL EIN";A | |
| 50 IF A = 0 THEN 130 | |
| 60 PRINT SGN (A); : A = ABS (A) | |
| 70 FOR I = 2 TO A : B = 0 | |
| 80 IF A / I < > INT (A / I) THEN 100 | |
| 90 A = A / I : B = B + 1 : GOTO 80 | |
| 100 IF B = 0 THEN 120 | |
| 110 PRINT I;"^";B; | |
| 120 NEXT | |
| 130 END |
 |
| Programm : Download |
| << Inhaltsverzeichnis | Kontakt : Webmaster |