2010-12-10-TDEV-Perls.txt

gistfile1.sh

# Aufgabe 1)    Summieren
$ perl -e "my ($a,$b)=(201,0);$b+=$a while($a-->0);print $b;"
20100

# Aufgabe 2)    Brüche addieren
$ perl -e "my ($a,$b)=(1,0);$b+=(1/$a) while($a++>0 && $b<3);print \"$a - $b\";"
$ perl -e "my ($a,$b)=(1,0); while($a++>0 && $b<3){$b+=(1/$a) ;print \"$a - $b\";}"
32 - 3.02724519543652

# Aufgabe 3)a)  Preise berechnen
$ perl -e "my $preis=$ARGV[0];$preis+=7.95 if($preis<200); print \"Preis betraegt: $preis EUR\";" 180
Preis betraegt: 187.95 EUR
$ perl -e "my $preis=$ARGV[0];$preis+=7.95 if($preis<200); print \"Preis betraegt: $preis EUR\";" 220
Preis betraegt: 220 EUR

# Aufgabe 3)b)  Preise berechnen
$ perl -e "my $preis=$ARGV[0];$preis+=7.95 if($preis<200); $preis -= $preis*0.02 if($preis>=600);print \"Preis betraegt: $preis EUR\";" 220
Preis betraegt: 220 EUR
$ perl -e "my $preis=$ARGV[0];$preis+=7.95 if($preis<200); $preis -= $preis*0.02 if($preis>=600);print \"Preis betraegt: $preis EUR\";" 600
Preis betraegt: 588 EUR

# Aufgabe 4)    Fakultät
$ perl -e "my ($d,$e)=($ARGV[0]+1,1); $e*=$d while($d-->1);print $e;" 8
40320

# Aufgabe 5)    Würfel
$ perl -e "print int(rand()*6)+1;"

# Aufgabe 6)    Fahrenheit <-> Celsius
$ perl -e "print \"$ARGV[0]  C = \",($ARGV[0]*9/5)+32,\"  F\";" 45
45  C = 113  F

$ perl -e "print \"$ARGV[0]  F = \",($ARGV[0]-32)/9*5,\"  C\";" 5.9
5.9  F = -14.5  C

# Aufgabe 7)    Punkte -> Noten
$ perl -e "my $a=$ARGV[0];die \"1\" if($a>=92);die \"2\" if($a>=81);die \"3\" if($a>=67);die \"4\" if($a>=50);die \"5\" if($a>=30);die \"6\";"


# Aufgabe 8)    Phytagoras
$ perl -e "print \"a = $ARGV[0]    b = $ARGV[1]     c = \",sqrt($ARGV[0]**2+$ARGV[1]**2);" 3 4
a = 3    b = 4     c = 5

# Aufgabe 9)    Fibonacci...
$ perl -e "my ($a,$b,$i)=(1,1,1);while($i++<10){print \"$a $b \";$a+=$b;$b+=$a;}"
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584

$ perl -e "my @a=(1,1);my $i=3;while($i<20){$a[$i]=$a[$i-1]+$a[$i-2];print \"  \",$a[$i];$i++;}"
  1  1  2  3  5  8  13  21  34  55  89  144  233  377  610  987  1597