Encontrar Raiz Auna Ecuacion Cubica

Encontrar raiz auna ecuacion cubica

#include <stdio.h>
#include <conio.h>
#include <math.h>

main()
{
char arroba=64;
floatt_cubico,t_cuadrado,t_de_x,coeficiente_solo,Q,R,D,coseno,angulo;
float rpositiva,qpositiva,qpositiva2,x1,x2,x3,pi=3.1416,S,S1,S1_1,S2;
float T,T1,T2,T3,T4,T5,x100,x101,x200,x202,x11,x22,x33; /*Variables*/
printf("ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍFormulas deCardano para Ecuacianoes Cubicas ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ" );
printf("\n\nEste programa calcula las raices de una ecuacion cubica.");
printf("\nUsando las formulas de CARDANO.");
printf("\n\nPorfavorintroduce el Coeficiente del primer termino,cubico.");
printf("\nCoeficiente: ");
scanf("%f",&t_cubico);
printf("\nPorfavor introduce el Coeficiente del segundo termino,cuadrado.");/*Obtencion de datos por parte del usuario*/
printf("\nCoeficiente: ");
scanf("%f",&t_cuadrado);
printf("\nPorfavor introduce el Coeficiente del tercer termino.");
printf("\nCoeficiente: ");scanf("%f",&t_de_x);
printf("\nPorfavor introduce el Coeficiente del cuarto termino.");
printf("\nCoeficiente: ");
scanf("%f",&coeficiente_solo); /*Formulas. Q= 3a_2 - a_1 /9*/
/*R= 9*a_1*a_2 - 27*a_3 - 2*a_1^3 / 54 */

do
{
Q= ((3*t_de_x) - (pow(t_cuadrado,2)))/9; /*Calculando Q con los datos obtenidos*/
printf("\nEl valor de Q es: %f",Q);break;}
while(t_cuadrado>0,t_de_x>0,coeficiente_solo>0); /*Los valores introducidos no pueden ser 0*/

do{
R= ((9*t_cuadrado*t_de_x) - (27*coeficiente_solo) - (2*pow(t_cuadrado,3)))/54;/*Calculando R con datos obtenidos*/
printf("\nEl valor de R es: %f",R);break;
}
while(t_cuadrado>0,t_de_x>0,coeficiente_solo>0); /*Los valores introducidos no puedenser 0*/

printf("\n\nConociendo Q y R calculamos el valor de D.");
D=pow(Q,3) + (pow(R,2));
printf("\n\nD=%f^3 + %f^2",Q,R); /*Calculando el valor de D donde D=Q^3 + R^2*/...