Primzahl

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

[infofa1]

habe jetzt folgendes:

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:=zahl;
wurzel:=sqrt(n);
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;

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

anwendug läuft, zeigt mir jedoch in der listbox nur 2 und bei n z.b. 100 alle zahlen ab 11 bis 100 an
komme hier jetzt nicht weiter???

[infofa1]

ich habe jetzt die ausgabe aus der schleife genommen
geht trotzdem noch nicht

[Jumpy]

Du könntest einmal die Delphi-Tags (Römerhelm) benutzen, dann ist der Code besser lesbar.


wurzel:=sqrt(n);
würde ich vor die Schleife setzen, denn das muss nur einmal gesetzt werden (ist aber nicht das Problem).


teiler:=zahl;
muss
teiler:=1;
sein, da sonst in der Zeile mit mod immer direkt 0 rauskommt

[infofa1]

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)
end;
if prim = True then
listbox1.Items.Add (inttostr(zahl));

habe wieder was besserers^^

jetzt kommt in der listbox aber nur 2 und 101 wenn ich n=100 eingeb
????

[Luckie]

Liest du eigentlich auch unsere Antworten? Guck doch mal, wo dein Listbox.Items.Add steht und wo die Primzahlen ermittelt werden.

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