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:
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."