Advertisement
tutorfree

Bhaskara

Feb 1st, 2017
3,043
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function Bhaskara(A, B, C)
  2.    
  3.     Dim Delta As Long
  4.     Dim Mensagem As String
  5.    
  6.     Delta = (B*B)-(4*A*C)
  7.     if Delta < 0 then
  8.         Mensagem = "A equação não possui solução no universo dos reais!"
  9.         print Mensagem
  10.     Else
  11.         Bhaskara=(-B+sqr(Delta))/2*A
  12.     End If
  13.    
  14. End function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement