Upload New File

Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/01_taschenrechner_mit_if.f95

+program taschenrechner
+    implicit none
+    
+    INTEGER :: a, b ! Variablen
+    CHARACTER :: op ! Operator
+    INTEGER :: res  ! Result
+
+    WRITE(*,*) "Gebe zwei Zahlen ein!"
+    READ(*,*) a, b
+
+    WRITE(*,*) "Gebe einen Rechenoperator (+,-,*,/) ein!"
+    READ(*,*) op
+
+    IF (op == "+") THEN
+        res = a + b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "-") THEN
+        res = a - b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "*") THEN
+        res = a * b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "/") THEN
+
+        IF (b == 0) THEN
+            WRITE(*,*) "Division durch 0 ist veboten!"
+        ELSE
+            res = a / b
+            WRITE(*,*) "Das Ergebnis ist ", res
+        END IF
+
+    ELSE
+        WRITE(*,*) "Der Eingegebene Operator ist ungueltig."
+    END IF
+
+end program taschenrechner
\ No newline at end of file