Equacoes de segundo grau
Considere uma equação de segundo grau da forma ax2 + bx + c = 0. Considere que os parâmetros a, b e c são dados respectivamente na primeira, segunda e terceira coluna de uma planilha. Conforme o caso, essa equação pode ter nenhuma solução, uma única solução ou duas soluções. Construa um programa que faça o seguinte:
- se a equação não tiver soluções, escreva na quarta coluna da planilha uma mensagem indicando isso.
- se a equação tiver apenas uma solução, escrever essa solução na quarta coluna da planilha.
- se a equação tiver duas soluções, escrever a maior delas na quarta coluna e a menor na quinta coluna da planilha.
Sub eq2grau()
Dim a, b, c, delta, x1, x2 As Double
a = Cells(2, 1)
b = Cells(2, 2)
c = Cells(2, 3)
delta = b * b - 4 * a * c
If delta < 0 Then
Cells(2, 4) = "sem raizes reais"
ElseIf delta = 0 Then
x1 = -b / (2 * a)
x2 = x1
Else
x1 = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
End If
If delta >= 0 Then
Cells(2, 4) = x1
Cells(2, 5) = x2
End If
End Sub
Dim a, b, c, delta, x1, x2 As Double
a = Cells(2, 1)
b = Cells(2, 2)
c = Cells(2, 3)
delta = b * b - 4 * a * c
If delta < 0 Then
Cells(2, 4) = "sem raizes reais"
ElseIf delta = 0 Then
x1 = -b / (2 * a)
x2 = x1
Else
x1 = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
End If
If delta >= 0 Then
Cells(2, 4) = x1
Cells(2, 5) = x2
End If
End Sub