Nur ungerade zahlen in einer for-schleife!

[jaslaz]

Hi zusammen,

Code: Alles auswählen

for n:=1 to form2.listbox1.items.count do
  begin
 listbox2.Items.add(form2.listbox.Items[n]+ '  =  ' + form2.listbox2.Items[n+1])  
  end;

Ich will nun das zeile1 und zeile2 der listbox immer in einer zeile einer anderen sind (siehe code)!
Mein Problem ist das ich bei der for-schleife nur jede zweite zahl benutzen will!
Also falls listbox1 10 zeilen hat, nur die zahlen 1,3,5,7,9 in der For Schleife bearbeitet werden.
Dort ein n:=n+1 einzubauen geht nicht da die variable aus der for-Schleife nicht verändert werden darf!!!

Ich stell mir das sonst einfach so vor:

Code: Alles auswählen

for n:=1 to form2.listbox1.items.count do
  begin
 if n= UNGERADE then 
 listbox2.Items.add(form2.listbox.Items[n]+ '  =  ' + form2.listbox2.Items[n+1]) 
  end;
 

Mein problem ist dann aber wie ich Ungerade abfragen kann!
 
 
Hoffe ihr könnt mir helfen, auch andere Möglichkeiten sind erwünscht(gleiches Ergebnis natürlich!!!).
 
LG Jaslaz

[theo]

http://www.freepascal.org/docs-html/rtl/system/odd.html" onclick="window.open(this.href);return false;

[jaslaz]

http://www.freepascal.org/docs-html/rtl/system/odd.html

was hat das denn jetzt damit zu tun?

[theo]

was hat das denn jetzt damit zu tun?

Bist du so, oder tust du nur so?

Odd=Ungerade

[jaslaz]

Bist du so, oder tust du nur so?

Odd=Ungerade

ups sry und thx

[Bora4d]

Deine Frage ist schon gut beantwortet aber ss gibt noch eine Möglichkeit was ich immer verwende. Der Operator mod liefert immer die zahl nach dem komma, wenn eine Zahl durch 2 Rest 0 ist dann ist die Zahl gerade:
if (EineZahl mod 2) = 0 then EineZahl_Ist_Gerade;

Wenn man prüfen will ob eine Zahl durch 3 teilbar ist, also ohne Stellen nach dem komma dann macht man das so:
if (EineZahl mod 3) = 0 then EineZahl_Ist_durch_3_teilbar;
z.B.
9 mod 3 = 0
6 mod 3 = 0
8 mod 3 <>0

[Socke]

Der Operator mod liefert immer die zahl nach dem komma, wenn eine Zahl durch 2 Rest 0 ist dann ist die Zahl gerade:

Die Formulierung »gerade = durch 2 ohne Rest teilbar« führt natürlich als erstes zum mod-Operator. Die Funktion Odd() ist aber ein ganzes Stücke effizienter. Wie das geht:
In der binären Repräsentation hat das niederwertigste Bit den Dezimalwert 1. Alle anderen Bits haben gerade Werte und sind somit garantiert auch durch 2 Teilbar. Man muss also nur überprüfen, ob dieses Bit gesetzt ist, beispielsweise:
boolean(5 and 1)
Ein einfaches and ist ist natürlich viel schneller als eine Division und ein Vergleich (schon allein dadurch, dass es nur eine statt zwei Oprationen ist). In Assembler-Anweisungen sind das auf x86 3 zu 6 Operationen (über deren Komplexität ich keine Aussage treffen kann).
Der Nachteil durch einen Funktionsaufruf wird im Regelfall durch Inlining verhindert.

[diogenes]

Oder du formulierst:

Code: Alles auswählen

for n:=1 to ([color=#FF0000]form2.listbox1.items.count - 1[/color]) div 2 do
  begin
 listbox2.Items.add(form2.listbox.Items[[color=#FF0000]2 * n + 1[/color]]+ '  =  ' + form2.listbox2.Items[[color=#FF0000]2 * (n + 1)[/color]])  
  end;

damit wird nur mit ungeraden Zahlen (bzw. später im Ausdruck mit ihren unmittelbaren Nachfolgern) indiziert. ISt das OK so?
Die 2. Möglichkeit geht mit while-Schleife:

Code: Alles auswählen

n := 1;
while n < form2.listbox1.items.count do begin
  listbox2.Items.add(form2.listbox.Items[n]+ '  =  ' + form2.listbox2.Items[n + 1]);
  Inc( n, 2)
 end;

Ich persönlich würde zweiteres bevorzugen. Ist vermutlich schneller.

[petermännchen]

Mein Angebot

Code: Alles auswählen

for n:=1 to form2.listbox1.items.count do  
  begin 
    //Test auf ungerade
    if odd(n) then 
      listbox2.Items.add(form2.listbox.Items[n]+ '  =  ' + form2.listbox2.Items[n+1])   
    end;
{    //Test auf gerade
    if not odd(n) then 
      listbox2.Items.add(form2.listbox.Items[n]+ '  =  ' + form2.listbox2.Items[n+1])   
    end;}

Ups, Theo's Link ist ja das gleiche.