Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.145 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#11

AW: ungerade und gerade Zahlen erkennen

  Alt 24. Mai 2019, 10:28
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:

Miniaturansicht angehängter Grafiken
and2.png  
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."
  Mit Zitat antworten Zitat