programa de matematicas en lenguaje c

//ERICK BELLO SANCHEZ
//PROGRAMA QUE CALCULA EL FACTORIAL, DETERMINANTES DE 3 POR 3, ECUACIONES LINEALES
DE DOS INCOGNITAS
//ECUACIONES LINEALES DE TRES INCOGNITAS Y ECUACIONES CUADRATICAS
#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<math.h>
int ELEC;
void main(void)
{
INICIO:
clrscr();
system("color 47");
printf("nnn
****************************************************************************n");
printf("
****************************************************************************n");
printf(" ** INSTITUTO TECNOLOGICO DE LAZARO CARDENAS **n");
printf(" ** INGENIERIA ELECTRONICA **n");
printf(" ** PROGRAMACION ESTRUCTURADA **n");
printf(" ** ERICK BELLO SANCHEZ **n");

printf("
****************************************************************************n");
printf("
****************************************************************************nn")
;
printf("
****************************************************************************n");
printf(" * BIENVENIDO AL PROGRAMA QUE POSEE LA SIGUIENTES APLICACIONES MATEMATICAS:
*n");
printf(" * 1.-CALCULO DEL FACTORIAL DE UN NUMERO *n");
printf(" * 2.-CALCULO DEL DETERMINANTE UNA MATRIZ DE 3X3 *n");
printf(" * 3.-SOLUCION DE ECUACIONES LINEALES DE DOS INCOGNITAS *n");
printf(" * 4.-SOLUCION DE ECUACIONES LINEALES DE TRES INCOGNITAS *n");
printf(" * 5.-SOLUCION DE ECUACIONES DE SEGUNDO GRADO *n");
printf("
****************************************************************************nn
n");
printf("PARA EJECUTAR ALGUNA DE LAS APLICACIONES SOLOn");
printf("PRESIONE EL NUMERO CORRESPONDIENTE A DICHA APLICACION ");
scanf("%d",&ELEC);
switch(ELEC)
{
case(1):{

double R,d,g,fact=1;
clrscr();
system("color F5");
printf("
***************************************************************************n");
printf(" * INSTITUTO TECNOLOGICO DE LAZARO CARDENAS *n");
printf(" * PROGRAMA QUE CALCULA EL FACTORIAL DE UN NUMERO DADO (NO MAYOR A
170) *n");
printf("
***************************************************************************nnn"
);
printf("n DAME EL NUMERO DEL CUAL DESEAS OBTENER EL FACTORIAL ");
scanf("%lf",&R);
for(d=1;d<=R;d++)
{
fact=fact*d;
}
printf("nnEL VALOR DEL FACTORIAL ES=%lfn",fact);
system("PAUSE");
clrscr();
system("COLOR 11");
printf("SI DESEA OBTENER OTRO FACTORIAL PRESIONE LA TECLA Cn");

printf("SI DESEA SALIR PRESIONE LA TECLA St");
g=getch();
if(g=='C'||g=='c')
{
clrscr();
goto INICIO;
}
break;}
case(2):{
float A1,A2,A3,B1,B2,B3,C1,C2,C3,D1,D2,D3,DET,X,Y,Z,g;
clrscr();
system("color F4");
printf("
****************************************************************************n");
printf(" * PROGRAMA QUE CALCULA EL VALOR DE UN DETERMINANTE DE 3 POR 3 DE LA
FORMA: *n");
printf(" * A1 B1 C1 *n");

printf("
****************************************************************************nn
n");
printf("nINTRODUCE EL VALOR DE A1 ");
scanf("%f",&A1);
printf("nINTRODUCE EL VALOR DE B1 ");
scanf("%f",&B1);
printf("nINTRODUCE EL VALOR DE C1 ");
scanf("%f",&C1);
scanf("%f",&A2);
scanf("%f",&B2);
scanf("%f",&C2);
scanf("%f",&A3);
scanf("%f",&B3);

scanf("%f",&C3);
DET=(A1*B2*C3-A1*B3*C2)+(B1*A3*C2-B1*A2*C3)+(C1*A2*B3-C1*A3*B2);
system("color 6B");
printf("nnnEL VALOR DEL DETERMINANTE=%fn",DET);
system("PAUSE");
clrscr();
system("COLOR 11");
printf("SI DESEA CONTINUAR CON OTR0 DETERMINANTE PRESIONE LA TECLA Cn");
g=getch();
if(g=='C'||g=='c')
{
clrscr();
goto INICIO;
}
break;}
case(3):{
float R1,R2,A1,B1,C1,A2,B2,DET,C2,g;
clrscr();

system("color F3");
printf("
***************************************************************************n");
printf(" * BIENVENIDO A PROGRAMA QUE CALCULA LAS RAICES DE UN SISTEMA DE
ECUACIONES*n");
printf(" * LINEALES DE LA FORMA A1X+B1Y=C1, A2X+B2Y=C2 *n");
printf("
***************************************************************************n");
printf("DAME EL NUMERO A1 ");
scanf("%f",&A1);
printf("nDAME EL NUMERO B1 ");
scanf("%f",&B1);
printf("nDAME EL NUMERO C1 ");
scanf("%f",&C1);
printf("nDAME EL NUMERO A2 ");
scanf("%f",&A2);
printf("nDAME EL NUMERO B2 ");
scanf("%f",&B2);
printf("nDAME EL NUMERO C2 ");
scanf("%f",&C2);
DET=(A1*B2-A2*B1);

R1=(C1*B2-C2*B1)/DET;
R2=(A1*C2-A2*C1)/DET;
printf("nELVALOR DE X ES %f",R1);
printf("nEL VALOR DE Y ES %f",R2);
system("PAUSE");
clrscr();
system("COLOR 11");
printf("SI DESEA CONTINUAR CON OTRAS ECUACIONES PRESIONE LA TECLA Cn");
g=getch();
if(g=='C'||g=='c')
{
clrscr();
goto INICIO;
}
break;}
case(4):{
float A1,A2,g,A3,B1,B2,B3,C1,C2,C3,D1,D2,D3,DET,X,Y,Z;
clrscr();

system("color F2");
printf("
****************************************************************************n");
printf(" *PROGRAMA QUE CALCULA LAS RAICES DE UN SISTEMA DE TRES ECUACIONES
LINEALES *n");
printf(" * DE TRES INCOGNITAS DE LA FORMA: *n");
printf(" * A1X+B1Y+C1Z=D1 *n");
printf("
****************************************************************************nn
n");
scanf("%f",&A1);
scanf("%f",&B1);
scanf("%f",&C1);
printf("nINTRODUCE EL VALOR DE D1 ");
scanf("%f",&D1);

scanf("%f",&A2);
scanf("%f",&B2);
scanf("%f",&C2);
scanf("%f",&D2);
scanf("%f",&A3);
scanf("%f",&B3);
scanf("%f",&C3);
scanf("%f",&D3);
DET=(A1*B2*C3-A1*B3*C2)+(B1*A3*C2-B1*A2*C3)+(C1*A2*B3-C1*A3*B2);
X=((D1*B2*C3-D1*B3*C2)+(B1*D3*C2-B1*D2*C3)+(C1*D2*B3-C1*D3*B2))/DET;
Y=((A1*D2*C3-A1*D3*C2)+(D1*A3*C2-D1*A2*C3)+(C1*A2*D3-C1*A3*D2))/DET;
Z=((A1*B2*D3-A1*B3*D2)+(B1*A3*D2-B1*A2*D3)+(D1*A2*B3-D1*A3*B2))/DET;
system("color 6B");
printf("nnntt LOS VALORES DE LAS INCOGNITAS SON:");

printf("nnnttX=%f",X);
printf("tY=%f",Y);
printf("tZ=%fn",Z);
system("PAUSE");
clrscr();
system("COLOR 11");
printf("SI DESEA CONTINUAR CON OTRAS ECUACIONES PRESIONE LA TECLA Cn");
g=getch();
if(g=='C'||g=='c')
{
clrscr();
goto INICIO;
}
break;}
case(5):{
clrscr();
float X1,X2,c,d,e,f,g,h,A,B,C,i;

system("COLOR F1");
gotoxy(9,2);
printf("**PROGRAMA QUE CALCULA LAS RAICES DE UNA ECUACION CUADRATICA**");
gotoxy(18,4);
printf("**SIEMPRE Y CUANDO ESTAS SEAN RAICES REALES**");
gotoxy(6,10);
printf("TECLEE EL COEFICIENTE DEL TERMINO CUADRATICO ");
scanf("%f",&A);
gotoxy(6,12);
printf("TECLEE EL COEFICIENTE DEL TERMINO LINEAL ");
scanf("%f",&B);
gotoxy(6,14);
printf("TECLEE EL TERMINO INDEPENDIENTE ");
scanf("%f",&C);
clrscr();
c=-1*B;
d=(B*B);
e=-1*4*A*C;
f=2*A;
h=d+e;
if(h<0)

{
clrscr();
system("COLOR F1");
printf("nnntLA ECUACION NO TIENE RAICES REALES PRESIONA ENTER PARA CONTINUAR");
getch();
goto INICIO;
}
c=-1*B;
d=(B*B);
e=-4*A*C;
f=2*A;
h=d+e;
i=sqrt(h);
X1=(c+i)/f;
X2=(c-i)/f;
system("COLOR F1");
gotoxy(30,10);
printf("X1=%f",X1);
gotoxy(30,12);
printf("X2=%fn",X2);

printf("nnSI DESEA CONTINUAR CON OTRA ECUACION PRESIONE LA TECLA Cn");
printf("nSI DESEA SALIR PRESIONE LA TECLA S");
g=getch();
if(g=='C'||g=='c')
{
clrscr();
goto INICIO;
}
break;}
default:
clrscr();
printf("LA OPCION ELEGIDA ES INCORRECTA PRESIONA ENTER PARA REGRESAR");
getch();
goto INICIO;
}
}

programa de matematicas en lenguaje c

Más contenido relacionado

La actualidad más candente (19)

Similar a programa de matematicas en lenguaje c (20)

Más de Erick Bello (6)

Último (20)

programa de matematicas en lenguaje c