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

[thread]20613[/thread]

Runden nach nächstgelegener durch 5 teilbaren Zahl [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies
chmod777

2019-05-06 15:59
User since
2009-09-14
82 Artikel
BenutzerIn
Hallo!

Ich möchte Zahlen mit einer Kommastelle auf die nächsteglegene durch 5 teilbare Zahl runden.

etwa so:
Code: (dl )

1 2 3 4 5 6 7

7.1 => 5 8.4 => 10 -2.4 => 0 -2.6 => -5 -8.3 => -10 : :
lässt sich das in einem "Einzeiler" realsieren? Hab bereits mit Math::Round versucht, kam aber zu keinem befriedigenden Ergebnis.

tks & greets
- +5 replies
- Linuxer
  
  2019-05-06 16:14
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Was hast Du mit Math::Round *genau* probiert?
  Das Modul (in Version 0.07) funktioniert hier mit Deinen Beispieldaten tadellos.
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  $ round_to_5.pl VAL: -2.400000 EXP: 0.000000 RES: 0.000000 VAL: -8.300000 EXP: -10.000000 RES: -10.000000 VAL: 7.100000 EXP: 5.000000 RES: 5.000000 VAL: -2.600000 EXP: -5.000000 RES: -5.000000 VAL: 8.400000 EXP: 10.000000 RES: 10.000000
  
  edit: Beispielausgabe überarbeitet.
  Last edited: 2019-05-06 16:18:27 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - chmod777
    
    2019-05-06 16:31
    User since
    2009-09-14
    82 Artikel
    BenutzerIn
    
    wow - wie hast du das hinbekommen?
    ich bin nach http://www.perl-howto.de/2008/11/zahlen-runden-mit-mathround.html vorgegangen und mein Ergebnis sieht so aus:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    Zahl nlowmult nhimult -2.4 -5 0 -8.3 -10 -5 7.1 5 10 -2.6 -5 0 8.4 5 10
    - +3 replies
    - Linuxer
      
      2019-05-06 16:34
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ich habe in die Modul-Dokumentation geguckt und die Funktion nearest() verwendet. ;-)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - chmod777
        
        2019-05-06 16:38
        
        User since
        2009-09-14
        82 Artikel
        BenutzerIn
        
        ja, hab ich soeben auch entdeckt ;-)
        
        danke!
        
        Muffi
        
        2019-05-07 11:53
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Sollte man das mal per Hand machen wollen sähs ungefähr so aus.
        
        Code: (dl )
        
        Runden(Value / Schrittweite) * Schrittweite;
        
        1 + 1 = 10
- Gustl
  
  2019-05-08 19:55
  User since
  2011-01-27
  443 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 )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/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)

View all threads created 2019-05-06 15:59.