Real aufrunden

[Satty67]

Mist, hab' mir Mühe gegeben und war trotzdem zu langsam

Delphi-Quellcode:

function RoundTo10(d : Double): Integer;
begin
  Result := Round(d / 10 +1) *10;
end;

(hmmm, ich lasse mal meine Ursprungsversion, die scheint doch richtig zu funktionieren...)

div eignet sich nicht für Fließkommazahlen