--Schreibe ein Modul welches Funktionen zur berechnung der Volumen von 
--Kugel, Würfel, Pyramide und Zylinder enthällt

--Grundgerüst
module Volumenberechnung
( kugel
, wuerfel
, pyramide
, zylinder
) where


--Funktionen


--Kugel
kugel :: (Floating a)=> a -> a
kugel radius = (4/3) * pi * radius ^ 3 

--Würfel
wuerfel :: (Floating a) => a -> a
wuerfel kantenlaenge = kantenlaenge ^ 3

--Pyramide
pyramide :: (Floating a) => a -> a -> a -> a
pyramide laenge breite hoehe = 1/3 * laenge * breite * hoehe


--Zylinder
zylinder :: (Floating a) => a -> a -> a
zylinder radius hoehe = pi * radius ^ 2 * hoehe