Update 03_taschenrechner_mit_funktionen.f95

Sonderuebung/WiSe23-24/SU04_2023_11_15/03_taschenrechner_mit_funktionen.f95

@@ -12,12 +12,7 @@ program taschenrechner
         WRITE(*,*) "Fuer die Berechnung einer Kreisflaeche schreibe A"
         WRITE(*,*) "Fuer Quader Ober- und Unterflaeche Q"
 
-        DO ! Eingabe wird wiederholt, wenn der Operaor ungültig ist
-            READ(*,*) op
-            IF (op == "+" .OR. op == "-" .OR. op == "*" .OR. op == "/" .OR. op == "A" .OR. op == "Q") EXIT
-            WRITE(*,*) "Die Eingabe ist ungueltig. Gebe einen neuen Operator ein."
-        END DO
-
+        READ(*,*) op
 
         IF (op == "+" .OR. op == "-" .OR. op == "*" .OR. op == "/") THEN
             CALL calc(op)
@@ -26,7 +21,7 @@ program taschenrechner
         ELSEIF (op == "Q") THEN
             CALL quader
         ELSE
-            WRITE(*,*) "Operatorfehler"
+            WRITE(*,*) "Der eingegebene Operator ist ungueltig!"
         END IF
 
 
@@ -116,4 +111,4 @@ program taschenrechner
         WRITE(*,*) "Das Volumen des Kreises ist ", res
     end subroutine circle
 
-end program taschenrechner
\ No newline at end of file
+end program taschenrechner