Upload New File

Uebung/WiSe23-24/fehler1.f95

+
+
+
+!Programm 1
+    program zahlenausgabe
+    do a=1,10
+    write(a)
+    write(a^2)
+    a=a+1
+    end do
+    end program zahlenausgabe
+!----------------------------------------------------------------------------------------!
+
+!Programm 2
+    program wortausgabe
+        implicit none
+        write(*,*)Dies ist ein Satz:
+        character::a,b
+        a='Dies ist der erste Teil eines sehr sehr langen Satzes, denn'
+        b='dies ist der zweite Teil eines wirklich sehr sehr langen Satzes. Ist er vielleicht zu lang?'
+        write(*,*)a,b
+        write(*,*)'Dies ist der erste Teil eines sehr sehr langen Satzes, denn' // 'dies ist der zweite Teil eines wirklich sehr sehr langen Satzes. Ist er vielleicht zu lang?'
+    end program wortausgabe
+!----------------------------------------------------------------------------------------!
+
+!Programm 3
+    program UserInteraktion
+        implicit none
+        character(10)::input
+        write(*,*)'Bitte geben sie ein Wort ein:'
+        input = read(*,*)
+        write(*,*)'Ihr Wort hat',len(input),'Buchstaben.'
+        if(wort='Hallo')write(*,*)"Guten Tag!"
+    end program UserInteraktion
+!----------------------------------------------------------------------------------------!
+
+!Programm 4
+    program Schleifen
+        implicit none
+        character(10)::input
+        integer(7)::i,j,n
+        write(*,*)'Bis zu welcher Zahl soll gezählt werden?'
+        read(*,*)n
+        geraden do i=1,n,2
+            write(*,*)i
+        end do geraden
+        ungeraden do while (i<n)
+            i=i+2
+            write(*,*)i
+        end do ungeraden
+        do
+            n=n-1
+            write(*,*)n
+            if(n=0)write(*,*)'fertig!'exit
+        end do
+        rückwärts do i=1,n
+            write(*,*)n-1
+        end do rückwärts
+    end program Schleifen
+!----------------------------------------------------------------------------------------!
+
+!Programm 5
+    program Potenzoperator
+        implicit none
+        integer,parameter :: real_kind= selected_real_kind(P=6, R=37)
+        real(kind=real_kind) :: x
+        x = 65
+        write(*,*) x**4-x**4
+        write(*,*)x*x*x*x-x*x*x*x
+    end program Potenzoperator
+!----------------------------------------------------------------------------------------!
\ No newline at end of file