Taschenrechner ohne und mit Punkt vor Strich
Ist das erste script das ich geschrieben habe ein Feedback wäre nett.
Anmerkungen:
Im terminal ausführen.
Ich benutze ubuntu 12.04 ob er auf anderen Betriebssystemen funktioniert weiss ich nicht.
Man kann (und muss) derzeit 3 Zahlen und 2 rechenarten eingeben.
Für die die lieber den code haben möchten:
Code:
#!/usr/bin/perl
# Taschenrechner by Hax!
print "Bitte Zahl eingeben: ";
my $zahl1 = <STDIN>;
chop ($zahl1);
print "Rechenart eingeben (+,-,/,*)";
my $rechenart1 = <STDIN>;
chop($rechenart1);
print "Zweite Zahl eingeben: ";
my $zahl2 = <STDIN>;
chop($zahl2);
print "Rechenart eingeben (+,-,/,*)";
my $rechenart2 = <STDIN>;
chop($rechenart2);
print "Dritte Zahl eingeben: ";
my $zahl3 = <STDIN>;
chop($zahl3);
sub addition {
($_[0] + $_[1]);
}
sub subtraktion {
($_[0] - $_[1]);
}
sub multi {
($_[0] * $_[1]);
}
sub division {
($_[0] / $_[1]);
}
if($rechenart1 eq '+') {
print "\nAddition wird durchgefuehrt.\n";
$ergebnis = &addition($zahl1, $zahl2);
}
elsif($rechenart1 eq '-') {
print "\nSubtraktion wird durchgeführt.\n";
$ergebnis = &subtraktion($zahl1, $zahl2);
}
elsif($rechenart1 eq '*') {
print "\nMultiplikation wird durchgeführt.\n";
$ergebnis = &multi($zahl1, $zahl2);
}
elsif($rechenart1 eq '/') {
print "\nDivision wird durchgeführt.\n";
$ergebnis = &division($zahl1, $zahl2);
}
if($rechenart2 eq '+') {
print "\nAddition wird durchgefuehrt.\n";
$ergebnis1 = &addition($ergebnis, $zahl3);
}
elsif($rechenart2 eq '-') {
print "\nSubtraktion wird durchgeführt.\n";
$ergebnis1 = &subtraktion($ergebnis, $zahl3);
}
elsif($rechenart2 eq '*') {
print "\nMultiplikation wird durchgeführt.\n";
$ergebnis1 = &multi($ergebnis, $zahl3);
}
elsif($rechenart2 eq '/') {
print "\nDivision wird durchgeführt.\n";
$ergebnis1 = &division($ergebnis, $zahl3);
}
print "Das Ergebnis Ihrer Rechnung: " . $ergebnis1 . "!!!\n";
Downloadlink:
Mit Punkt vor Strich
Downloadlink
