Upload New File

Sonderuebung/WiSe24-25/SU01_2024_10_22_Einfuehrung/01_taschenrechner.f95

+program taschenrechner
+    implicit none
+    
+    INTEGER :: a, b
+    INTEGER :: res
+
+
+    ! Aufgabe 1
+    ! Liest 2 Zahlen ein und summiert diese.
+    WRITE(*,*) "Gebe zwei Zahlen ein."
+    READ(*,*) a, b
+
+    res = a + b
+
+    WRITE(*,*) "Die Summe ist : ", res
+
+
+    WRITE(*,*) ! Leere Zeile
+
+
+    ! Aufgabe 2
+    ! Liest eine Zahl ein und quadriert diese
+
+    ! Hier können die gleichen Variablen verwendet werden wie in Aufgabe 1
+    ! Der vorherige Inhalt wird ueberschrieben
+    WRITE(*,*) "Gebe eine Zahl ein."
+    READ(*,*) a
+
+    res = a ** 2
+    ! Alternativ : res = a*a
+    WRITE(*,*) "Das Quadrat ist : ", res
+
+end program taschenrechner
\ No newline at end of file