Hi,
ich versuche gerade eine Aufgabe aus meinem Übungsblatt für Haskell zu lösen.
Hier die Aufgabe:
Die Zahl π kann mit der folgenden unendlichen Seriensumme berechnet werden:
Definieren Sie eine Haskell Funktion roughlyPI, die bei Eingabe einer natürlichen Zahl k die Seriensumme von 0 bis zum k-Wert berechnet.
Mein Ansatz:
--------------------------------------------------
Er macht aber das hier!
Ich will eigentlich nur, dass er die eingegebene Zahl berechnet
Geben Sie bitte eine Zahl ein!
155
155.0
Betätigen Sie eine beliebige Taste, um das Terminal zu schließen.
Irgendwas fehlt....
ich versuche gerade eine Aufgabe aus meinem Übungsblatt für Haskell zu lösen.
Hier die Aufgabe:
Die Zahl π kann mit der folgenden unendlichen Seriensumme berechnet werden:
Definieren Sie eine Haskell Funktion roughlyPI, die bei Eingabe einer natürlichen Zahl k die Seriensumme von 0 bis zum k-Wert berechnet.
Mein Ansatz:
Code:
roughlyPI :: Double -> Double
roughlyPI 0 = 2
roughlyPI n = e1/e2 + (roughlyPI (n-1))
where
e1 = 2**(n+1)*(factorial n)**2
e2 = factorial (2*n+1)
factoial 0 = 1
factorial n = n*factoial (n-1)
main = do
putStrLn "Geben Sie bitte eine Zahl ein!"
roughlyPI <- readLn :: IO Double
print (roughlyPI)
Er macht aber das hier!
Ich will eigentlich nur, dass er die eingegebene Zahl berechnet
Geben Sie bitte eine Zahl ein!
155
155.0
Betätigen Sie eine beliebige Taste, um das Terminal zu schließen.
Irgendwas fehlt....
Zuletzt bearbeitet von einem Moderator: