Advertisement
Guest User

act 1

a guest
Oct 31st, 2014
148
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.19 KB | None | 0 0
  1. formula_general(A, B, C) ->
  2.   if (B * B - 4 * A * C) > 0 -> {(-B + math:sqrt(B * B - 4 * A * C)) / (2 * A), (-B - math:sqrt(B * B - 4 * A * C)) / (2 * A)}
  3.     ; true -> imaginarias
  4.   end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement