algoritmo "Bhaskara"
var
a, b, c, delta, raiz_delta, x1, x, x_delta, x2: Real
inicio
Escreva("Informe um numero inteiro diferente de 0: ")
Leia(a)
Escreva("Informe outro numero inteiro diferente de 0: ")
Leia(b)
Escreva("Novamente, informe outro numero inteiro diferente de 0: ")
Leia(c)
delta <- (b^2-4*a*c)
Se (delta<0) entao
delta <- Abs(delta)
raiz_delta <- (RaizQ(delta))
x <- (b-b*2)/(2*a)
x_delta <- raiz_delta/(2*a)
x1 <- (x, "+", x_delta, "i")
x2 <- (x, "-", x_delta, "i")
Escreval("Utilizando ", a, " como 'a', ", b, " como 'b', ", c, " como 'c' em Delta e aplicando a ")
Escreval("Formula de Bhaskara, chegamos ao resultado:)
Escreva("x1 = ", x1, " e x2 ", x2)
FimSe
fimalgoritmo
Parece ser algo bem idiota, mas não estou conseguindo resolver... Ajuda?