Thema: Delphi Für 2 mach 1

Einzelnen Beitrag anzeigen

CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Für 2 mach 1

  Alt 13. Nov 2003, 20:24
Hi,
das ist dann auch nicht mehr so schwer.
Quick&Dirty:
Delphi-Quellcode:
erg1 := AnzahlPersonen/2;
if AnzahlPersonen mod 2 = 1 then begin
  erg1 := erg1 + 1;
end;
Wirklich veryQuick&veryDirty.

Chris
  Mit Zitat antworten Zitat