Formula de baskara no visualg

Alex Silva. · 24 de junho de 2011

ei pessoal...

to precisando de ajuda, estou tetando resolver a formula de baskar no visualg, mas quanto executar da erro, já tentei resolver, mas não consegui.

alguem pode me ajudar???

aqui o código:

algoritmo "Formula de baskara"
var
a, b, c, x1, x2,delta :real
inicio
escreval("RESOLVENDO EQUAÇÃO DO SEGUNDO")
escreval("Dado a equação x²+ 2x + 10 = 0")
escreval("digite valor de a:")
leia(a)
escreval("digite valor de b:")
leia (
escreval("digite valor de c:")
leia©
delta <- ((b^2)-(4*a*c))
x1 <- ((-+(delta))/(2*a)
x2 <- ((--(delta))/(2*a)
fimalgoritmo

Roberto.Korea · 27 de junho de 2011

Qual o erro que ele apresenta?

Alex Silva. · 1 de julho de 2011

o problema foi resolvdi.. aqui esta o código para analise..

algoritmo "Formula de baskara"
var
a, b, c, x1, x2, delta :real
inicio
escreval("RESOLVENDO EQUAÇÃO DO SEGUNDO GRAU")
escreval("Dado a equação x²+ 6x + 5 = 0")
escreval("digite valor de a:")
leia(a)
escreval("digite valor de b:")
leia (
escreval("digite valor de c:")
leia©
delta <- b^2 - 4*a*c
escreval("Delta", delta)
se delta > 0 então
senao
escreval("O valor de delta é negativo")
fimalgoritmo
fimse
x1 <- ((- + (raizQ(delta)))/(2*a)
x2 <- ((- - (raizQ(delta)))/(2*a)
escreval("x1=",x1)
escreval("x2=",x2)
fimalgoritmo