Runden nach nächstgelegener durch 5 teilbaren Zahl (gelöst) - #190024 (Allgemeines zu Perl)

Gustl

2019-05-08 19:55

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo,

ich würde erstmal alle aufrunden und dann durch eine loop laufen lassen die hochzählt und wenn value % 5 == 0 ist die loop verlassen.

Edit: Du willst ja die nächst gelegene Zahl die durch 5 teilbar ist. Das geht dann so nicht. :(

Edit2: So gehts:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Math::Round;

my @array = (7.1, 8.4, -2.4, -2.6, -8.3, 16.7, -34.8, -12.9, 456.2);
foreach( @array ){
   print $_." => ";
   my $new = nearest(5, $_);
   print $new."\n";
   $_ = $new;
}

Gruß
Last edited: 2019-05-08 20:15:21 +0200 (CEST)