Zahl gerade oder ungerade?

[JSB]

Gibt es die Möglichkeit abzufragen ob eine Zahl gerade/ungerade ist, oder ob diese durch 2 teilbar ist und wenn Sie teilbar/gerade ist einen Boolischen Wert zu bekommen?
(Teilbar/gerade = True; NichtTeilbar/Ungerade = False

[kiar]

odd(i) raik

[alcaeus]

Delphi-Quellcode:

function IsGerade(Zahl: Integer): Boolean;
begin
  Result := Zahl mod 2 = 0;
end;

So, und weil mir der Gedankenblitz erst nach dem Tippen des Codes gekommen ist: Odd

Greetz
alcaeus

[Nothine]

und wenn man sich den binären aufbau der zahlen anschaut kann man sich das mod auch sparen und etwas in der richtung schreiben:

Delphi-Quellcode:

function Gerade(const I: Integer): Boolean;
begin
  Result := I and 1 = 0;
end;

edit: und am rande bemerkt, odd gibt zurück ob die zahl UNgerade ist, ich glaub das war nich ganz die frage

[hboy]

Delphi-Quellcode:

function ungerade(const I: Integer): Boolean;
begin
  Result := Boolean(I and 1);
end;

immer diese tags !

[sakura]

@HBoy: Sei mal so gut und nutze die [delphi] Tags.

......

[Stevie]

[senfmode]Die Funktion Odd ist CompilerMagic, deshalb wird sie wohl schneller sein, als alle selbst gebauten... [/senfmode]

[Nothine]

Zitat von Stevie:

[senfmode]Die Funktion Odd ist CompilerMagic, deshalb wird sie wohl schneller sein, als alle selbst gebauten... [/senfmode]

[klugscheiß]
nich unbedingt, als funktion ist Odd nix anderes als

Delphi-Quellcode:

function Odd(X: Longint): Boolean;
asm
  AND EAX,$01 // AND AL,$01 würde sogar schon reichen
end;

und bei z.B. if Odd(Variable) then halt

Delphi-Quellcode:

...
  TEST {Register or Memory},$01
  J{bedingung} //oder SET{bedingung}, je nach verwendung

also ich glaub das kann man auch noch selber so schnell nachbauen wie der compiler
[/klugscheiß]
das musste jetz sein

[JSB]

Bin erst im 1.Lehrjahr...

Was sind:

Zitat von sakura:

[delphi] Tags.

PS:
if (Durchlauf > 1) and ( if (Odd(Durchlauf)) = False) then


funktioniert nicht....

[sakura]

Zitat von Nothine:

[klugscheiß]
nich unbedingt, als funktion ist Odd nix anderes als

Delphi-Quellcode:

function Odd(X: Longint): Boolean;
asm
  AND EAX,$01 // AND AL,$01 würde sogar schon reichen
end;

Jetzt muss ich Deinen Modus überlaufen. Denn Du weißt nicht was "Compilermagic" bedeutet Bei Deinen eigenen Funktionen kommt immer ein Overhead (Funktionsaufruf und Rücksprung) dazu. Bei Odd nicht, da diese direkt eingesetzt wird ohne den Stack zu belasten. Damit ist Odd immer schneller

......