Matheprobleme mit round

[R2D2]

Hallo!

Ich habe ein Problem mit der Funktion round. Laut Delphi wird 58,5 nicht auf 59 gerundet, sondern auf 58.

Was soll ich tun?

[inherited]

Wie wärs damit:
round(Zahl*100) / 100

[Dax]

Hm, ich erinner mich an eine Variable RoundMode, die das rundungsverhalten bestimmt... Könnt auch anders heißen

[Flare]

Zitat von inherited:

Wie wärs damit:
round(Zahl*100) / 100

Du weißt aber, dass das nichts bringt, oder? Das rundet auf 2 Stellen nach dem Komma, aber bei .5 immer noch ab!


Flare

[R2D2]

Danke! Ich arbeite jetzt so:
round(Zahl+0.01); Anscheinend rundet round immer bei .5 Werten ab.

[Hawkeye219]

Nicht ganz! Siehe hier

Gruß Hawkeye

[Eichhoernchen]

Delphi-Quellcode:

Hinweis:   Die Funktionsweise von Round kann mit der Prozedur Set8087CW oder der Funktion SetRoundMode gesteuert werden.


Unit Math


type TFPURoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;

Beschreibung

Mit SetRoundMode können Sie festlegen, welchen Rundungsmodus die FPU verwendet. Der Rundungsmodus kann folgende Werte annehmen:

Wert   Bedeutung

rmNearest   Rundet zum nächsten Wert.
rmDown   Rundet gegen minus unendlich.
rmUp   Rundet gegen plus unendlich.
rmTruncate   Schneidet den Wert ab. Positive Werte werden auf-, negative Werte abgerundet.

Man wird wohl dann auf rmnearest setzen müssen und dann müsste Round auch "richtig" runden


Edit: Habs mal getestet, kommt das selbe raus.

Aber wenn ich round(1.5) mache kommt 2 raus aber bei round(58.5) = 58
das Verhalten versteh ich dann nicht. Scheint aber nur bei 1.5 so zu sein, bei 0.5 und 2.5 macht er das selbe wie bei 58.5

[Eichhoernchen]

Man köntne aber:

Delphi-Quellcode:

function mathround(x : real) : integer;
Begin
 if frac(x) >= 0.5  //frac liefert den das nach dem ,
   then result := ceil(x)  //rundet auf
   else result := trunc(x);  //runded ab
end;

man müsste nur mal gucken wie es bei negativen Zahlen aussieht

[Flare]

@Eichhörnchen: Gucke mal wo Hawkeye219 hingelinkt hat!

Zitat von Hawkeye219:

Nicht ganz! Siehe hier

Gruß Hawkeye

Flare

[Eichhoernchen]

ach mist... den hab ich übersehen

hab aber fast das gleiche nur stimmt wohl mein trunc net..

Daher nochmal:

Delphi-Quellcode:

function mathround(x : real) : integer;
Begin
if frac(x) >= 0.5  //frac liefert den das nach dem ,
   then result := ceil(x)  //rundet auf
   else result := floor(x);  //runded ab
end;