home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / amigamagazin / 01-93b / knobelecke / vermutung.bas < prev    next >
BASIC Source File  |  1992-12-05  |  1KB  |  32 lines
  1. 10  DEFLNG a-z                    ' Long Integer
  2. 20  FOR n=6 TO 100                
  3. 30    FOR p=2 TO n-1              ' alle Primzahlen durchlaufen
  4. 40      x=p : k=3                     
  5. 50      IF x=2 GOTO 110           ' 2 -> ist prim 
  6. 60      IF x MOD 2=0 GOTO 230     ' gerade Zahl ? -> nicht prim 
  7. 70      WHILE k<=SQR(p)           ' Teiler bis zur Wurzel testen
  8. 80        IF x MOD k=0 GOTO 230   ' geht Division auf ? ->
  9. 90        k=k+2                   ' naechster Teiler
  10. 100     WEND
  11. 110     y=n-p : bas=1 : expo=2    ' y = Rest und bas = Potenzbasis
  12. 120     IF y=1 GOTO 170           ' Sonderfall y=1
  13. 125     bas=2                     ' Basis 
  14. 130     b=bas: expo=1             ' expo = Exponent
  15. 140     expo=expo+1 : b=b*bas     ' naechster Potenzwert
  16. 150     IF b > y GOTO 210         ' Potenz zu gross ? ->
  17. 160     IF b <> y GOTO 140        ' Potenz ungleich Rest ? ->
  18. 170     PRINT USING "####";n;     ' \ 
  19. 180     PRINT USING " = ####";p;  '  | Ausgabe des 
  20. 190     PRINT USING " + ###";bas; '  | Ergebnisses
  21. 200     PRINT USING "^##";expo    ' /
  22. 210     bas=bas+1                 ' Exponent erhoehen
  23. 220     IF bas <= SQR(y) GOTO 130 ' Basis noch nicht zu groß?
  24. 230   NEXT p
  25. 240 NEXT n
  26. 250 END
  27.  
  28.   
  29.   
  30.  
  31.  
  32.