Upload New File

Sonderuebung/WiSe23-24/SU03_2023_11_07/02_taschenrechner_mit_if_v2.f95

+! Enthaelt weniger WRITE Anweisungen (weniger Redudanz)
+! benoetigt dafuer eine extra Logical-Variable ob die Rechnung durchgefuehrt wurde
+!   (wegen Division durch 0)
+
+program taschenrechner
+    implicit none
+    
+    INTEGER :: a, b ! Variablen
+    CHARACTER :: op ! Operator
+    INTEGER :: res  ! Result
+    LOGICAL :: calc = .true.
+
+    WRITE(*,*) "Gebe zwei Zahlen ein!"
+    READ(*,*) a, b
+
+    WRITE(*,*) "Gebe einen Rechenoperator (+,-,*,/) ein!"
+    READ(*,*) op
+
+    IF (op == "+") THEN
+        res = a + b
+    ELSEIF (op == "-") THEN
+        res = a - b
+    ELSEIF (op == "*") THEN
+        res = a * b
+    ELSEIF (op == "/") THEN
+
+        IF (b == 0) THEN
+            WRITE(*,*) "Division durch 0 ist veboten!"
+            calc = .false.
+        ELSE
+            res = a / b
+        END IF
+
+    ELSE
+        WRITE(*,*) "Der Eingegebene Operator ist ungueltig."
+        calc = .false.
+    END IF
+
+    IF (calc) WRITE(*,*) "Das Ergebnis ist ", res
+
+end program taschenrechner
\ No newline at end of file