Dienstag, 27. April 2010

S69/2 - Summierung aller Zahlen von 1 bis 1000

Die Unterfunktion aus der ersten Übung (S69/1) soll nun umgeschrieben werden, um damit alle Zahlen von 1 bis 1000 zu summieren.


#!/usr/bin/perl -w
# http://perl-lernen.blogspot.com/
# total numbers from 1 to 1000

my @tausend = (1..1000);
my $tausend_total = total(@tausend);
print "The total of 1 to 1000 is $tausend_total.\n";

sub total
{
my $summe=0;
foreach $zahl ( @_ )
{
$summe += $zahl ;
}
return $summe;
}

Keine Kommentare:

Kommentar veröffentlichen