Question

preciso de um algoritmo pro VisuAlg que resolva equações do segundo grau! 

Answer 1

algoritmo "equacao_2_grau"

var delta, x1, x2, a, b, c : 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 <- ( b*b - 4*a*c )

       se delta < 0 entao
          escreva("Não existem raizes reais.")
       senao
          x1 <- (-b + raizq(delta))/2*a
          x2 <- (-b - raizq(delta))/2*a
          escreval
          escreval("Raizes:")
          escreval("X1 = ", x1)
          escreval("X2 = ", x2)
       fimse

fimalgoritmo