Código:
algoritmo "semnome"
var
a, b, c, x1, x2, delta: real
inicio
escreva("Digite o Valor de a : ")
leia(a)
escreva("Digite o valor de b : ")
leia(b)
escreva("Digite o valor de c : ")
leia(c)
delta <- exp(b, 2) - 4 * a * c
se (a == 0) ou (delta < 0) entao
escreval("Não existem raizes reais nesta equação ")
senao
x1 <- (-b + raizQ(delta)) / (2 * a)
x2 <- (-b - raizQ(delta)) / (2 * a)
escreval("X1 = ", x1)
escreval("X2 = ", x2)
fimse
fimalgoritmo
Erro no Visualg:
Rapaziada já consegui resolver o erro. Tudo isso só foi culpa de um "=".
algoritmo "semnome"
var
a, b, c, x1, x2, delta: real
inicio
escreva("Digite o Valor de a : ")
leia(a)
escreva("Digite o valor de b : ")
leia(b)
escreva("Digite o valor de c : ")
leia(c)
delta <- exp(b, 2) - 4 * a * c
se (a = 0) ou (delta < 0) entao
escreval("Não existem raizes reais nesta equação")
senao
x1 <- (-b + raizQ(delta)) / (2 * a)
x2 <- (-b - raizQ(delta)) / (2 * a)
escreval("X1 = ", x1)
escreval("X2 = ", x2)
fimse
fimalgoritmo