Question

ler três valores numéricos (representados pelas variáveis A, B e C) e efetuar o cálculo da equação completa de segundo grau, utilizando a fórmula de Baskara (considerar todas as possíveis condições para Delta: delta < 0, delta > 0 e delta = 0). Lembre-se de que é completa a equação de segundo grau que possui simultaneamente as variáveis A, B e C diferentes de zero.

Answer 1

______________________________________

algoritmo "Bhaskara"
var
A, B, C, DELTA, x1, x2: real
inicio
escreval("Digite o valor de A: ")
leia(A)
escreval("Digite o valor de B: ")
leia(B)
escreval("Digite o valor de C: ")
leia(C)
DELTA <- (B*B)-4*A*C
se(DELTA < 0) entao
   escreval("Não há raízes reais")
senao
   se(DELTA = 0) entao
      x1 <- -b/2*a
      escreval("Uma única raiz real: x =", x1)
   senao
      se(DELTA > 0) entao
         x1 <- (-b + raizq(DELTA))/(2*a)
         x2 <- (-b - raizq(DELTA))/(2*a)
         escreval("Duas raízes reais e distintas: ")
         escreval("x1 =",x1, " x2 =",x2)
      fimse
   fimse
fimse
fimalgoritmo
______________________________________

Espero ter ajudado (:
Bons estudos!

Answer 2

Resposta:

var

 a, b, c: Real;

 raizPositiva, raizNegativa: Real;

 delta: Real;

inicio

 Escreva('Informe o valor de A: ');

 Leia(a);

 

 Escreva('Informe o valor de B: ');

 Leia(b);

 

 Escreva('Informe o valor de C: ');

 Leia(c);

 

 delta := sqr(b) - (4 * a * c);

 

 { Não existe raiz de número negativo no conjunto dos números reais }

 // sqrt = raiz quadrada

 // sqr = potencia n * n

 se ((delta >= 0) e (a <> 0)) entao

 inicio

   // -b + raiz ( b*b - (4.a.c) ) / 2.a

   raizPositiva := ((b * (-1)) + sqrt(sqr(b) - (4 * a * c))) / 2 * a;

 

   // -b - raiz ( b*b - (4.a.c) ) / 2.a

   raizNegativa := ((b * (-1)) - sqrt(sqr(b) - (4 * a * c))) / 2 * a;

 fim;

 

 se ((delta >= 0) e (a <> 0)) entao

   Escreva('x = ', raizPositiva: 0: 2, ' ou x = ', raizNegativa: 0: 2)

 senao

   Escreva('A equacao nao possui raizes reais!');

fim.