Hallar las raices de una ecuacion cuadratica en Haskell con guardascuadrado :: (Float) - > Float
cuadrado (x)=x*x
[pl]
myRaices :: (Float,Float,Float) - > (Float,Float)
myRaices (a,b,c)
| cuadrado(b) >(4*a*c)=((-b + sqrt(cuadrado(b)-(4*a*c)))/(2*a),(-b - sqrt(cuadrado(b)-(4*a*c)))/(2*a))
| otherwise = error "El resultado son numeros Imaginarios"
[/pl]
0 comentarios :
Publicar un comentario