Algoritmo Para Calcular As Raízes Reais De Uma Equação De Segundo Grau

Escreva um algoritmo para calcular as raízes reais de uma equação de segundo grau. Leia a, b e c, calcule delta (b2-a*a*c) e x1e x2, sendo delta >-1, x1 <- (-b+raizq(delta))/2*a e x2 <- (-b-raizq(delta))/2*a

// Seção de Declarações

var

A, B, C, delta, x1, x2: real

inicio

// Seção de Comandos

//entrada de dados

escreval ("Cálculo de uma equanção de 2o. grau completa (termos A, B e C)")

escreval ("Digite o valor do coeficiente A")

leia (A)

escreval ("Digite o valor do coeficiente B")

leia (B)

escreval ("Digite o valor do coeficiente B")

leia (C)

//processo:

//cálculo do delta:

delta <- B^2-4*A*C

escreval ("o valor de delta é: ",delta)

SE (delta < 0) entao //Não existem raízes reais caso o delta seja negativo

escreval ("o valor de delta é negativo portanto não existem raízes reais dessa equação")

Senao

//determinar x1 e x2

x1<- (-b+raizq(delta))/2*A

escreval ("x1 = ",x1)

x2<- (-b-raizq(delta))/2*A

escreval ("x2 = ",x2)

fimse

fimalgoritmo