AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Unterschiedliche Ergebnisse beim Runden

Ein Thema von Ritsch · begonnen am 14. Aug 2017 · letzter Beitrag vom 21. Aug 2017
Antwort Antwort
Seite 1 von 4  1 23     Letzte » 
Benutzerbild von Ritsch
Ritsch

Registriert seit: 15. Apr 2014
Ort: Wolfenbüttel
33 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 15:59
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?
Miniaturansicht angehängter Grafiken
bild1.png   bild2.png  
Richard
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:03
Hallo,
traue diesen "überwachten Ausdrücken" einfach nicht ...
Wie oft ich da schon drüber gestolpert bin bei TDateTime.
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von Ritsch
Ritsch

Registriert seit: 15. Apr 2014
Ort: Wolfenbüttel
33 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:07
In einem neuem Projekt ergibt

Code:
var
  i: Int64;
begin
  i:= Round(7.50000000000728);
i = 8.

Das soll mal einer verstehen
Richard
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:19
Es ist auch ein Unterschied zwischen eine Berechnung und einer Konstante.

Welche Typen haben Zahl und Multi?
Markus Kinzler
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#5

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:25
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

Geändert von nahpets (14. Aug 2017 um 16:51 Uhr) Grund: Schreibfehler :-(
  Mit Zitat antworten Zitat
Benutzerbild von mikhal
mikhal

Registriert seit: 11. Sep 2003
Ort: Linz am Rhein
796 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:36
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
Michael Kraemer
Computer erleichtern die Arbeit...
...und die Erde ist eine Scheibe!
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.434 Beiträge
 
Delphi 12 Athens
 
#7

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 16:46
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
mensch72

Registriert seit: 6. Feb 2008
838 Beiträge
 
#8

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 19:02
Ein Teil unseres Hauptgeschäfts ist der Finanzbereich, und speziell da gibt es von KundeZuKunde Unterschiede in den Vorgaben, wie die ".5er" Rundungsregel ausfallen soll.

Wir meiden "double" wie der Teufel das Weihwasser, heißt wir rechnen intern eh fast alles selbst mit einem eigenen 48..64Bit FixComma Typen mit eigenen überladenen Operatoren was(seit Delphi2007) problemlos funktioniert.
- wir bevorzugen und setzen als Defaulteinstellung für uns bei "exakt .5" die GERADZAHLREGEL. Bei ungenauen 0.5 knapp drüber oder knapp drunter runden wir auf oder ab.
- wir bieten eine externe Epsilon Anpassung, um den Bereich des "exakt .5" bei Bedarf selbst passend zu beeinflussen
- wir bieten optional auch eine statische Festlegung der Rundungsrichtung bei "exakt .5", also kann ein Kunde wenn er möchte da immer auf oder abrunden
- unsere Einstellungen gelten immer programmweit und ohne Beachtung und Kenntnis des Berechnungszwecks... kein Kunde kann sagen er möchte alles fürs eignene Haben aufgerundet und alles fürs eigene Soll abgerundet bekommen... auch wenn mindestens ein Konkurrenzprodukt sowas bietet weigere ich mich das auch so zu programmieren... wie man sieht ist "Rundung" also ein sehr komplexes und teils auch emotionales oder gar rechtlich durchaus relevantes Thema
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 19:48
ich habe mir mal hiermit beholfen:
integer:=trunc(fließkomma+0.5); Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Unterschiedliche Ergebnisse beim Runden

  Alt 14. Aug 2017, 20:29
Also das:
Code:
0.5 rounds to 0
ist ja mathematisch falsch. Wie kommen die auf die Regel zur nächsten geraden Zahl zu runden?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz