Aufgaben Block 4

exercises/block4/1-module/Volumenberechnung.hs

@@ -0,0 +1,25 @@
+--Schreibe ein Modul welches Funktionen zur Berechnung der Volumen von 
+--Kugel, Würfel, Pyramide und Zylinder enthällt
+
+--Grundgerüst
+
+
+
+--Funktionen
+
+
+--Kugel
+kugel :: (Floating a)=> a -> a
+
+
+--Würfel
+
+
+--Pyramide
+
+
+
+--Zylinder
+
+
+

exercises/block4/1-module/modultest.hs

@@ -0,0 +1,23 @@
+import Volumenberechnung
+
+testkugel = kugel 1
+testwuerfel = wuerfel 3
+testpyramide = pyramide 3 3 3
+testzylinder = zylinder 1 1
+
+main = do
+ if testkugel == (4/3) * pi
+ then putStrLn "Kugel wird richtig berechnet"
+ else putStrLn "Kugel wird falsch berechnet"
+ 
+ if testwuerfel == 27
+ then putStrLn "Würfel wird richtig berechnet"
+ else putStrLn "Würfel wird falsch berechnet"
+ 
+ if testpyramide == 9
+ then putStrLn "Pyramide wird richtig berechnet"
+ else putStrLn "Pyramide wird falsch berechnet"
+ 
+ if testzylinder == pi
+ then putStrLn "Zylinder wird richtig berechnet"
+ else putStrLn "Zylinder wird falsch berechnet"

exercises/block4/2-helloWorld/helloWorld.hs

@@ -0,0 +1,3 @@
+--Schreibe ein HelloWorld und führe es aus
+
+main = putStrLn "Hello World"

exercises/block4/3-oche/rueckwartsschreiber.hs

@@ -0,0 +1,10 @@
+--Schreibe eine Funktion reverseWords die eine Nachricht rückwärts zurückgibt
+--Tipp: Sinnvoll sind dabei die Verwendung der Funktionen map und reverse, sowie words und unwords
+
+--Funktion reverseWords
+reverseWords :: String -> String  
+
+--I/O-Abschnitt
+  
+      
+