From 656bce097af06075d70cb2a8115845f05445d518 Mon Sep 17 00:00:00 2001
From: dali662d <dana.liebscher@mailbox.tu-dresden.de>
Date: Tue, 3 Dec 2024 14:24:49 +0000
Subject: [PATCH] Upload New File

---
 .../01_wetterstation.f95                      | 44 +++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 Sonderuebung/WiSe24-25/SU07_2024_12_03_Arrays/01_wetterstation.f95

diff --git a/Sonderuebung/WiSe24-25/SU07_2024_12_03_Arrays/01_wetterstation.f95 b/Sonderuebung/WiSe24-25/SU07_2024_12_03_Arrays/01_wetterstation.f95
new file mode 100644
index 0000000..e501f4d
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU07_2024_12_03_Arrays/01_wetterstation.f95
@@ -0,0 +1,44 @@
+
+
+
+
+
+
+
+
+
+program wetterstation
+    implicit none
+
+    integer, dimension(14) :: temperatur
+    integer :: temp_min, temp_max, temp_av
+
+    integer, dimension(13) :: temp_umschwung ! tag mit dem groessten temperaturumschwung und der tempumschwung
+    integer :: i, temp_umschw_max
+
+    temperatur = (/12,14,9,12,15,16,15,15,11,8,14,13,15,12/)
+
+    temp_min = minloc(temperatur, 1)
+    temp_max = maxloc(temperatur, 1)
+    temp_av = sum(temperatur) / 14
+
+    ! berechne tabelle mit allen temperaturumschwungen von tag i auf i+1
+    do i = 1, 13
+        temp_umschwung(i) = abs( temperatur(i) - temperatur(i+1) )
+    end do
+    temp_umschw_max = maxloc(temp_umschwung, 1)
+
+
+    ! AUSGABE
+    do i = 1, 14 ! Vertikale Tabelle
+        write(*,*) i, temperatur(i)
+    end do 
+
+    write(*,*) "Die minimalste Temperatur war an Tag ", temp_min, " mit ", temperatur(temp_min), " Grad."
+    write(*,*) "Die hoechste Temperatur war an Tag ", temp_max, " mit ", temperatur(temp_max), " Grad."
+    write(*,*) "Die Durchschnittstemperatur ist ", temp_av, " Grad."
+
+    write(*,*) "Der groesste Temperaturumschwung war von Tag", temp_umschw_max, " zu ", temp_umschw_max+1," mit ",&
+        &temp_umschwung(temp_umschw_max), " Grad."
+    
+end program wetterstation
\ No newline at end of file
-- 
GitLab