23 lines
619 B
Haskell
23 lines
619 B
Haskell
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" |