Upload New File

Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/06_wahrheitstabelle.f95

+program wahrheitstabelle
+    implicit none
+
+    ! Gibt die "Wahrheitstabellen" fuer UND und ODER aus
+    
+    logical :: yes = .true., no = .false.
+
+    write(*,*)
+
+    write(*,*) " AND ", " | ", "true ", " | ", "false"
+    write(*,*) "------|-------|------"
+    write(*,*) "true ", " | ", yes .and. yes, "   |   ", yes .and. no
+    write(*,*) "------|-------|------"
+    write(*,*) "false", " | ", no .and. yes, "   |   ", no .and. no
+
+    write(*,*)
+
+    write(*,*) " OR  ", " | ", "true ", " | ", "false"
+    write(*,*) "------|-------|------"
+    write(*,*) "true ", " | ", yes .or. yes, "   |   ", yes .or. no
+    write(*,*) "------|-------|------"
+    write(*,*) "false", " | ", no .or. yes, "   |   ", no .or. no
+
+    write(*,*)
+
+end program wahrheitstabelle
\ No newline at end of file