por favor me puedes ayudar

Janeth
14 de Julio del 2005
Por favor me puedes ayudar a realizar un algoritmo para resolver ecuaciones cuadraticas plis; te lo agradeceria mucho

C@
14 de Julio del 2005
/*No indicaste por que metodo quieres la sucion de ec cuadraticas la mas facil es la sig (Fórmula Gral)*/

void FOR_GRAL()
{
float A,B,C,D,X1,X2;

gotoxy(25,3);printf("SOLUCION DE UNA ECUACION DE 2§ GRADO");
gotoxy(33,5);printf("POR FORMULA GENERAL");
gotoxy(25,10);printf("Teclea el Coeficiente de A==> ");scanf("%f",&A);
gotoxy(25,12);printf("Teclea el Coeficiente de B==> ");scanf("%f",&B);
gotoxy(25,14);printf("Teclea el Coeficiente de C==> ");scanf("%f",&C);
D=pow(B,2)-(4*A*C);
if(D>=0)
if(A!=0)
{
X1=(-B+sqrt(D))/(2*A);
X2=(-B-sqrt(D))/(2*A);
clrscr();
gotoxy(35,5);printf("S O L U C I O N");
gotoxy(33,8);printf("Valor de A: %-8.6f",A);
gotoxy(33,10);printf("Valor de B: %-8.6f",B);
gotoxy(33,12);printf("Valor de C: %-8.6f",C);
gotoxy(36,15);printf("X1==> %-8.6f",X1);
gotoxy(36,17);printf("X2==> %-8.6f",X2);
gotoxy(37,20);printf("Press Enter");
}
else
{
gotoxy(28,20);printf("LA ECUACION NO ES CUADRATICA");
gotoxy(37,22);printf("Press Enter");
}
else
{
gotoxy(30,20);printf("LA RAIZ ES IMAGINARIA");
gotoxy(35,22);printf("Press Enter");
}
getch();
}