Question

efetuar a leitura de 3 valores abc e calcular a equação completa de segundo grau levendo em consideração que para ser uma equação do segundo grau a variavel a deve ser diferente de zero considere que se o valor de delta for menor que zero não invertem raizes reais​

Answer 1

Resposta:

programa Exercicio26;

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.