Notendurchschnitt-Berechner (Allgemeines zu Perl)

[thread]15583[/thread]

Notendurchschnitt-Berechner

Leser: 32

Articles: hide open all | hide show old branches

+21 replies
Gast The_Marv

2010-10-29 15:06

Hallo, ich solle ein Programm schreiben, bei dem man verschieden Zahlen (Noten) eingeben kann (beliebig viele) und dann durch drücken der entertaste ohne vorher etwas einzugeben automatisch den Notendurschnitt ausgibt. Wir sollen das ganze mit so einer Laufvariablen !? oder wie sich das nennt machen. Wie geht das?
Last edited: 2010-10-29 15:18:02 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2010-10-29 15:33
  User since
  2005-01-17
  14830 Artikel
  Admin1
  Guest The_Marv
  Hallo, ich solle ein Programm schreiben, (...) Wie geht das?
  Kommt auf deine Kenntnisse an. ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  use strict; use warnings; my ($laufmich, $summasummarum, $eingabe ) = (0 x 3); do { print 'Zahl: '; $eingabe = <STDIN>; chomp $eingabe; if (length $eingabe) { $laufmich++; $summasummarum += $eingabe; } } until (not length $eingabe); #print "Summe: $summasummarum\n"; #print "Anzahl: $laufmich\n"; print "Durchschnitt: ", $summasummarum/$laufmich;
  
  Da ich nicht weiß, was du sonst nicht kannst, belasse ich es erst mal dabei.
  Last edited: 2010-10-29 15:38:29 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - MatthiasW
    
    2010-10-29 18:57
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    2010-10-29T13:33:43 GwenDragon
    
    Code (perl): (dl )
    
    my ($laufmich, $summasummarum, $eingabe ) = (0 x 3);
    
    Der x Operator tut hier aber nicht, was man wohl erwartet: $laufmich wird mit dem String '000' befüllt, die anderen beiden Variablen werden bzw. bleiben undef. Damit man die Liste (0,0,0) erhält, muss das linke Argument geklammert werden: ((0) x 3) (perlop - Multiplicative Operators)
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - GwenDragon
      
      2010-10-29 20:27
      
      User since
      2005-01-17
      14830 Artikel
      Admin1
      
      Teufel noch mal! Danke.
      Völlig übersehen, dass keine Liste erzeugt wird.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +17 replies
- topeg
  
  2010-10-29 15:34
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  als Anregung:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; my @n; while(<STDIN>) { chomp; $_ or last; /^\d+(\.\d+)?/ or die("NO Number"); push(@n,$_+0); } my $s=0; map{$s+=$_}@n; $s/=@n; print "Durchschitt: $s\n";
  - +16 replies
  - GwenDragon
    
    2010-10-29 15:35
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Der arme Anfänger. Das kann er nicht so abschreiben und dem Prof präsentieren. ;)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +15 replies
    - topeg
      
      2010-10-29 15:38
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Vor allem weil es wahrscheinlich nicht den Anforderungen entspricht. Deines ist kommt den sicher näher. Aber ich will ja keine Hausaufgaben machen. :-)
      
      EDIT:
      etwas mehr an der Anforderung bezüglich Laufvariable:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      #!/usr/bin/perl use strict; use warnings; my ($s,$c)=(0,0); while(<STDIN>) { chomp; $_ or last; /^\d+(\.\d+)?/ or die("NO Number"); $s+=$_; $c++; } $s/=$c; print "Durchschitt: $s\n";
      
      Auch nicht besser oder? :-)
      Last edited: 2010-10-29 15:42:52 +0200 (CEST)
      - +14 replies
      - GwenDragon
        
        2010-10-29 15:42
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Och, ich würde als Anfänger auch die Aufgabe (msg #142328) nich' dem Prof als meine ausgeben.
        Der würde nämlich bei den Variablenamen stutzen, nach der seltsamen Schleife fragen und dem Multiplikationsoperator ein Stirnrunzeln entgegnen.
        Last edited: 2010-10-29 15:43:43 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +13 replies
        
        murphy
        
        2010-10-29 15:51
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Also ich würde ja sowas abgeben:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use 5.012; use List::Util qw(reduce); my @grades = <STDIN>; say((reduce { $a + $b } 0, @grades) / @grades);
        
        ;-)
        When C++ is your hammer, every problem looks like your thumb.
        
        +11 replies
        
        topeg
        
        2010-10-29 20:04
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich habe noch eine Variante. :-)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #!/usr/bin/perl use strict; use warnings; print "Durchschnitt: ".(x(\(my $i=0)))[0]."\n"; sub x { (local $_=<STDIN>) eq "\n" and return 0; (/^\d+/ && ++${$_[0]}) or die("NO NUMBER"); return x($_[0])+($_/${$_[0]}); }
        
        EDIT: Fehler beim Kopieren :-/
        Last edited: 2010-10-29 20:22:22 +0200 (CEST)
        
        +6 replies
        
        MatthiasW
        
        2010-10-29 22:40
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        minimalistisch: ;)
        
        Code: (dl )
        
        perl -E '$r+=$_,$i++while($_=<>)ne"\n";say$r/($i||1)' -
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +5 replies
        
        Gast Gast
        
        2010-10-30 18:28
        
        kürzer:
        
        perl -E '$r+=$_,$i++while($_=<>)ne"\n";say$r/--$.' -
        Last edited: 2010-10-30 18:30:10 +0200 (CEST)
        
        +4 replies
        
        MatthiasW
        
        2010-10-30 18:41
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Ah, warum ist mir das nicht eingefallen? *kopfkratz* Gute Idee, dann aber auch das ,$i++ noch raus ;) Und man sollte sich vor "Illegal division by zero" schützen:
        
        Code: (dl )
        
        perl -E '$r+=$_ while($_=<>)ne"\n";say$r/(--$.||1)'
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +3 replies
        
        Gast Gast
        
        2010-10-30 20:20
        
        Die Meldung finde ich nicht schlimm. Wenn dann würde ich eher etwas in diese Richtung machen:
        
        Code (perl): (dl )
        
        perl -E '$r+=$_ while($_=<>)=~/^\d+/;say$r/--$.' -
        
        Last edited: 2010-10-30 21:03:45 +0200 (CEST)
        
        +2 replies
        
        Dubu
        
        2010-11-03 18:02
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Code: (dl )
        
        perl -E 'eval"say((".join("+",<>).")/$.)"'
        
        ;-)
        
        MatthiasW
        
        2010-11-03 21:42
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Nunja, wenn man bei EOI aufhört gehts natürlich kürzer ;)
        
        Code: (dl )
        
        perl -E '$r+=$_ for<>;say$r/$.'
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +4 replies
        
        Gast The_Marv
        
        2010-10-30 17:13
        
        Danke für die Antworten. Allerdings kann ich damit so gut wie gar nichts anfangen.
        Ich habe das Fach Infortmatik erst seit etwa 6 Wochen, was ungefähr 18 Stunden Arbeiten mit Perl ausmacht.
        Das Letzte was wir so gemacht haben, ist zu testen, ob die eingegebene Zahl eine Primzahl ist, den GGT berechnen, gucken, ob eine Zahl eine Quadratzahl ist etc.
        Last edited: 2010-10-30 17:28:57 +0200 (CEST)
        
        topeg
        
        2010-10-30 21:36
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich helfe dir gerne, wenn du ein konkretes Problem hast. Deine Aufgaben löse ich nicht.
        
        clms
        
        2010-10-30 23:36
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        Guest The_Marv
        Danke für die Antworten. Allerdings kann ich damit so gut wie gar nichts anfangen.
        Ich dafür umso mehr.
        
        Dieser Thread ist ja nicht nur für Dich da, sondern für alle Leser.
        Und falls Du einmal Perl kennen und lieben gelernt hast, wirst Du auch die Kniffe, die in den Einzeilern stecken, zu schätzen wissen. Mir nutzen sie jedenfalls deutlich mehr als eine Standard-Lösung für Deine triviale Aufgabe.
        
        cbxk1xg
        
        2010-11-04 21:03
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Lass Dich nicht ärgern. Die meinen das nicht so. :-) Die wollen nur spielen! Und das meine ich jetzt durchaus ernst. Ich bin selber kein besonders begabter Programmierer, aber manchmal kommt auch bei mir der Spieltrieb durch. Insbesondere bei der Arbeit mit Perl. Es gibt bei Perl immer mindestens 20 Möglichkeiten ein Problem zu lösen. Das ist grade am Anfang extrem verwirrend und erscheint unlogisch. Je mehr man sich jedoch damit beschäftigt, merkt man, dass diese Sprache wie geschaffen für Quer- und Freidenker ist.
        
        Wenn Du viel mit Linux arbeiten willst/musst, kommst Du ohnehin nicht an Perl vorbei. - Soweit die gute Nachricht. ;-)
        
        Und wenn Du wirklich was lernen willst, empfehle ich Dir das Maus- (CGI-Programmierung mit Perl) und das Kamelbuch (Programmieren mit Perl) aus dem O'Reilly Verlag.
        
        Aber deine Hausaufgaben löse ich auch nicht. :-)
        
        Gast Ronnie
        
        2010-10-31 10:27
        
        @murphy: Ja, das ist schöner Code.
        
        Wenn man keine Module zulässt und es kompakt sein soll, würde ich u.U. noch sowas machen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        #!/usr/bin/env perl use strict; use warnings; my ($sum, $cnt) = 0; /^\d$/ and ++$cnt and $sum += $_ while (<>); print $sum/$cnt . "\n";
        
        Ist aber ungetestet, weil ich aktuell keinen Perl-Interpreter auf dem System habe.
        Last edited: 2010-10-31 14:31:36 +0100 (CET)

View all threads created 2010-10-29 15:06.