Einzelnen Beitrag anzeigen

Darlo

Registriert seit: 28. Jul 2008
Ort: München
1.191 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: Ganze Zahl immer auf nächste 50 runden?

  Alt 26. Feb 2017, 19:05
ungetestet und ggf. zu kompliziert ��

Delphi-Quellcode:
if (x +49 mod 50) mod 2 = 0 then
   erg := (x +49 mod 50)*50
else
   erg := (x +49 mod 50)*50-50.
Philip

Geändert von Darlo (26. Feb 2017 um 19:08 Uhr)
  Mit Zitat antworten Zitat