Upload New File

Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/04_pi_v2.f95

+program kreisumfang
+    implicit none
+    
+    REAL :: r, U
+    REAL, PARAMETER :: pi = 3.14
+
+    WRITE(*,*) "Welchen Radius hat der Kreis?"
+    READ(*,*) r
+
+    U = pi * r**2
+    WRITE(*,*) "Der Umfang des Kreises ist ", U
+
+end program kreisumfang
\ No newline at end of file