32 lines
611 B
Haskell
32 lines
611 B
Haskell
--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
|