Tarea # 1 Unidad II

Tarea # 1 Unidad II

Problema 6

Modifiquen el programa 4.9 de modo que se calculen y desplieguen las races imaginarias cuando el discriminante es negativo. Para este caso las dos raices de la ecuacion son:

2

X1= -b + sqrt [-(b - 4ac)] i

2a 2a

y

2

X1= -b - sqrt [-(b - 4ac)] i

2a 2a

Donde i es el símbolo del numero imaginario para la raiz cuadrada de -1.

1.- Inicio

a,b,c,disc,raiz1,raiz2,r1i,r2i; Real

Print " Este programa calcula las raices de una\n"

Print " ecuacion cuadratica de la forma \n"

Print " 2\n"

Print " ax + bx + c = 0\n\n"

Print " introduzca valor para a : "

Read a

Print " Introduzca valor para b : "

Read b

Print " introduzca valor para c : "

Read c

if (a==0.0 && b==0.0)

{

Print " No es posible encontrar raiz ";

}

else

{

if(a==0.0)

{

Print " La raiz tiene una raiz : ",-c/b,;

}

else

{

disc = pow(b,2.0)-4* a * c;

if(disc>0.0)

{

disc = sqrt(disc);

raiz1 = (-b + disc)/(2*a);

raiz2 = (-b - disc)/(2*a);

Print " Las raices son : ",raiz1," y ",raiz2,;

}

else

{

if (disc <0.0)

{

r1i = -b/(2*a)+(sqrt(disc*-1))/(2*a);

r2i = -b/(2*a)-(sqrt(disc*-1))/(2*a);

Print " Las raices son imaginarias : ",-b/(2*a)," + ",(sqrt(disc*-1))/(2*a)," i y ",-b/(2*a)," - ",(sqrt(disc*-1))/(2*a)," i ",;

}

else

{

Print " Las raices tienen valor de : ",-b/(2*a),;

}

}

}

}