Unterschiedliche Ergebnisse beim Runden

[Ritsch]

Hey Community,

ich stehe vor einem Problem, welches ich im Moment nicht verstehe.

Ich möchte eine Zahl runden mit folgendem Code

Code:

var i: Int64;
begin
[...]
  i:= Round(zahl*multi);
[...]
end;

Der Wert der sich aus der Multiplikation ergibt lautet 7.50000000000728
Das sollte gerundet 8 ergeben.

In i wird allerdings 7 gespeichert. Wenn ich aber den Ausdruck auswerte, erhalte ich 8.

Im Anhang sind nochmal zwei Bilder.



Mache ich etwas falsch?

[hoika]

Hallo,
traue diesen "überwachten Ausdrücken" einfach nicht ...
Wie oft ich da schon drüber gestolpert bin bei TDateTime.

[Ritsch]

In einem neuem Projekt ergibt

Code:

var
  i: Int64;
begin
  i:= Round(7.50000000000728);

i = 8.

Das soll mal einer verstehen

[mkinzler]

Es ist auch ein Unterschied zwischen eine Berechnung und einer Konstante.

Welche Typen haben Zahl und Multi?

[mikhal]

Schau mal in der Hilfe nach, dort wird der Standard-Modus rmNearest beschrieben und zur besseren Erläuterung ein Link zu einem Blog bei Microsoft geteilt.

Zitat:

The Round function goes to the nearest integer, and if there are two nearest integers then it goes to the even one. 1.5 rounds to 2, 0.5 rounds to 0

Dein 7,5 ist mit 8 korrekt, wenn dein Ergebnis aber 6,5 wäre, dann wäre demnach 6 korrekt - eben die nächste gerade Ganzzahl.

Grüße
Mikhal

[Uwe Raabe]

Ich verwende in solchen Fällen immer die Routinen von John Herbster: ID: 21909, DecimalRounding (JH1).

Wenn man jetzt ein kleines Testprogramm hätte, das den Fehler reproduziert, dann könnte man auch sehen, ob er damit behoben wird.

[nahpets]

Round(FesteGleitkommazahl) ist was anderes als Round(ZahlEinesTyps * ZahlEinesAnderenTyps).

Von welchem Typ sind zahl und multi?

Vor dem Aufruf von Round werden die Zahlen, sofern sie von unterschiedlichem Typ sind, in einen "einheitlichen" Typ gewandelt, das kann dann schonmal schiefgehen bzw. nicht zum erwarteten Ergebnis führen.

Wenn ich sowas auf die unelegante Art mache, dann sieht das ungefähr so aus:i := Round((zahl + 0.00) * (multi + 0.00)); Dadurch werden ggfls. Integerwerte erstmal in Gleitkomma umgewandelt, damit bei der Berechnung Nachkommastellen erhalten bleiben.

Das kann so funktionieren, muss aber nicht.

Wenns nicht anders geht dann eher sinngemäß sowas:

Delphi-Quellcode:

var i: Int64;
    dZahl  : Double;
    dMulti : Double;
    dGes   : Double;
begin
[...]
  dZahl  := zahl;
  dMulti := multi;
  dGes   := dZahl * dMulti;
  i      := Round(dGes);
[...]
end;

Und nein, das ist nicht elegant