Primzahlen berechnen

will man zum Beispiel bei Visual Basic ein Programm schreiben, dass überprüft, ob Zahlen Primzahlen sind, macht man das mit einer Schleife, die von 2 bis zur Wurzel der Zahl geht. Meine Frage ist jetzt, warum man die Schleife nur bis zur Wurzel der Zahl machen muss? Ich habe gelesen, dass es nur Teiler bis zu der Wurzel geben kann aber warum ist das so? Ich habe leider keine der Erklärungen verstanden >.<

Hier nochmal mein Code zur Verständnis:

Dim p As Long = tbPrimzahl.Text
Dim Counter As Long
    Dim Primzahl As Boolean  = True                            

        For Counter = 2 To  Math.Sqrt(p) Step 1
            If p Mod Counter = 0 And Counter <> 1 Then
              Primzahl = False
              MsgBox(p & " ist keine Primzahl.", MsgBoxStyle.OkOnly)
              Exit Sub
            End If
        Next Counter

4 Antworten

Franz1957

21.05.2014, 20:22

Daß es nur Teiler bis zur Wurzel geben kann, stimmt nicht. Aber es genügt, die Teiler bis zur Wurzel zu suchen. Denn wenn eine Zahl bis zur Wurzel keinen Teiler hat, dann kommt auch nach der Wurzel kein Teiler mehr. Den Grund dafür hat freejack75 erklärt: Hätte die Zahl einen Teiler, der größer als die Wurzel ist, dann müßte sie auch einen haben, der kleiner als die Wurzel ist.

kordely

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

21.05.2014, 21:00

Man kann die Teiler der Zahl in Paare teilen:

d1 * d2 = n;
d3 * d4 = n;
...

So sind die Teilpaare in umgekehrten Verhältnis. Wenn d größer ist, als sqrt(n), dann muss seine Paare kleiner als sqrt(n) sein.

freejack75

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

21.05.2014, 19:12

wenn eine Zahl aus nur zwei Faktoren z = p *q besteht, dann wäre für p > Wurzel z der zweite Faktor q < Wurzel z, und damit bereits gefunden worden.

Franz1957

22.05.2014, 02:14

Das Argument trifft auch dann zu, wenn p und/oder q wiederum teilbar ist und z damit mehr als zwei Teiler hat.

Donat47

21.05.2014, 21:08

benutzt doch einfach mal google dailyfreecode.com/code/check-number-prime-not-vb-net-code-3346.aspx

http://en.wikipedia.org/wiki/Fermat_primality_test

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zur Frage

Wir sollen im Unterricht eine Schleife erstellen, die alle Primzahlen bis 100 ausgibt, jedoch sitzen wir seid mehreren Stunden dran und kriegen es nicht hin?

Wir sollen das ganze in While schleifen schreiben, doch haben keinen blassen Schimmer wie dieses gehen soll.

Das haben wir bisher.

public class Main {
    public static void main(String[] args) {
        int limit = 100;
        int zahl;                   //überprüfen der zahl
        int counter= 2;
        boolean prim;           //Hilfsvariable ob die aktuelle zahl eine Primzahl ist

        for (zahl = 2; zahl <= limit; zahl++) {
            prim = true;
            while(counter < Math.sqrt(zahl) + 1) {
                counter++;

                if (zahl % counter == 0) {
                    prim = false;

                } else if (prim) {
                    System.out.println(zahl + " ");
                }
            }
        }
    }
}

...zur Frage

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zur Frage

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zur Frage

Java Primzahl boolean?

Ich muss eine Klassenmethode schreiben istPrim(long zahl), die true für eine positive Primzahl zurückgibt und false, falls die Zahl nicht prim ist.

Die Verwendung von main(), println(), und Scanner() ist nicht erlaubt.

Das hier ist der Code, den ich geschrieben habe. Sieht der richtig aus? Wenn nicht, was kann ich hier verbessern?

  public static boolean istPrim(long zahl) {
    boolean primZahl = true;
    long moeglicherTeiler = 2L;
  
    while (moeglicherTeiler < zahl) { // Teiler muss kleiner sein als Zahl selbst
      if (n % moeglicherTeiler == 0) { // Teiler gefunden -> keine Primzahl
        primZahl = false;
      }
  
      moeglicherTeiler = moeglicherTeiler + 1; // Teiler hochzählen
    }
  
    return primZahl;
  }
}

...zur Frage

VBA Wenn eine Zelle mehrerer Spalten leer dann msgbox?

Hallo zusammen,

ich habe vor in mehreren Spalten zu kontrollieren, ob sich eine leere Zelle befindet. Wenn ja soll eine Msgbox angezeigt werdne und der Sub soll beendet werden. Wenn nicht soll er fortfahren. Allerdings kommt es bei mir zu einer Fehlermeldung "Typen unverträglich". Wo hat sich der Fehler eingeschlichen? End If befindet sich weiter unten.

Sub SendMeetingRequest_2()

Dim Bereich As Range

Set Bereich = Range("F2:H41", "B2:B41") 'Zellbereich

With Application.WorksheetFunction

Dim objOL As Object 'As Outlook.Application

Dim objAppt As Object 'As Outlook.AppointmentItem

'Const olAppointmentItem = 1

Const olMeeting = 1

Dim ReminderTime As Long

Dim lfdnr As Integer

lfdnr = 2

'Überprüfung erstellen falls Aufgaben leer sind

'lfdnr = 4

If Bereich.Value = "" Then

MsgBox "Bitte fehlende Daten eintragen"

Call Leere_zellen_hervorheben

Exit Sub

Else

Danke für eure Hilfe!

...zur Frage

Java: Wie funktioniert dieser Primzahlengenerator?

public static List<Integer> generateNumbers(int border) {
  List<Integer> finalList = new ArrayList<>();
  boolean[] bool = new boolean[border];

  for (int i = 0; i < bool.length; i++) {
    bool[i] = true;
  }

  /////////
  for (int i = 2; i < Math.sqrt(border); i++) {
    if (bool[i] == true) {
      for (int j = (i * i); j < border; j = j + i) {
        bool[j] = false;
      }
    }
  }
  ////////

  for (int i = 2; i < bool.length; i++) {
    if (bool[i] == true) {
      finalList.add(i);
    }
  }

  return finalList;
}

Mir geht es vor allem um den Bereich, welcher in den ///////// drinnen liegt, wo ich die Nicht-Primzahlen herausfische. Kann mir jemand diese for-Schleife Schritt für Schritt erklären?

...zur Frage

Name + User?

Hallo,

was müsste ich hier anpassen? Ich komme mit der Fehler Meldung nicht zurecht.

Private Declare 36 GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetNTUserA() As String
  
 Dim sBuffer As String
 Dim LSize As Long
 Dim user As String
  
 sBuffer = Space$(255)
 LSize = Len(sBuffer)
  
 Call GetUserName(sBuffer, LSize)
  
 If LSize > 0 Then
  user = Left$(sBuffer, LSize - 1)
 Else
  user = vbNullString
 End If
  
 GetNTUserA = user
  
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 6 Then
    Target.Offset(0, 11).Value = Date
  End If
      
    If Target.Column = 6 Then
    Target.Offset(0, 10).Value = GetNTUserA
  End If

End Sub

...zur Frage

Hallo, ich möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

...zur Frage

Java - Primzahlen ermitteln

Soll zwischen 1 und 100 alle Primzahlen in Java ermitteln. Lasse ich das Programm laufen wird keine Zahl ausgegeben. Ich habe festgestellt, dass bei jeder Zahl primzahl == false ist. Zu beginn war der boolean primzahl true. Was habe ich falsch gemacht?

System.out.println ("Primzahlen:");

for (i=1 ;i<=100 ;i++ ) {
  if (i==1) {
    primzahl = false;
  } // end of if
    else {
    for (j=2 ;j<i ;j++ ) {
      if (i % j == 0) {
        primzahl = false;
      } // end of if
    } // end of for
  } // end of if-else
  if (primzahl == true) {
    System.out.println (i);
  } // end of if
} // end of for

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

Java Primzahlen Programm

Hey Leute, ich habe mal wieder eine Java-Aufgabe, bei welcher ich den Fehler nicht finde. Ich hoffe ihr könnt mir irgendwie weiterhelfen.

public class PrimeNumbers {

static int x = 1000;
private static boolean[] Primes = new boolean[x];

// Hier ist der "statische Konstruktor"
static {
}

private static boolean checkPrime(int number) {

    return false;
}

public static boolean isPrime(int number) {
    int limit=1000;
    int zahl;      
    int zaehler;   
    boolean primzahl; 

    for (zahl = 2; zahl <= limit; zahl++) {
        primzahl = true;

        for (zaehler = 2; zaehler <= zahl/2; zaehler++) {
            if (zahl % zaehler == 0) {
                primzahl = false;
              break;
            }

        }

        if (primzahl) {
            return true;
        }
    }
    return false;
}

Die Primzahlen, welche zu überprüfen sind werden in einer anderen Methode übergeben und abefragt. Ich habe hier das Problem, dass er mir entweder immer true oder immer false returned, egal ob es nun eine Primzahl ist oder nicht. Ich komme einfach nicht weiter, egal wie ich es drehe und wende. Ich hoffe ihr könnt mir weiterhelfen.

Grüße Dubsepp

...zur Frage

Wie prüft man in "C", ob eine Zahl eine Primzahl ist?

/ Primzahl.c /

include include

main()

{ int zahl=16; //Zum Testen

int counter = 1; //Counter für die Schleife

int rest = 1; //Variable für den Rest (Modulo)

while (counter < (zahl-1)) //Solange counter < 15 (Also von 1 bis 14)

rest = zahl%(zahl-counter); //(16/Alle kleineren natürlichen Zahlen bis auf 1)

if (rest=0) //Ist die Zahl Restfrei durch eine kleinere natürliche Zahl teilbar, ist die Zahl keine Primzahl;

{ printf("Diese Zahl ist keine Primzahl"); }

counter++; //Counter wird um 1 erhöht und die Schleife beginnt erneut }

system("pause"); //Damit das Programm sich nach beendigung seiner Aufgabe nicht gleivh selbst auslöscht }

Das Programm funktioniert nicht. Deswegen meine Frage: Wo liegt der Fehler?

Danke im Voraus ;)

...zur Frage

vb.net Excel Makro funktioniert nicht wie gewünscht?

Sub MarkColumns()

Dim ws As Worksheet

Dim lastRow As Long, lastColumn As Long

Dim col As Long

Dim row As Long

Dim cell As Range

' Arbeitsblatt festlegen

Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Ersetzen Sie "Tabelle1" durch den Namen Ihres Arbeitsblatts

' Letzte Zeile und letzte Spalte ermitteln

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row

lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' Alle Spalten durchlaufen

For col = 1 To lastColumn

' Prüfen, ob ein Wert in irgendeiner Zeile der Spalte größer oder gleich 25 ist

For row = 1 To lastRow

Set cell = ws.Cells(row, col)

If cell.Value >= 25 Then

' Wenn ja, die gesamte Spalte markieren und zur nächsten Spalte wechseln

ws.Columns(col).Interior.Color = RGB(255, 0, 0)

Exit For ' Beenden Sie die Schleife, wenn ein Wert >= 25 gefunden wurde

End If

Next row

Next col

End Sub

Das Makro markiert jedeglich eine Spalte Rot, wenn ein Wert = 25 oder grösser 25 wenn diese Bedingung auf Zeile 1 zutrifft, es sollte jedoch die Spalte rot markieren egal in welcher Zeile der Wert gleich 25 oder grösser 25 ist.

Weis jemand wie ich das Makro anpassen muss damit es die gewünschte Funktionalität gewährleistet?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen