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;) :gruebel:

[kiar]

Delphi-Quellcode:

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 :roll: :mrgreen:

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

...:cat:...

[Stevie]

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

[Nothine]

Zitat:

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 :roll:
[/klugscheiß]
das musste jetz sein :mrgreen:

[JSB]

Bin erst im 1.Lehrjahr...

Was sind:

Zitat:

Zitat von sakura

[delphi] Tags.

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


funktioniert nicht....

[sakura]

Zitat:

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

...:cat:...