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

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

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