Zwischen Geraden und ungeraden Zahlen unterscheiden

[Andreas L.]

Hi,
ich glaube ich hab das schonmal gefragt, finde aber den Beitrag nicht mehr. Wie kann ich gerade von ungeraden Zahlen unterscheiden.

Beispiel:

Delphi-Quellcode:

1 = ungerade
2 = gerade
3 = ungerade
...

IstGerade(2) = true
IstGerade(1) = false

Wie heißt die Funktion?

*alzheimer hab* :coder2:

[Neutral General]

Hi,

Ein Tipp: Gerade Zahlen lassen sich ohne Rest durch 2 teilen ;)

Gruß
Neutral General

[Andreas L.]

Zitat:

Zitat von Neutral General

Hi,

Ein Tipp: Gerade Zahlen lassen sich ohne Rest durch 2 teilen ;)

Gruß
Neutral General

Klar, ich Idiot.... :wall: :wall: Aber gabs da nicht trotzdem eine Funktion die das auto. macht? :mrgreen: :gruebel:

[Neutral General]

Ja die gibts:

Delphi-Quellcode:

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

;)

[WS1976]

Hallo,

mit etwas nachdenken....

If (a div 2)=(a /2) then 'gerade Zahl' else 'ungerade Zahl'
die Null musst du noch separat abfangen.

Für alle die es wie immer besser wissen:
das ist kein Code sondern nur eine Anleitung (Prinzip) wie mans macht.


Grüsse

[Robert Marquardt]

Odd() ist originales Wirth-Pascal.

[TeronG]

OH sagt bei suche nach 'Ungerade': Odd (Funktion)

EDIT:
1. Zu langsam
2. Gefällt mir MOD nicht (wenn oft ausgeführt) wenn schon was basteln, dann isses imho besser wenn man mit shl (shr) arbeitet. (Performanter!?)
EDIT2:
Schade, daß in der System.pas nicht drinnen steht wie odd arbeitet :(

[himitsu]

Odd

Zitat:

Zitat von OH: Odd

Die Funktion gibt true zurück, wenn das Argument eine ungerade Zahl ist.

Delphi-Quellcode:

Function Odd(i: Integer): Boolean;
  Begin
    Result := i and 1 <> 0;
  End;

i and 1 : niederwertiges Bit auswählen
... <> 0 : testen ob dieses Bit gesetzt ist

Warum man über dieses Bit auf (un)gerade prüfen kann wird klar, wenn man sich den Datentyp mal ansieht.

Ach ja: ein binärer Vergleich ist in der Regel schneller/optimaler als eine mathematische Berechnung.

[Andreas L.]

Zitat:

Zitat von TeronG

OH sagt bei suche nach 'Ungerade': Odd (Funktion)

EDIT:
1. Zu langsam
2. Gefällt mir MOD nicht (wenn oft ausgeführt) wenn schon was basteln, dann isses imho besser wenn man mit shl (shr) arbeitet. (Performanter!?)

Ahh, das wars. Danke :zwinker:

[TeronG]

Ahh .. nicht verzagen himitsu fragen :)

Die Methode ist natürlich schöner als "mein" shl ... währe ich wohl nie drauf gekommen.
btw: ist deine Lösung auch die Art, wie es Delphi macht!?