Primzahl

[infofa1]

Hallo,

ich brauche dringend Hilfe!!!
Das Programm soll die Primzahlen bis zu der eingegebnen Grenze in einer ListBox angeben.
als Vorlage haben wir folgendes

------------------

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
 [COLOR="Red"]begin
  prim:=true;
  teiler:=zahl;
  wurzel:=sqrt(n);
 while (teiler <= wurzel) and (prim) do
   begin
    if zahl mod teiler:=0 then prim := false;
    teiler:=teiler + 1 ;
   end;[/COLOR]

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

end;

end.

--------------

ab der ersten while do Schleife ist es falsch. Aber was genau ???
Der Schluss stimmt auch wieder (if prim = True then
listbox1.Items.Add (inttostr(zahl)); )

Vielen Danke!

[madtom]

Hallo Infofa1,

erst einmal herzlich willkommen im Forum.
Zu Deinem Problem schau mal hier:

http://www.dbrsoftware.de/delphi/primz.php

Viel Spaß

madtom

[Reinhard Kern]

Zitat von infofa1:

ab der ersten while do Schleife ist es falsch. Aber was genau ???

Hallo,

zahl muss hochgezählt werden (zahl := zahl + 1), sonst sind alle Schleifendurchläufe gleich und prüfen nur die Zahl 3. Und das endlos.

Gruss Reinhard

[infofa1]

Hallo madtom,

leider sind bin ich noch nicht mit den befehlen von deinem link vertraut.
die lösung müsste eigentlich nur mit den schleifen und den vorgegebnen var gehen.
das rot markierte ist ja nur falsch. aber ich komm nicht dahinter was alles ^^

fabi

[infofa1]

Zitat von Reinhard Kern:

Zitat von infofa1:

ab der ersten while do Schleife ist es falsch. Aber was genau ???

Hallo,

zahl muss hochgezählt werden (zahl := zahl + 1), sonst sind alle Schleifendurchläufe gleich und prüfen nur die Zahl 3. Und das endlos.

Gruss Reinhard

In welcher zeile müsste ich das genau ändern?
eigentlich sollte nur im roten bereich die fehler sein^^

[Wolfgang Mix]

Delphi-Quellcode:

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

[infofa1]

Hallo Wolfgang Mix

danke schonmal

jetzt jedoch verlangt er dass der ausdruckstyp BOOLEAN sein muss in der zeile if zahl mod teiler:=0 then prim := false;
was stimmt hier noch nicht???

fabi

[Wolfgang Mix]

:= ist eine Zuweisung, Vergleiche brauchen nur das "=".
Laß mal den Doppelpunkt weg!

if zahl mod teiler=0 then prim := false;

[infofa1]

ahh nee
jetzt funktioniert es
aber er zeigt mir in der listbox bei n:=50 z.b.
nur 2 und 51 an ???

[Codewalker]

Zitat von infofa1:

ahh nee
jetzt funktioniert es
aber er zeigt mir in der listbox bei n:=50 z.b.
nur 2 und 51 an ???

Was schließt du daraus? Die 2 fügst du manuell ein, es wird also nur die allerletzte Zahl ausgegeben. Du machst also erst NACH der Schleife eine Ausgabe und nicht bei jedem einzelnen Durchlauf. (Tipp: achte mal auf deine begin..end-s)