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

Delphi-Quellcode:

Frac(x / 2) <> 0

. :stupid:

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:

Zitat von himitsu (Beitrag 1093227)

Delphi-Quellcode:

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 :warn:

[implementation]

Zitat:

Zitat von DeddyH (Beitrag 1093235)

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

Nein, jetzt roll' ich mich wieder vor Lachen auf dem Boden, weil du den wieder rausgekramt hast :roteyes::corky::spin2::spin::freak::hello:

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

Zitat von Rakash (Beitrag 1093248)

aber ich hab parallel noch eine mit mod erstellt.

Eine reicht doch :wink:

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

Zitat von implementation (Beitrag 1093249)

Zitat:

Zitat von Rakash (Beitrag 1093248)

aber ich hab parallel noch eine mit mod erstellt.

Eine reicht doch :wink:

mehr zur übung (:

[Medium]

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

[jfheins]

Zitat:

Zitat von DeddyH (Beitrag 1093251)

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