![]() |
AW: Gerade Zahl oder Ungerade Zahl?
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:
. :stupid:
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. |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
mehr, mehr <bg> Der Thread erinnert mich an ... ![]() |
AW: Gerade Zahl oder Ungerade Zahl?
Nicht, dass das wieder so ein
![]() |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
|
AW: Gerade Zahl oder Ungerade Zahl?
vielen lieben dank!
ich habe nun diese form gewählt:
Code:
aber ich hab parallel noch eine mit
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; ![]() |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
|
AW: Gerade Zahl oder Ungerade Zahl?
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; |
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
|
AW: Gerade Zahl oder Ungerade Zahl?
Oh bitte bitte mehr so Zeug wie aus dem Negativ-Test-Thread! Biiiiiiitte! :D
|
AW: Gerade Zahl oder Ungerade Zahl?
Zitat:
Spart nochmal 40% LOC ein :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz