## BASIC PROGRAMME

Zurück 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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