Gerade Zahl oder Ungerade Zahl?

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

[DeddyH]

Nicht, dass das wieder so ein Monster-Thread wird, einer reicht

[implementation]

Zitat von DeddyH:

Nicht, dass das wieder so ein Monster-Thread wird, einer reicht

Nein, jetzt roll' ich mich wieder vor Lachen auf dem Boden, weil du den wieder rausgekramt hast

[Rakash]

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

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.

[implementation]

Zitat von Rakash:

aber ich hab parallel noch eine mit mod erstellt.

Eine reicht doch

[DeddyH]

Wenn andere schon mit Assembler kommen, sei mir zumindest eine kleine Kürzung erlaubt (ohne Fehlerbehandlung):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Ausgabe: array[Boolean] of string = ('gerade!', 'ungerade!');
begin
  Label1.Caption := Ausgabe[Odd(StrToInt(Edit1.Text))];
end;

[Rakash]

Zitat von implementation:

Zitat von Rakash:

aber ich hab parallel noch eine mit mod erstellt.

Eine reicht doch

mehr zur übung (:

[Medium]

Oh bitte bitte mehr so Zeug wie aus dem Negativ-Test-Thread! Biiiiiiitte!

[jfheins]

Zitat von DeddyH:

Wenn andere schon mit Assembler kommen, sei mir zumindest eine kleine Kürzung erlaubt (ohne Fehlerbehandlung):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Ausgabe: array[Boolean] of string = ('gerade!', 'ungerade!');
begin
  Label1.Caption := Ausgabe[Odd(StrToInt(Edit1.Text))];
end;

Wenn du den Code schon so rabiat kürzt: Ich glaube du kannst das begin/end weglassen. (Da die Prozedur nur aus einer Zeile besteht)
Spart nochmal 40% LOC ein