ungerade und gerade Zahlen erkennen

[Neutral General]

Zitat von 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... )

Es kann nicht schaden das zu wissen, aber der Compiler optimiert das sogar selbst:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var zahl: Integer;
begin
  zahl := 3;
  if zahl mod 2 = 0 then
    ShowMessage('!');
end;

CPU-Fenster zur Laufzeit: