tarea
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 simbolo del numero imaginario para la raiz cuadrada de -1.
1.- inicio
a, b, c, disc, raiz1, raiz2, r1i, r2i float
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" introducir valores para a=";
read a;
print"introducir valores para b=";
read b;
print"introducir valores 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);
}
}
}
}
fin