Real zur nächst kleineren Ganzzahl abrunden

[delphiNoob]

Hallo

Wie der Titel schon sagt, möchte ich einen Real-Wert auf die nächst kleinere Ganzzahl runden, also 2,9 nicht zu 3 sondern zu 2.


Danke schon im vorraus

[ichbins]

Delphi-Quellcode:

setroundmode(rmdown);
round(2.9);

weitere roundmodes:

Code:

rmdown -> immer abrunden (minuszahlen auch)
rmup -> immer aufrunden (minuszahlen auch)
rmtruncate -> Wert abschneiden [-2,9] -> [-2] / [2,9] -> [2]
rmnearest -> normaler Rundungsmodus, bei .5-Werten auf gerade Zahl runden

[3_of_8]

Wie wärs mit trunc(zahl);?

[delphiNoob]

danke für die schnelle antwort, funktioniert perfekt! Danke

[Alexander Roth]

Zitat:

weitere roundmodes:

Code: markieren
rmdown -> immer abrunden (minuszahlen auch)
rmup -> immer aufrunden (minuszahlen auch)
rmtruncate -> Wert abschneiden [-2,9] -> [-2] / [2,9] -> [2]
rmnearest -> normaler Rundungsmodus, bei .5-Werten auf gerade Zahl runden

Na ja bisschen selten und umständlich.


Häufig gebrauch und auch kurz sind diese hier:

- trunc(real) Alle Nachkommastellen werden abgerundet und das ist das gleiche wie immer abrunden
- round(zahl) Rundet nicht mathematisch richtig sondren siehe unten (...richtiger Mist...)
- roundto(zahl,-i) Rundet bis zur i-ten Stelle (geht auch im positiven bereich)

[Khabarakh]

Zitat:

Zitat von Alexander Roth

- round(zahl) Rundet mathematisch richtig

Nope, Round verwendet das sogenannte "Banker´s Rounding".

[3_of_8]

Was ist da der Unterschied?

AFAIK runden beide bei Nachkommastelle <5 ab und bei >=5 auf.

[Grishnak]

Ich habe Bankkaufmann gelernt, als Kassierer und als Kreditberater gearbeitet, aber von diesem "Bankers Rounding" habe ich das erstemal in der Delphi-Hilfe gelesen! Welcher "Banker" wo auf der Welt verwendet diese Sch**** eigentlich? Und für was? :wall:

@3_of_8: 1,5 und 2,5 würde zu 2 gerundet (nämlich zur nächsten geraden Zahl)! :roteyes:

[3_of_8]

Was für einen Sinn macht es, zur nächsten geraden Zahl zu runden?

[xaromz]

Hallo,

Zitat:

Zitat von 3_of_8

Was für einen Sinn macht es, zur nächsten geraden Zahl zu runden?

Siehe Wikipedia

Gruß
xaromz

[tn249]

oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

[alzaimar]

trunc schnippelt den Nachkommaanteil ab, liefert einen integer, int macht das Gleiche, liefert jedoch einen Extended.
Wer korrekt runden möchte, sollte sowas versuchen:

Delphi-Quellcode:

Function CorrectRound (aValue, aGranularity : Extended) : Extended;
Begin
  Result := Int (aValue/aGranularity + 0.5)*aGranularity;
End;

Beispiele:

Delphi-Quellcode:

Begin
  a := CorrectRound (1237.567,  0.10);  // 1237,600
  a := CorrectRound (1237.567,  0.01);  // 1237,570
  a := CorrectRound (1237.567,  1.00);  // 1238,000
  a := CorrectRound (1237.567, 10.00);  // 1240,000
  a := CorrectRound (1237.567,  0.25);  // 1237,500
  a := CorrectRound (1237.567,  2.00);  // 1238,000
  a := CorrectRound (1237.567,  5.00);  // 1240,000
...

[EDatabaseError]

Zitat:

Zitat von tn249

oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

Ausgrab...

Delphi-Quellcode:

ResultI := ceil(Result);

der Befehl ceil ist Undefiniert??? Hä... brauch ich noch was in uses? Delphi 2005 PE


Mfg
Tobi

[DGL-luke]

Naja, was braucht man denn, wenn man mathematische Funktionen sucht?

[EDatabaseError]

Zitat:

Zitat von DGL-luke

Naja, was braucht man denn, wenn man mathematische Funktionen sucht?

Danke. Leider ist die Hilfe von D 2005 PE so doof die findet nur jeden 3. Befehl! Da ist ja die von D3 Besser!!!

Byby

Mfg
Tobi