Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Gerade Zahl oder Ungerade Zahl? (https://www.delphipraxis.net/159618-gerade-zahl-oder-ungerade-zahl.html)

himitsu 5. Apr 2011 18:23

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:
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 5. Apr 2011 18:35

AW: Gerade Zahl oder Ungerade Zahl?
 
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 5. Apr 2011 18:45

AW: Gerade Zahl oder Ungerade Zahl?
 
Nicht, dass das wieder so ein Monster-Thread wird, einer reicht :warn:

implementation 5. Apr 2011 19:20

AW: Gerade Zahl oder Ungerade Zahl?
 
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 5. Apr 2011 19:22

AW: Gerade Zahl oder Ungerade Zahl?
 
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 Hier im Forum suchenmod erstellt.

implementation 5. Apr 2011 19:24

AW: Gerade Zahl oder Ungerade Zahl?
 
Zitat:

Zitat von Rakash (Beitrag 1093248)
aber ich hab parallel noch eine mit Hier im Forum suchenmod erstellt.

Eine reicht doch :wink:

DeddyH 5. Apr 2011 19:28

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;

Rakash 5. Apr 2011 19:50

AW: Gerade Zahl oder Ungerade Zahl?
 
Zitat:

Zitat von implementation (Beitrag 1093249)
Zitat:

Zitat von Rakash (Beitrag 1093248)
aber ich hab parallel noch eine mit Hier im Forum suchenmod erstellt.

Eine reicht doch :wink:

mehr zur übung (:

Medium 5. Apr 2011 19:56

AW: Gerade Zahl oder Ungerade Zahl?
 
Oh bitte bitte mehr so Zeug wie aus dem Negativ-Test-Thread! Biiiiiiitte! :D

jfheins 5. Apr 2011 19:56

AW: Gerade Zahl oder Ungerade Zahl?
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Seite 2 von 3     12 3      

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