Quelltext für Primzahlermittlung gesucht.

[maik753]

Hi.
Ich muss für die Schule eine Programm entwickeln, in dem mir das Programm sagt, ob die eingegebene Zahl eine Primzahl ist oder nicht. Das jedoch in Lazarus. Da Delphi und Lazarus relativ gleich sind, wollte ich mal fragen, ob schonmal jemand soetwas programmiert hat und mir zur Verfügung stellen könnte, weil ich selber keine Ahnung von programmieren habe.

[Neutral General]

Zitat:

Zitat von maik753 (Beitrag 1388278)

Hi.
Ich muss für die Schule eine Programm entwickeln, in dem mir das Programm sagt, ob die eingegebene Zahl eine Primzahl ist oder nicht. Das jedoch in Lazarus. Da Delphi und Lazarus relativ gleich sind, wollte ich mal fragen, ob schonmal jemand soetwas programmiert hat und mir zur Verfügung stellen könnte, weil ich selber keine Ahnung von programmieren habe.

Du hast keine Ahnung von Programmieren?
Weißt du was? Ich glaube genau deswegen bekommst du in der SCHULE programmieren beigebracht.
Wäre ja doof wenn man nur das lernen würde was man schon kann oder? :gruebel:

Die Sache ist die: Wir werden nicht deine Hausaufgaben für dich machen.
ABER wir helfen dir sehr gerne sie selbst zu schaffen ;)
Guck wie weit du kommst und wenn du nicht weiter kommst kannst du gerne hier nachfragen.

[himitsu]

Den/einige mathematische Wege kennst du aber schon, wie man eine Zahl darauf prüft, ob sie eine Primzahl ist?

[hoika]

Hallo Maik,
wie war der Algorithmus zur Primzahlen-Prüfung noch mal?

[Luckie]

Jetzt lasst ihn sich erst mal Gedanken machen.

[p80286]

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

Gruß
K-H

[TiGü]

Vielleicht hat er auch einfach gegoogelt? :shock:
"prime number delphi"

[LTE5]

Da ist es meiner Meinung nach einfacher sich einfach alle Primzahlen bis N zu merken und auswendig zu lernen statt dieses Hexenwerk zu erlernen :lol:

Zitat:

Vielleicht hat er auch einfach gegoogelt?

Ich denke sein erster Beitrag war auch gleich sein letzter. Denn "Wir machen nicht deine Hausaufgaben" hat er eventuell nicht erwartet.

[p80286]

Zitat:

Zitat von LTE5 (Beitrag 1388336)

Ich denke sein erster Beitrag war auch gleich sein letzter. Denn "Wir machen nicht deine Hausaufgaben" hat er eventuell nicht erwartet.

Das war aber sehr höflich formuliert, ich habe eben ein Word Forum besucht, da wurde ein Fragesteller derartig zur Sau gemacht:shock:

Gruß
K-H

[Delphi.Narium]

Interessant, wieviele Lösungen man findet, wenn man oben rechts (bei Suchen) einfach mal primzahl eingibt. ;-)

[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

Delphi-Quellcode:

showmessage( BoolToStr(IsPrime(3453451), True) );

[gammatester]

Zitat:

Zitat von Delphi-Laie (Beitrag 1388352)

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:

Zitat von p80286 (Beitrag 1388334)

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. :stupid:

[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:-D

[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.