====== Perl-Schulaufgaben ======

===== BMI Rechner =====
<code perl>
#!/usr/bin/perl
use strict;
use warnings;
use utf8;

#Kommentar

print "*" x 32;
print "\n*   Bodymassindex              *\n";
print "*" x 32;

print "\nBitte geben Sie Ihr Gewicht ein: ";

my $gewicht;
chomp($gewicht = <stdin>);

print "Bitte geben Sie Ihre Größe in Metern ein: ";

my $groesse;
chomp($groesse = <stdin>);

my $bmi;
$bmi = $groesse / $gewicht;

printf ("\nIhr Bodymassindex beträgt: %.2f", $bmi);
</code>

===== Zahlenraten =====

<code perl>
#!/usr/bin/perl
use strict;
use warnings;
 
sub addieren
{
   my ($random, $wahl, $count) = @_;
   if ($wahl < $random)
   {
   	print "Die Zahl ist groesser!\n";
   }
   elsif ($wahl > $random)
   {
   	print "Die Zahl ist kleiner!\n";
   }
   else
   {
   	print "Glueckwunsch, Sie haben die Zahl nach $count Versuchen herausgefunden!\n";
   }
}
 
my $random = int(rand(50));
my $count = 1;
my $wahl = undef;
 
print "\tZ A H L E N R A T EN\n\n";
print "Versuchen Sie die Zahl zwischen 0 und 50 in moeglischt wenigen Versuchen herauszufinden!\n";

do
{
 	print "Geben Sie Ihren Tipp ab: ";
 	$wahl = <STDIN>;
 	&addieren($random,$wahl, $count);
 	$count++;
} while ($random != $wahl);
</code>

===== Robben Entwicklung =====

<code perl>
#!/usr/bin/perl
use strict;
use warnings;

my $i;
my $robben;
$robben = 2600;

for ($i = 1; $i <= 10; $i++) {
	$robben = ($robben * 1.075) - 250;
	printf ("Jahr " . $i . ": ". "%.0f" . "\n", $robben);
}
</code>