Fast Primes

[Kernelpanic]

I also wrote a program to determine prime numbers and tested it up to 1,000,000. Is the result fast, slow or acceptable?

Code: (Select All)

Option _Explicit



Dim As Long eingabe, anzahlprim, anzahl

Dim As Long primzahl, zahlenbereich

Dim As Single zeitstart, zeitende



Screen _NewImage(800, 600, 32)



anzahl = 0



Print Tab(15); "Ausgabe aller Primzahlen bis zur Eingabe"

Print

Input "Alle Primzahlen ausgeben bis: ", eingabe



Timer On

zeitstart = Timer



anzahlprim = 0

For primzahl = 2 To eingabe Step 1

  zahlenbereich = 2

  Do While primzahl Mod zahlenbereich <> 0

    zahlenbereich = zahlenbereich + 1

  Loop

  If zahlenbereich = primzahl Then Print Using "#####"; primzahl;



  If zahlenbereich = primzahl Then anzahlprim = anzahlprim + 1

Next

zeitende = Timer



Print: Print

Print Using "Sekunden: ####.##### "; zeitende - zeitstart



Print

Print Using "Bis ###,##### gibt es ##,#### Primzahlen"; eingabe, anzahlprim



End