Gerade Zahl oder Ungerade Zahl?

**Namenloser**

Merkwürdig, ich könnte schwören, dass es die gibt... vielleicht war sie aber aus irgendeiner 3rd-Party-Unit

**ChrisE**

Zitat von uligerhardt:

Mein D2007 kennt nur Odd.

Kann ich bestätigen. Meins auch

**p80286**

Even() = not(Odd()) ?

Gruß
K-H

**Deep-Sea**

Zitat von p80286:

Even() = not(Odd()) ?

Genau. Oder in Delphi "gesagt":

markieren

Delphi-Quellcode:

			function Even(X: Integer): Boolean; inline;

begin

  Result := not Odd(X);

end;

**Wolfgang Mix**

Ergänzend zu NamenLoser:

markieren

Delphi-Quellcode:

			If (x mod 2 = 0) then

  //x ist gerade

else // x ist ungerade

**himitsu**

Wobei aber die AND-Version zu bezuzugen wäre (Odd verwendet diese ebenfalls intern),
da diese kleine Bitoperation wesentlich schöner/flotter ist, als soeine "rießige" mathematische Berechnung, wie das MOD.

Am Ende schlägt noch emand Frac(x / 2) <> 0 .

Wobei man es auch dirkt in einen ASM-Bit-Test casten könnte (über ein SET und den IN-Operator), aber so toll isses dann nun och nicht.

**ConnorMcLeod**

Zitat von himitsu:

Frac(x / 2) <> 0

rotfl u made my day !!
mehr, mehr <bg>

Der Thread erinnert mich an ...

http://www.r-ene.de/lustigetexte/physikpruefung/

**alzaimar**

Zitat von himitsu:

Wobei aber die AND-Version zu bezuzugen wäre

Um Gottes Willen, nein! Programme sollen lesbar sein und nicht durch kryptographischen Spezialcode das Insiderwissen des Autors belegen.

Du musst doch sogar einen Kommentar zu dem Code schreiben, damit man weiss, was er machen soll, und das bei 5 Zeichen.

Versteck deine Bittüdelei wenigstens in einer Funktion. Aber nenn die bloß nicht AND_1

**Rakash**

vielen lieben dank!
ich habe nun diese form gewählt:

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var x: integer;

begin

x := StrToInt(Edit1.Text);

if ODD(x) then

Label1.Caption := 'ungerade!'

else

Label1.Caption := 'gerade!';

end;

aber ich hab parallel noch eine mit Hier im Forum suchen

mod erstellt.

**implementation**

Zitat von Rakash:

aber ich hab parallel noch eine mit Hier im Forum suchen

mod erstellt.

Eine reicht doch

Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

AW: Gerade Zahl oder Ungerade Zahl?

Forumregeln

Namenloser Registriert seit: 7. Jun 2006 Ort: Karlsruhe 3.724 Beiträge FreePascal / Lazarus	#1 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 15:13 Merkwürdig, ich könnte schwören, dass es die gibt... vielleicht war sie aber aus irgendeiner 3rd-Party-Unit
	Zitat

ChrisE Registriert seit: 15. Feb 2006 Ort: Hechingen 504 Beiträge Delphi 10.2 Tokyo Professional	#2 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 15:30 Zitat von uligerhardt: Mein D2007 kennt nur Odd. Kann ich bestätigen. Meins auch Christian E. Es gibt 10 Arten von Menschen, die die Binär lesen können und die die es nicht können Delphi programming rules
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#3 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 15:35 Even() = not(Odd()) ? Gruß K-H Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

Deep-Sea Registriert seit: 17. Jan 2007 907 Beiträge Delphi XE2 Professional	#4 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 15:37 Zitat von p80286: Even() = not(Odd()) ? Genau. Oder in Delphi "gesagt": markieren Delphi-Quellcode: function Even(X: Integer): Boolean; inline; begin Result := not Odd(X); end; Chris Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
	Zitat

Wolfgang Mix Registriert seit: 13. Mai 2009 Ort: Lübeck 1.222 Beiträge Delphi 2005 Personal	#5 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 16:10 Ergänzend zu NamenLoser: markieren Delphi-Quellcode: If (x mod 2 = 0) then //x ist gerade else // x ist ungerade Wolfgang Mix if you can't explain it simply you don't understand it well enough - A. Einstein Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
	Zitat

ConnorMcLeod Registriert seit: 13. Okt 2010 Ort: Bayern 490 Beiträge Delphi 10.4 Sydney	#7 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 17:35 Zitat von himitsu: Frac(x / 2) <> 0 rotfl u made my day !! mehr, mehr <bg> Der Thread erinnert mich an ... http://www.r-ene.de/lustigetexte/physikpruefung/ Geändert von ConnorMcLeod ( 5. Apr 2011 um 17:38 Uhr)
	Zitat

Rakash Registriert seit: 5. Apr 2011 13 Beiträge	#9 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 18:22 vielen lieben dank! ich habe nun diese form gewählt: markieren Code: procedure TForm1.Button1Click(Sender: TObject); var x: integer; begin x := StrToInt(Edit1.Text); if ODD(x) then Label1.Caption := 'ungerade!' else Label1.Caption := 'gerade!'; end; aber ich hab parallel noch eine mit mod erstellt.
	Zitat

implementation Registriert seit: 5. Mai 2008 940 Beiträge FreePascal / Lazarus	#10 AW: Gerade Zahl oder Ungerade Zahl? 5. Apr 2011, 18:24 Zitat von Rakash: aber ich hab parallel noch eine mit mod erstellt. Eine reicht doch GNU/Linux- und FreeBSD-User \| Free as in Freedom! \| Freie PDF-Reader: 4 Freedoms included! \| Stop DRM! \| Liberate your documents! \| Stop Software Patents!
	Zitat