Kaufmännisch korrekt runden (gelöst) - #129301 (Allgemeines zu Perl)

bianca

2009-12-13 14:55

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

2009-12-13T13:42:00 pq
ok, für diesen testfall (der war ja in deiner ursprünglichen liste nicht mit drin) biete ich noch folgenden code an:
Code (perl): (dl )
1
2
use Math::Round qw/ nearest /;
my $rounded = nearest(1, $num * (10 ** $stellen)) / (10 ** $stellen);

Leider nicht ganz so gut aber es kommt dem gewünschten näher :)

Code: (dl )

'-0.05499999999999999334'..auf 2 Stelle(n): '-0.06'.................... FEHLER! Erwartet '-0.05'
'-0.0000000075'............auf 9 Stelle(n): '-8e-009'.................. FEHLER! Erwartet '-0.000000008'
'0.0000000075'.............auf 9 Stelle(n): '8e-009'................... FEHLER! Erwartet '0.000000008'
'0.05499999999999999334'...auf 2 Stelle(n): '0.06'..................... FEHLER! Erwartet '0.05'

Edit: Im übrigen sehr witzig von Dir von wegen "Testfall war nicht in der Liste". Es geht nicht um das korrekte Runden der Testfälle sondern um korrektes kaufm. Runden für alle Fälle. :))
Last edited: 2009-12-13 15:19:01 +0100 (CET)

10 print "Hallo"
20 goto 10