title image


Smiley Problem bei "Division durch 0"
Hi,kann mir jemand sagen, warum bei diesem kleinen Taschenrechner Programm bei einer Division von 0 nicht meine eigene Fehlermeldung kommt:#!/usr/bin/perl -wprint "Bitte geben Sie eine Zahl ein ";$x=; chomp $x;print "Bitte geben Sie die Rechenoperation (+-*/) ein ";$operator=; chomp $operator;print "Bitte geben Sie eine weitere Zahl ein ";$y=; chomp $y;# Umwandlung der Eingabe in Formelif ($operator eq "+") {$berechnung=$x + $y;}elsif ($operator eq "-") {$berechnung=$x - $y;}elsif ($operator eq "*") {$berechnung=$x * $y;}elsif ($operator eq "/") {$berechnung=$x / $y;}else {print "Achtung, Eingabe eines falschen Zeichens\n";exit(1)}# Überprüfung der Eingabe auf Division durch 0if ($operator eq "/" && $y == 0) { $berechnung="null" }if ($berechnung eq "null") {print "Achtung, Ergebnis kann nicht ausgewertet werden (Division durch 0)!\n";exit(1);}print "$x $operator $y = $berechnung\n";


MfG Michael

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: