Primzahlen

[Romiox]

Danke für die schnelle Antwort ( /agree )

Ich bin nicht überzeugt ^^
Mal abgesehen von der Tatsache, das die Rückgabe Boolean sein sollte.

Mein Problem ist, das mir das Programm so immer 0 zurückgibt. Ja, die Schleife läuft weiter
(nicht unbedingt effektiv.. Jaja ) aber würde ja maximal wieder eine 0 setzen, das Ergebnis also
nicht verändern. Mein erster Gedanke war, das er noch durch 1 teilt, aber eigentlich sollte der Algorithmus
vorher terminieren (while b > 1 ).

Zum Thema Abbruch: Ein exit innerhalb der if-Verzweigung würde nur die Funktion abbrechen und den festgelegtenm Wert zurückgeben, oder?

[DeddyH]

Stimmt, hast Recht. Beim Debuggen ist es mir aufgefallen: Du hast als Bedingung b > 1, ziehst aber innerhalb der Schleife wieder 1 ab, so dass Du immer durch 1 teilst.

[edit] Wo war der rote Kasten? [/edit]

[Romiox]

Roter Kasten? *confused*

Aber dank euch ists jetzt Version 1.1 ;D

[DeddyH]

[OT] Der rote Kasten kommt normalerweise, wenn Du einen Beitrag senden willst, nachdem zwischenzeitlich bereits anderweitig im Thread geantwortet wurde. Du kannst dann überprüfen, ob Du wirklich noch neue Inhalte beisteuern kannst. [/OT]

[edit] Ich konnte es nicht lassen und habe Deine Funktion einmal etwas verkürzt:

Delphi-Quellcode:

function isprime(a: integer): Boolean; //soll testen ob a eine Primzahl ist
var Teiler: integer;
begin
  Result := a > 1;
  Teiler := Pred(a);
  while Result and (Teiler > 1) do
    begin
      Result := a mod Teiler <> 0;
      dec(Teiler);
    end;
end;

[/edit]

[generic]

btw. auf dem T-Shirt was auf dem Delphi-Tagen 2010 verteilt wurde, ist etwas Quelltext, der Primzahlen berechnet - das sogar multithreaded.