Upload New File

Sonderuebung/WiSe23-24/SU08_2023_12_12/04_wichtelmodul.f95

+module wichtel_mod
+    use zeit_mod
+    implicit none
+
+    private
+    public :: wichtel, GET, PUT, change_zeit
+
+    type wichtel
+        private
+
+        character (len=20) :: name
+        type(zeit) :: zeit_worked ! stunden an arbeit
+    end type
+
+    interface GET
+        module procedure einlesen_wichtel
+    end interface
+
+    interface PUT
+        module procedure ausgeben_wichtel
+    end interface
+
+    interface change_zeit
+        module procedure change_zeit_worked
+    end interface
+    
+ contains
+    
+    subroutine einlesen_wichtel(elf)
+        type(wichtel), intent(out) ::  elf
+    
+        write(*,*) "Wie heisst der Wichtel?"
+        read(*,*) elf%name
+
+        write(*,*) "Wie viele Stunden, Minuten und Sekunden hat ", trim(elf%name), " gearbeitet?"
+        call get(elf%zeit_worked)
+        
+    end subroutine einlesen_wichtel
+
+    subroutine ausgeben_wichtel(elf)
+        type(wichtel), intent(in) :: elf
+
+        write(*,*) "Der Wichtel ", trim(elf%name), " hat insgesamt ", zeit_string(elf%zeit_worked), " Stunden gearbeitet."
+    end subroutine
+
+    subroutine change_zeit_worked (elf, time)
+        type(wichtel), intent(inout) :: elf
+        type(zeit), intent(in) :: time
+
+        elf%zeit_worked = time
+    end subroutine
+
+end module wichtel_mod
\ No newline at end of file