Perl :: Aufgabe #235
1 Lösung
Array von Zahlen in die nächstgelegene durch 5 teilbare Zahl umwandeln
Anfänger - Perl
von Gustl
- 08.05.2019 um 20:08 Uhr
Schreibe ein Programm welches aus einem Array von Dezimalzahlen diese Zahlen in die nächstgelegene durch 5 teilbare Zahl umwandeln.
Etwa so:
Etwa so:
Konsolenausgabe:
7.1 => 5
8.4 => 10
-2.4 => 0
-2.6 => -5
-8.3 => -10
Lösungen:
Perl-Code#!/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;
}