Notendurchschnitt-Berechner - #142332 (Allgemeines zu Perl)

topeg

2010-10-29 15:38

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

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 )

#!/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)