Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function Bhaskara(A, B, C)
- Dim Delta As Long
- Dim Mensagem As String
- Delta = (B*B)-(4*A*C)
- if Delta < 0 then
- Mensagem = "A equação não possui solução no universo dos reais!"
- print Mensagem
- Else
- Bhaskara=(-B+sqr(Delta))/2*A
- End If
- End function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement