#! /usr/bin/perl
use warnings; # gibt warnungen bei verdaechtigen Konstrukten aus
use strict;

# 78 Bindestriche und ein Zeilenumbruch
my $line = "-" x 78 . "\n";

print "\n\nDas Paddsensche Dreieckswunder\n\n";
print $line;
print "Programm zum Errechnen von Dreiecksseiten im rechtwinkligen Dreieck\n";
print $line, "\n";
print "Hast du die Hypothenuse gegeben? Gib 'Ja' oder 'Nein' ein: ";

my $info1 = <STDIN>;
if ( lc($info1) eq "ja\n") {    # lc erlaubt ja, Ja, JA, jA, NEIN, ...

    print "\n Ok, dann gebe sie nun ein\n\n";
    my $hypo = <STDIN>; # Die Hypothenuse
    chomp($hypo); # zeilenumbruch am ende wegwerfen, wenn vorhanden

    print "\n ...und nun die Seite, die du weisst eingeben...\n\n";
    my $seite = <STDIN>; # Die seite
    chomp($seite);

    my $fehlendeSeite = ((($hypo ** 2) - ($seite ** 2)) ** 0.5);
    print "\n Die fehlende Seite hat die Laenge: $fehlendeSeite ";
} # if

else { # lc($info1) ist nicht ja
    print "\n Gut. Dann gib jetzt bitte die erste Seite ein:\n\n";
    my $seite1 = <STDIN>;
    chomp($seite1);

    print "\n ...und dann die Seite 2 eingeben:\n\n";
    my $seite2 = <STDIN>;
    chomp($seite2);

    my $hypothenuse = (($seite1 ** 2) + ($seite2 **2)) ** 0.5;
    print "\n Die Laenge der Hypothenuse c betraegt: $hypothenuse\n";
} # else

print "\n$line";