ungerade und gerade Zahlen erkennen

[Inkompetent]

Hi ich möchte in einem Programm erreichen das es erkennt ob eine erreichte Zahl gerade ist oder ungerade und dann dementsprechend handelt z Bsp mit einem if x=(gerade zahl) then ... Hilfe währe nett ^^

[Luckie]

http://www.delphibasics.co.uk/RTL.asp?Name=Odd

[Inkompetent]

danke kann man das auch irgendwie bei komma zahlen benutzen also obs ne komme zahl oder ganze zahl ist

[Dalai]

Sicher, einfach den Teil nach dem Komma entfernen:

Delphi-Quellcode:

if Odd(Trunc(X)) = ...

Statt Trunc lassen sich auch andere Funktionen zur Umwandlung von Float in Integer nutzen.

Grüße
Dalai

[Inkompetent]

danke schön ^^

[mischerr]

Was kennzeichnet eine gerade Zahl? Das sie ohne Rest durch 2 teilbar ist...
Wie kann somit eine Zahl mit Nachkommastellen jemals gerade sein?

[DP-Maintenance]

Dieses Thema wurde am "24. May 2019, 08:49 Uhr" von "Daniel" aus dem Forum "Fragen / Anregungen zur DP" in das Forum "Object-Pascal / Delphi-Language" verschoben.

[Moombas]

Zitat:

Zitat von mischerr (Beitrag 1433017)

Was kennzeichnet eine gerade Zahl? Das sie ohne Rest durch 2 teilbar ist...
Wie kann somit eine Zahl mit Nachkommastellen jemals gerade sein?

Ich glaube das war anders gemeint, daher habe ich das "danke schön ^^ " vom TE bei der letzten Antwort nicht verstanden.

Eine Prüfung könnte aussehen:

Delphi-Quellcode:

//Prüft ob Kommazahl oder ganze Zahl
if x = trunc(x) then
  showmessage('Ganze Zahl')
else
  showmessage('Kommazahl');

//Prüft auf gerade Zahl
if odd(x) then
  showmessage('ungerade Zahl')
else
  showmessage('gerade Zahl');

[Neutral General]

Deine Gerade/Ungerade Prüfung ist falsch rum. "Odd" bedeuted "Ungerade".

Es wurde zwar schon angedeutet, aber was dein Lehrer wahrscheinlich statt der Funktion Odd() haben wollte ist wahrscheinlich was anderes.
Eine Zahl ist gerade wenn sie ohne Rest durch 2 teilbar ist. In Delphi gibt es den "mod" Operator mit dem du den Rest einer Division erhältst.
D.h. eine andere Art zu prüfen wäre:

Delphi-Quellcode:

if (zahl mod 2) = 0 then // Falls der Rest der Division von der Zahl geteilt durch zwei 0 ist, ist die Zahl gerade
  ShowMessage('Zahl ist gerade')
else
  ShowMessage('Zahl ist ungerade');

[mensch72]

etwas Hardcore:
in der binären Darstellung einer ganzen Zahl ist das niederwertigste Bit=0

Delphi-Quellcode:

if (zahl and 1) = 0 then 
  ShowMessage('Zahl ist gerade')
else
  ShowMessage('Zahl ist ungerade');

(das überfordert aber teils schon manche Lehrer... )