Upload New File

Sonderuebung/WiSe23-24/SU11_2024_01_16/01_io_practice.f95

+program io_practice
+    implicit none
+
+    integer :: n, ios, i
+    character (10) :: word
+
+ ! einlesen Datei io_text_01.txt -> nur Integers   
+    open(30, iostat = ios, file = "io_text_01.txt", status = "old", action = "read")
+
+    if (ios == 0) then ! prüfe ob Datei korrekt geöffnet wurde
+
+        do
+            read(30,*, iostat = ios) n
+            if (ios /= 0) exit  ! prüfe ob n korrekt eingelesen wurde
+            write(*,*) n
+        end do
+
+    else
+        write(*,*) "Datei konnte nicht geoeffnet werden"
+    end if
+    close(30)
+
+
+ ! einlesen Datei io_text_02.txt -> Character und Integer
+    open(30, iostat = ios, file = "io_text_02.txt", status = "old", action = "read")
+
+    if (ios == 0) then ! prüfe ob Datei korrekt geöffnet wurde
+
+        do
+            read(30,*, iostat = ios) word, n
+            if (ios /= 0) exit  ! prüfe ob n korrekt eingelesen wurde
+            write(*,*) word, n
+        end do
+
+    else
+        write(*,*) "Datei konnte nicht geoeffnet werden"
+    end if
+    close(30)
+
+ ! ausgeben der Zahlen 1-10 in eine txt-Datei
+    
+    open(30, iostat = ios, file = "io_text_03.txt", status = "new", action = "write")
+
+    if (ios == 0) then ! prüfe ob Datei korrekt geöffnet wurde
+
+        do i = 1, 10
+            write(30,*) i
+        end do
+
+    else
+        write(*,*) "Datei konnte nicht geoeffnet werden"
+    end if
+    close(30)
+    
+
+    
+end program io_practice
\ No newline at end of file