#!usr/bin/perl -w
$Einleitung = <<HERE_EINLEITUNG;

**********************
KLEINER TASCHENRECHNER
**********************

Dieses kleine Programm ist Ihnen bei gaengigen Rechenoperationen behilflich.

Folgende Optionen stehen Ihnen zur Verfuegung:

<1> Addition
<2> Subtraktion
<3> Multiplikation
<4> Division
<5> Potenzrechnung
<6> Wurzel aus einer Zahl
<7> Zwei Zahlen miteinander vergleichen
<8> Programm beenden

HERE_EINLEITUNG

do 
{
	print $Einleitung; 
	print "Was wollen Sie als naechstes tun? ";  
	chomp ($eingabe=<STDIN>); 
	
	WECHSEL: 
	{
	$eingabe == 1 && do 
	{
		print "\nSie haben sich fuer die ADDITION entschieden.\n";	
		print "\nGeben Sie die erste Zahl ein: 	";
		chomp ($zahl_1=<>);
		print "\nGeben Sie die zweite Zahl ein:	";  
		chomp ($zahl_2=<>);
		$ergebnis = $zahl_1 + $zahl_2;		
		print "\nDas Ergebnis:	$zahl_1 + $zahl_2 = $ergebnis\n";
		last WECHSEL;
	}; 
	
	$eingabe == 2 && do 
	{
		print "\nSie haben sich fuer die SUBTRAKTION entschieden.\n";
		print "\nGeben Sie die erste Zahl ein: 	";
		chomp ($zahl_1=<>);
		print "\nGeben Sie die zweite Zahl ein:	";
		chomp ($zahl_2=<>);
		$ergebnis = $zahl_1 - $zahl_2;
		print "\nDas Ergebnis:	$zahl_1 - $zahl_2 = $ergebnis\n";
		last WECHSEL;
	};
	
	$eingabe == 3 && do 
	{
		print "\nSie haben sich fuer die MULTIPLIKATION entschieden.\n";
		print "\nGeben Sie die erste Zahl ein: 	";	
		chomp ($zahl_1=<>); 
		print "\nGeben Sie die zweite Zahl ein:	"; 
		chomp ($zahl_2=<>);
		$ergebnis = $zahl_1 * $zahl_2;
		print "\nDas Ergebnis:	$zahl_1 * $zahl_2 = $ergebnis\n"; 
		last WECHSEL; 
	};
	
	$eingabe == 4 && do 
	{
		print "\nSie haben sich fuer die DIVISION entschieden.\n"; 
		print "\nGeben Sie die erste Zahl ein: 	"; 
		chomp ($zahl_1=<>); 
		print "\nGeben Sie die zweite Zahl ein:	"; 
		chomp ($zahl_2=<>);
		$ergebnis = $zahl_1 / $zahl_2; 
		$ergebnis = sprintf("%.2f", $ergebnis); 
		print "\nDas Ergebnis:	$zahl_1 / $zahl_2 = $ergebnis\n";
		last WECHSEL; 
	};
	
	$eingabe == 5 && do 
	{
		print "\nSie haben sich fuer die POTENZ entschieden.\n"; 
		print "\nGeben Sie eine Zahl ein: 	"; 
		chomp ($zahl=<>); 
		print "\nGeben Sie die Pozenz ein:	"; 
		chomp ($potenz=<>); 
		$ergebnis = $zahl ** $potenz; 
		print "\nDas Ergebnis:	$zahl hoch $potenz = $ergebnis\n";
		last WECHSEL; 
	}; 
	
	$eingabe == 6 && do 
	{
		print "\nSie haben sich fuer die WURZEL entschieden.\n"; 
		print "\nGeben Sie eine Zahl ein:	";
		chomp ($zahl=<>);
		$wurzel = sqrt($zahl); 
		$wurzel = sprintf("%.2f", $wurzel);
		print "\nDas Ergebnis:	Wurzel aus $zahl = $wurzel\n";
		last WECHSEL; 
	};
	
	$eingabe == 7 && do 
	{
		print "\nSie haben sich fuer den VERGLEICH entschieden.\n"; 
		print "\nGeben Sie die Zahl 1 ein:	"; 
		chomp ($zahl1=<>);
		print "\nGeben Sie die Zahl 2 ein:	"; 
		chomp ($zahl2=<>); 
		if ($zahl1 == $zahl2) 
		{
			print "\nBeide Zahlen sind gleich.\n";
		}
		if ($zahl1 > $zahl2)
		{
			print "\nDie erste Zahl ist groesser als die zweite Zahl\n";
		}
		if ($zahl1 < $zahl2)
		{
			print "\nDie erste Zahl ist kleiner als die zweite Zahl\n";
		}
		last WECHSEL;
	};  	  
	}
}while ($eingabe != 8);
print "\nSchade, dass Sie das Programm verlassen wollen.\n";
print "\nCopyright: Margarita Miagkova\n";