Raíces+de+ecuación+de+segundo+grado

=__**Indicar el número y el tipo de las raíces de una ecuación de 2º grado**__= > > **Utilizando sentencias IF THEN**

code format="pascal" PROGRAM R_IF ; VAR rA, rB, rC,                  { Coeficientes de la ecuación } rDiscriminante : Real ;      { Valor del Discriminante     } BEGIN WriteLn ('Tipo de soluciones de una ecuación de 2º grado') ; WriteLn ; WriteLn ('Escribe los coeficientes de la ecuación:') ; Write  ('Coef. de segundo grado A: ') ; ReadLn (rA) ; Write  (' Coef. de primer grado B: ') ; ReadLn (rB) ; Write  (' Término independiente C: ') ; ReadLn (rC) ;

rDiscriminante := Sqr (rB) - 4 * rA * rC ;

IF rDiscriminante < 0 THEN WriteLn ('2 Imaginarias') ; IF rDiscriminante = 0 THEN WriteLn ('1 Raíz real doble') ; IF rDiscriminante > 0 THEN WriteLn ('2 Raíces reales') ;

ReadLn ; END. code

> >> >> **Utilizando sentencias IF ELSE IF** > code format="pascal" PROGRAM R_IFELSE ; VAR rA, rB, rC,                  { Coeficientes de la ecuación } rDiscriminante : Real ;      { Valor del Discriminante     } BEGIN WriteLn ('Tipo de soluciones de una ecuación de 2º grado') ; WriteLn ; WriteLn ('Escribe los coeficientes de la ecuación:') ; Write  ('Coef. de segundo grado A: ') ; ReadLn (rA) ; Write  (' Coef. de primer grado B: ') ; ReadLn (rB) ; Write  (' Término independiente C: ') ; ReadLn (rC) ;

rDiscriminante := Sqr (rB) - 4 * rA * rC ;

IF rDiscriminante < 0 THEN WriteLn ('2 Imaginarias') ELSE IF rDiscriminante = 0 THEN WriteLn ('1 Raíz real doble') ELSE                              { rDiscriminante > 0 } WriteLn ('2 Raíces reales') ;

ReadLn ; END. code