;Made by DAK
k = 1
Print "1" ;Das Print "1" bis Print "3" ist deswegen, weil der Rechner
Print "2" ;1, 2 und 3 nicht errechnet.
Print "3"
Repeat
   p = 6 * k - 1
   Print p
   p = 6 * k + 1
   k = k + 1
   Print p
Until KeyHit(1)
end

; Original by Triton, verbessert by DAK
Graphics 400,300,32,2
AppTitle("Primzahlen")
zahl=3
k = 1
endzahl=1000000 ;7368809
Global j=Sqr(endzahl)
Global a1,i,t2
Dim pz(j)

Print "Ermittle Primzahlen von "+Zahl+" bis "+endzahl+"."
Print "..."

DeleteFile("primzahlen"+txt+".txt")
dat=WriteFile("primzahlen"+txt+".txt")
CloseFile dat
dat=OpenFile("primzahlen"+txt+".txt")
WriteLine dat,"2"
t1=MilliSecs()

For z1=3 To j Step 2
        If primzahlalt(z1) = 1 Then
                pz(a1)=z1
                a1=a1+1
                WriteLine dat,z1
        End If
Next

While Not KeyDown(1)
If primzahl(zahl) = 1 Then
        WriteLine dat,Str(zahl)
        i=i+1
End If
;If i Mod 10000 = 0 Then Print zahl
If zahl>endzahl Then
        t2=MilliSecs()-t1
        WriteLine dat, i+a1+" Primzahlen gefunden."
        WriteLine dat,"Es hat "+t2+" ms gedauert."
        t1=MilliSecs()
        CloseFile dat
        stats()
End If
If wechsel = 1 Then
   zahl=6 * k - 1
   wechsel = 0
   k = k + 1   
EndIf
If wechsel = 0 Then
   zahl=6 * k - 1
   wechsel = 1
EndIf
Wend

;---
Function stats()
Print i+a1+" Primzahlen gefunden."
Print "Es hat "+t2+" ms gedauert."
Print ""
Print "Bye."
WaitKey
End
End Function

;---
Function primzahl(zahl)
For i2=0 To a1-1 Step 1                               
        If (zahl Mod pz(i2) = 0) Then Return 0
Next
Return 1
End Function


;---
Function primzahlalt(zahl)
For teiler=3 To Sqr(zahl) Step 2
        If (zahl Mod teiler = 0) Then Return 0
Next
Return 1
End Function

; Original by Triton modded by DAK
Graphics 400,300,32,2
AppTitle("Primzahlen")
zahl=3
k = 1
endzahl=1000000 ;7368809
Global j=Sqr(endzahl)
Global a1,i,t2
Dim pz(j)

Print "Ermittle Primzahlen von "+Zahl+" bis "+endzahl+"."
Print "..."

DeleteFile("primzahlen"+txt+".txt")
dat=WriteFile("primzahlen"+txt+".txt")
CloseFile dat
dat=OpenFile("primzahlen"+txt+".txt")
WriteLine dat,"2"
t1=MilliSecs()

For z1=3 To j Step 2
        If primzahlalt(z1) = 1 Then
                pz(a1)=z1
                a1=a1+1
                WriteLine dat,z1
            If wechsel = 0 Then wechsel = 1
            If wechsel = 1 Then wechsel = 0
        End If
Next

While Not KeyDown(1)
If primzahl(zahl) = 1 Then
        WriteLine dat,Str(zahl)
        i=i+1
End If
;If i Mod 10000 = 0 Then Print zahl
If zahl>endzahl Then
        t2=MilliSecs()-t1
        WriteLine dat, i+a1+" Primzahlen gefunden."
        WriteLine dat,"Es hat "+t2+" ms gedauert."
        t1=MilliSecs()
        CloseFile dat
        stats()
End If
If wechsel = 2 Then wechsel = 0
If wechsel = 1 Then
   zahl=6 * k - 1
   k = k + 1
   wechsel = 2
EndIf
If wechsel = 0 Then
   zahl=6 * k - 1
   wechsel = 1
EndIf
Wend

;---
Function stats()
Print i+a1+" Primzahlen gefunden."
Print "Es hat "+t2+" ms gedauert."
Print ""
Print "Bye."
WaitKey
End
End Function

;---
Function primzahl(zahl)
For i2=0 To a1-1 Step 1                               
        If (zahl Mod pz(i2) = 0) Then Return 0
Next
Return 1
End Function


;---
Function primzahlalt(zahl)
For teiler=3 To Sqr(zahl) Step 2
        If (zahl Mod teiler = 0) Then Return 0
Next
Return 1
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;
;Primzahlen;;;;;;;;;;;;;;;
;;;;;;;;;;;;von;;Wadim;;;;
;AUGUST;;;;2005;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;
Const primzahlen=1000000
;;;;;;;;;;;;;;;;;;;;;;;;;;

Graphics 600,300,0,2

;INIT
Dim zahlen(primzahlen)
file=WriteFile("primsx.txt")

Print "Berechne Primzahlen von 2 bis "+primzahlen
Flip 0


;ZEIT
vt=MilliSecs()

For i=1 To primzahlen
zahlen(i)=i
Next


count = 0

;MAIN
For i=2 To primzahlen

If zahlen(i)=0 Then
;;nichts
Else
count=count+1

;For a=i To primzahlen Step i  ;;;aus C++: for(int a=i;a<primzahlen;a += i)
a=i
While a < primzahlen
a = a + i
If  a > primzahlen Then
;nichts -schleife beenden
Else
zahlen(a)=0
EndIf
Wend

WriteLine file, i

EndIf

Next
t=(MilliSecs()-vt)

WriteLine file , "Insgesamt "+count+" Primzahlen gefunden innerhalb von "+(t)+" milliSekunden"

Print "Insgesamt "+count+" Primzahlen gefunden innerhalb von "+t+" milliSekunden"


WaitKey

End