VedZinn

Olá, bom, aqui está:

algoritmo "Bhaskara"
var
   nA, nB, nC: Real
   Delta: Real
   Delta2: Real
   Delta3: Real
   X1_1: Real
   X1_2: Real
   X2_1: Real
   X2_2: Real
   Valor4 : Real
inicio
   Escreval("Informe um número A:")
   Leia(nA)
   Escreval("O número escolhido foi",nA)

   Escreval("")

   Escreval("Informe um número B:")
   Leia(nB)
   Escreval("O número escolhido foi",nB)

   Escreval("")

   Escreval("Informe um número C:")
   Leia(nC)
   Escreval("O número escolhido foi",nC)
   Escreval("")
   Escreval("Resultados:")
   Escreval("")

   Valor4 <- 4
   Delta <- Exp(nB, 2)
   Delta2 <- (Delta - 4)
   Delta3 <- (Delta2 * nA * nC)
   Escreval("Delta:",Delta3)

   Escreval("")

   X1_1 <- (-nB + RaizQ(Delta3))
   X1_2 <- (X1_1 / 2 * nA)

   Escreval("x1:",X1_2)

   X2_1 <- (-nB - RaizQ(Delta3))
   X2_2 <- (X2_1 / 2 * nA)

   Escreval("x2:",X2_2)
fimalgoritmo