Gerade Zahl

[rüssel]

Hallo,
ich wollte aus einem zufallsfeld welches in einem memo ausgegeben wird alle Zahlen löschen die gerade sind.

Leider schaffe ich das nicht.

Mein Ansatz ist das die jeweilige zahl moduliert mit 2 gleich 0 ist.
Leider komm ich nicht dazu dass dieser Vergleich im memo stattfindet und dass diese Zahlen gelöscht werden

Mit freundlichen Grüßen

rüssel

[Helmi]

wie wärs damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  n: Integer;

begin
  for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If (n mod 2) = 0 then
        Memo1.Lines.Delete(i);
end;

[rüssel]

Vielen Vielen Dank :-D :)

[himitsu]

Odd

[edit]
auf "New" klicken > www.delphipraxis.net/issue-436/

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1192664)

Odd

Der vollständigkeitshalber:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  n: Integer;

begin
  for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If not Odd(n) then
        Memo1.Lines.Delete(i);
end;

[rüssel]

Dankeschön

Also falls es nicht unpassend ist hätte ich noch eine Frage bezüglich des Programms, und zwar
wenn man nur Primzahlen möchte habe ich probiert, das hier anzuhängen, aber es funktioniert nicht,
könntet ihr mir vielleicht einen Ratschlag geben.

Delphi-Quellcode:

var a,i,n:integer;
begin
   a:=1;
   for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If not odd(n) then
        Memo1.Lines.Delete(i);
       If n = 1 then Memo1.Lines.Delete(i);
         if n <> 1 then
          begin
           repeat
            a:=a+1
           until n mod a = 0;
            if n mod a <> 0
            then Memo1.Lines.Delete(i);
          end;
end;

Falls es keine Umstände bereitet köntet ihr mir Pred und TryStrtoint erklären, bitte.

[himitsu]

Die OH (F1-Taste) kennst du?

Und notfalls gibt es auch noch die Delphi-Referenz, welche auf der Startseite der DP verlinkt ist. (das Ding, womit och da oben das Odd verlinkt hatte)


Du wirst es nicht glauben, aber da steht drin was welcher Befehl macht. :zwinker:

Delphi-Quellcode:

Pred(X) = X - 1

(Tipp: Code sieht als Code formatiert schöner aus und vorallem ist er lesbarer)

Aber ich würde mal vermuten (so richtig erkennen kann man es ja nicht) du hast ein paar BEGIN und END vergessen.
(vorallem bei/nach

Delphi-Quellcode:

If TryStrToInt(Memo1.Lines.Strings[i], n) then

)

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1192664)

Odd

Odd ist übrigens wesentlich performanter! Es prüft einfach nur das niederwertigste Bit des Operanden. Daran erkennt man, daß Pascal noch aus Zeiten stammt, in denen Rechenzeit kostbar war.

[rüssel]

Also vielen Dank für die Informationen.

[himitsu]

Ein "Problem":
Nach IF-THEN, FOR-DO, WHILE-DO und Co. wird immer nur ein "Befehl" behandelt.
Oder eben ein ganzer Block (BEGIN-END)

Oder man kann auch mehrere IFs via ELSE verbinden.

Delphi-Quellcode:

var
  a, i, n: Integer;
begin
  a := 1;
  for i := Memo1.Lines.Count - 1 downto 0 do  // oder eben mit Pred ... was man halt mehr mag
    if TryStrToInt(Memo1.Lines.Strings[i], n) then
      if not Odd(n) then
        Memo1.Lines.Delete(i);
      else if n = 1 then
        Memo1.Lines.Delete(i);
      else // es kann nur noch "if n <> 1 then" sein
        begin
          a := n div 2;  // man kann gern auch mit "a := n;" anfangen
          repeat
            Dec(a); // a := a - 1;
          until (n mod a = 0) or (a <= 1);  // auch wenn es keine Primzahl ist, soll irgendwann abgebrochen werden
          if a > 1 then // oder "if n mod a <> 0 then" , aber das Andere ist kürzer
            Memo1.Lines.Delete(i);
        end;
end;

[rüssel]

Vielen Dank himitsu :thumb:, vor allem auch für die Erklärungen am Rand.

Ich wünsche euch noch einen schönen Abend.

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1192686)

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do  // oder eben mit Pred ... was man halt mehr mag

Mein schönes

Delphi-Quellcode:

Pred

:(:vernupft: