Primzahl

[Aphton]

Komme dem zuerst bitte nach, was von dir verlangt wird - verpass deinem Code die schönen [delphi] Tags und rücke mal ordentlich ein!

Delphi-Quellcode:

  teiler:=zahl;
  {..}
  if zahl mod teiler=0 then
    prim := false;
  teiler := teiler + 1;

Ist dir eigentlich aufgefallen, dass die Abfrage immer True sein wird?
teiler erhält den Wert zahl. Nichts wird zwischenzeitlich geändert und anschließend wird geprüft, ob zahl dividiert durch teiler einen Rest liefert. Eine Zahl durch sich selbst liefert niemals nen Rest!
Deshalb ist bei dir prim immer false!

[infofa1]

Danke für eure Hilfe habs rausbekommen^^

[infofa1]

Delphi-Quellcode:

procedure TForm1.BRechnenClick(Sender: TObject);

var n, teiler, zahl   :integer;
    wurzel            :real;
    prim              :boolean;

begin
ListBox1.clear;
n:=strtoint(Edit1.text);
ListBox1.items.Add('2');
zahl:=3;

while zahl<=n do
begin
  prim:=true;
  teiler:=2;
  wurzel:=sqrt(zahl);
  while (teiler <= wurzel) and (prim) do
  begin
    if zahl mod teiler=0  then prim := false;
    teiler:=teiler + 1 ;
  end;

if prim = True then
listbox1.Items.Add (inttostr(zahl));

zahl:=zahl+1;

end;
end;

end.

-> für die, dies noch interessiert

[DeddyH]

Abgesehen von der kreativen Einrückung solltest Du

Zitat:

if prim = True then

noch abändern in
if prim then Sonst baust Du Dir nur unnötige Fehlerquellen ein.

[Jumpy]

Weitere Optimierung wäre:

teiler:=3;

in zusammenarbeit mit

zahl:=zahl+2;

und

teiler:=teiler+2;

So werden alle geraden Zahlen (>2) übersprungen, da sie ja eh nicht prim sind.

[Wolfgang Mix]

zusammengefasst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var n, teiler, zahl :integer;
    wurzel :real;
    prim :boolean;
begin
  ListBox1.clear;
  n:=strtoint(Edit1.text);
  ListBox1.items.Add('2');
  zahl:=3;

  while zahl<=n do
  begin
    prim:=true;
    teiler:=3;
    wurzel:=sqrt(zahl);
    while (teiler <= wurzel) and (prim) do
    begin
      if zahl mod teiler=0 then prim := false;
      inc(teiler,2) ;
    end;

  if prim then
    listbox1.Items.Add (inttostr(zahl));
  inc(zahl,2);

  end;
end;

[implementation]

Eine andere Lösungsidee:

Man nehme ein Array of Boolean und befüllt es mit true.
Jetzt fängt man mit der 2 an (x := 2).
Und geht zunächst jedes zweite Feld durch und setzt es auf false.
Dann stehen arr[4], arr[6] usw. alle auf false.

Nun macht man mit der 3 weiter und schaut sich arr[3] an.
arr[3] ist true, also ist 3 eine Primzahl.
Nun geht man von hier aus wieder jedes dritte Feld durch und setzt es auf false.
Dann stehen arr[9], arr[15] und arr[21] ebenfalls auf false.

Nun die 4: arr[4] ist false -> keine Primzahl!

Weiter zur 5: arr[5] ist true -> Primzahl.
Wieder jedes fünfte Feld auf false setzen: Das wars dann wohl für arr[25] und arr[35].

Weiter zur 6: arr[6] ist false -> keine Primzahl!

Und immer so weiter.