Clever-Excel-Forum - Primzahltest

Hallo Marcus,

das soll die Rechenzeit sehr (bei grossen Zahlen) stark verkürzen.

Zahlen größer Wurzel(x) brauche ich nicht mehr untersuchen.
Wenn eine Zahl x einen Teiler t grösser Wurzel(x) hat, dann ist auch x/t ein Teiler von x und kleiner als Wurzel(x).

ps. Beim Programmieren gibt es zwei verschiedene kurz.

Also:

Code:
Sub M_snb()

    y = Application.InputBox("Bitte geben Sie eine Zahl ein", "Primzahl Prüfung", , , , , , 1)

    For j = 2 To Sqr(y)

      If y Mod j = 0 Then Exit For

    Next

  MsgBox y & " ist " & IIf(j < Sqr(y), "k", "") & "eine Primzahl"

End Sub

Hallo,

Der Code aus Beitrag #12 betrachtet 4 als Primzahl, was ja aber nicht korrekt ist.

MfG
Alooha

Hallo,

wenn 4 keine Primzahl ist, ist dann 5,4 auch keine Primzahl? Blush

@Alooha

Du hast recht.
Der Code in #7 stimmt.

Genau!
Und 5,4 ist selbstverständlich auch keine Primzahl, da nur natürliche Zahlen Primzahlen sein können ansonsten wäre es trotzdem keine, da sie durch sich selbst und durch 2 teilbar ist.

Hallo,

zu

Zitat:Du hast recht.
Der Code in #7 stimmt.

Hoppla, da ist wohl ein kurz zu kurz gekommen.

@Ego

Wie sieht denn deiner Code aus ?

Hey Leute,

macht nicht aus einem "<" ein ">" Problem.
KleinerGleich reicht auch.

Gruß Elex