Quelltext für Primzahlermittlung gesucht.

[Delphi-Laie]

Die Hausaufgabe mache ich auch nicht, aber mit der Hilfe sehe ich das ein wenig anders.

Wen das interessiert, der wird sich auch mit dem Hintergrund beschäftigen, ganz freiwillig, und im späteren Leben damit ganz automatisch in seinem Interessengebiet erfolgreich sein. Ein "ermogelter" Erfolg fällt einem früher oder später immer auf die Füße, und wenn nicht in der Lehreinrichtung, dann später.

Also, hier ein Beispiel für das gesuchte: http://swissdelphicenter.ch/de/showcode.php?id=914 (die untere Funktion).

[LTE5]

Vielleicht sei das hier noch erwähnt. Sieht schöner aus
showmessage( BoolToStr(IsPrime(3453451), True) );

[gammatester]

Zitat von Delphi-Laie:

Also, hier ein Beispiel für das gesuchte: http://swissdelphicenter.ch/de/showcode.php?id=914 (die untere Funktion).

Das ist allerdings ein sehr schlechtes Beispiel, das wegen Syntaxfehlern überhaupt nicht kompilierbar ist (und deshalb für Anfänger wohl ungeeignet). Wenn man das korrigiert, bleibt es immer noch semantisch falsch: 1 wird als Primzahlen 'erkannt' (und alle negativen Werte crashen, statt false zu liefern).

[Michael II]

Zitat von p80286:

Dann ziehe ich mir mal ordentlich Unmut zu:https://de.wikipedia.org/wiki/Sieb_des_Eratosthenes

Gruß
K-H

Die Idee mit dem Sieb von Eratosthenes kam mir auch. Da ich aber konsequent maximal einen Joke pro Woche poste, liess ich es bleiben.

Die Woche ist vorüber:

Anderer Vorschlag. Lies dich ein wenig hier ein (oder weiterführend z.Bsp. Artins kleines und feines Buch über Galois Theorie):

https://de.wikipedia.org/wiki/Endlic...er_Logarithmus

Daraus kannst du schliessen: Wenn du prüfen willst, ob eine natürliche Zahl q>1 eine Primzahl ist, dann berechne
a^(q-1) modulo q für alle a in {1,2,...q-1}

Wenn das immer 1 ergibt, dann ist q eine Primzahl.

Delphi-Quellcode:

function istprim( q : integer ) : boolean;
var a, i, pot : integer;
begin
  Result := false;
  if q < 2 then exit;
  for a := 1 to q-1 do
  begin
    pot := 1;
    for i := 1 to q-1 do pot := (pot*a) mod q;
    if pot <> 1 then exit;
  end;
  Result := true;
end;

[LTE5]

1€ darauf, dass der Lehrer herausbekommt, dass die Formel nicht von ihm ist.

[himitsu]

Angemeldet, Frage gestellt, keine Minute gewartet und seither nicht mehr dagewesen.
Also 2€, dass der Lehrer so nichts rausbekommt.

[LTE5]

Ich glaube das Thema ist eh gegessen daher:

3€ darauf, dass der TE absolut gar nichts gelernt hat.

[zeras]

Seine letzte Aktivität ist von heute Abend.
Also gebt mir die übrigen Euros

[himitsu]

Bezüglich Ringspeicher

Neben TList gibt es auch TStack (LIFO) und vorallem TQueue (FIFO).

[Luckie]

Jetzt haltet mal die Bälle flach und wartet mal ab. Im Übrigen werden eure Lösungsvorschläge werden für einen Anfänger immer weniger umsetzbar.