#Breite = 200
#Hoehe = 300
If OpenWindow(0, 0, 0, #Breite, #Hoehe, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Primzahlen") = #False
  End
EndIf

If CreateGadgetList(WindowID())
  ListViewGadget(0, 0, 0, #Breite, #Hoehe)
Else
  End
EndIf

NewList PrimZahl.l()

;Startzahl nützt nur bei Methode 1. Methode 2 beginnt immer bei 1!

StartZahl.s = InputRequester("Startzahl...", "Bitte geben sie den Startwert an oder nichts um von Anfang zu starten:", "")


Tmp = 0             ;<-- Startzahl
Tmp = Val(StartZahl)

;Methode 2 sollte schneller sein als Methode 1. Wegen den sprunghaften Zugriffen auf die
;verlinkten Ketten kann ein Geschwindigkeitsverlust allerdings wieder entstehen.

If Tmp > 2
  Gosub Methode1
Else
  Gosub Methode2
EndIf


End

Methode1:
  If Tmp = 0
    AddElement(PrimZahl())
    PrimZahl() = 2
    AddElement(PrimZahl())
    AddGadgetItem(0, -1, "2")
    PrimZahl() = 3
    AddGadgetItem(0, -1, "3")
  EndIf
  Divisor = 1   ;Zahl, durch die dividiert wird
  TmpStop = 1   ;Wenn der Divisor gleich TmpStop ist, wird zur nächsten ungeraden Zahl gesprungen
  OK = 1        ;Wenn OK = 0 ist, ist die überprüfte Zahl teilbar und somit keine Primzahl
  Tmp | 1       ;Nur dazu da, um die Startzahl ungerade zu "machen"
  Repeat
    If Tmp / Divisor * Divisor = Tmp : OK = 0 : EndIf
    If OK = 0   ;Ist die zu überprüfende Zahl teilbar?...
      Tmp + 2   ;Springe zur nächsten ungeraden Zahl
      TmpStop = Sqr(Tmp)   ;setzte die nächste Grenze fest
      TmpStop | 1
      Divisor = 1   ;Beginnt wieder bei 1 mit dem dividieren
      OK = 1    ;Setzte OK wieder auf wahr
    ElseIf Divisor = TmpStop    ;...oder ist die Grenze errreicht?
      AddElement(Primzahl())    ;Speichere die Primzahl im Speicher...
      Primzahl() = Tmp
      AddGadgetItem(0, -1, Str(Tmp))    ;...und im ListViewGadget
      Divisor = 1   ;Setzte Divisor zurück
      Tmp + 2   ;Springe zur nächsten ungeraden Zahl zum weiteren Überprüfen
      TmpStop = Sqr(Tmp)   ;Setzte die nächste Grenze fest
      TmpStop | 1
    EndIf
    Divisor + 2 ;Springe zum nächsten ungeraden Divisor
  Until WindowEvent() = #wm_close
Return

Methode2:
  If Tmp = 0
    AddElement(PrimZahl())
    PrimZahl() = 2
    AddElement(PrimZahl())
    AddGadgetItem(0, -1, "2")
    PrimZahl() = 3
    AddGadgetItem(0, -1, "3")
  EndIf
  Tmp = 1
  Divisor = 1
  TmpStop = 1
  OK = 1  
  Repeat
    If Tmp / Divisor * Divisor = Tmp : OK = 0 : EndIf
    If OK = 0
      Tmp + 2
      TmpStop = Sqr(Tmp)
      TmpStop | 1
      ResetList(Primzahl())
      OK = 1
    ElseIf Divisor >= TmpStop
      LastElement(Primzahl())
      AddElement(Primzahl())
      Primzahl() = Tmp
      AddGadgetItem(0, -1, Str(Tmp))
      ResetList(Primzahl())
      Tmp + 2
      TmpStop = Sqr(Tmp)
      TmpStop | 1
    EndIf
    NextElement(Primzahl())
    Divisor = Primzahl()
  Until WindowEvent() = #wm_close
Return 
; ExecutableFormat=Windows
; Executable=C:\Programme\PureBasic\Programme\Primzahlen mit Startzahleingabe.exe
; DisableDebugger
; EOF