Instituto Politcnico Nacional.
Escuela Superior de Ingeniera Mecnica y
Elctrica
Unidad Culhuacn
Ingeniera Mecnica.
Programacin
Parbolas dentro y fuera del centro.
Profesor:
Alejandro Narciso Malamoco Gmez
Alumno:
GOMEZ BLANCO OMAR AGUSTIN.
Grupo: 1MM3
#include<stdio.h> gotoxy(80,1); gotoxy(20,14);
#include<math.h> for(i=1;i<=44;i++) printf(" ingrese los
coeficientes de su
#include<conio.h> { parabola vertical");
main() gotoxy(80,i); gotoxy(20,16);
{ printf("*"); printf(" a=");
float } scanf("%f",&a);
a,b,c,radical,x1,x2,imagin
ario,real,h,k,p,d,f,y; gotoxy(1,44); gotoxy(20,18);
int i; for(i=1;i<=80;i++) printf(" b=");
for(i=1;i<=80;i++) { scanf("%f",&b);
{ gotoxy(i,44); gotoxy(20,20);
gotoxy(i,1); printf("*"); printf(" c=");
printf("*"); } scanf("%f",&c);
} gotoxy(28,3); radical=(b*b)-(4*a*c);
gotoxy(1,12); printf("Instituto gotoxy(20,22);
Politecnico Nacional");
for(i=1;i<=80;i++) printf(" su radical
gotoxy(28,5); es=%.4f",radical);
{
printf("ESIME if(radical>0)
gotoxy(i,12); CULHUACAN");
{
printf("*"); gotoxy(28,7);
gotoxy(20,23);
} printf("Ingenieria
Mecanica"); printf(" su ecuacion tiene
gotoxy(1,1); dos resultados reales");
gotoxy(28,9);
for(i=1;i<=44;i++) x1=(-
printf("Grupo: 1MM3"); b+sqrt(radical))/(2*a);
{
gotoxy(28,11); x2=(-b-
gotoxy(1,i);
printf("Nombre: Gmez sqrt(radical))/(2*a);
printf("*"); Blanco Omar Agustin"); gotoxy(20,24);
}
printf(" los resultados de printf(" su ecuacion tiene if(radical<0)
su ecuacion son x1=%.4f un resultado real");
y x2=%.4f",x1,x2); {
x1=(-
h=-b/(2*a); b+sqrt(radical))/(2*a); gotoxy(20,23);
k=((4*a*c)-(b*b))/(4*a); gotoxy(20,24); printf(" su ecuacion tiene
dos resultados
f=.25+k; printf(" los resultados de imaginarios");
su ecuacion son x1=%.4f
p=.25; ",x1); real=-b/(2*a);
d=k-p; h=-b/(2*a); imaginario=(sqrt(fabs(ra
dical)))/(2*a);
gotoxy(20,25); k=((4*a*c)-(b*b))/(4*a);
gotoxy(20,24);
printf(" su vertice se f=.25+k;
encuentra en printf("
(%4f,%.4f)",h,k); p=.25; z1=%.4f+%.4fi",real,imag
inario);
gotoxy(20,26); d=k-p;
gotoxy(20,25);
printf(" su foco se gotoxy(20,25);
encuentra en printf(" z2=%.4f-
(%4f,%.4f)",h,f); printf(" su vertice se %.4fi",real,imaginario);
encuentra en
gotoxy(20,27); (%4f,%.4f)",h,k); h=-b/(2*a);
printf(" la ecuacion de la gotoxy(20,26); k=((4*a*c)-(b*b))/(4*a);
directriz es y=%.4f",d);
printf(" su foco se f=.25+k;
for(x1=-3;x1<=3;x1+=.5) encuentra en
(%4f,%.4f)",h,f); p=.25;
{
gotoxy(20,27); d=k-p;
y=(a*x1*x1)+(b*x1)+(c);
printf(" la ecuacion de la gotoxy(20,26);
printf("\n\t directriz es y=%.4f",d);
x=%.4f,y=%.4f",x1,y); printf(" su vertice se
for(x1=-3;x1<=3;x1+=.5) encuentra en
} (%4f,%.4f)",h,k);
{
} gotoxy(20,27);
y=(a*x1*x1)+(b*x1)+(c);
if(radical==0) printf(" su foco se
printf("\n\t encuentra en
{ x=%.4f,y=%.4f",x1,y); (%4f,%.4f)",h,f);
gotoxy(20,23); } gotoxy(20,28);
}
printf(" la ecuacion de la }
directriz es y=%.4f",d);
gotoxy(80,1);
for(x1=-3;x1<=3;x1+=.5)
#include<stdio.h> for(i=1;i<=44;i++)
{
#include<math.h> {
y=(a*x1*x1)+(b*x1)+(c);
#include<conio.h> gotoxy(80,i);
printf("\n\t
x=%.4f,y=%.4f",x1,y); main() printf("*");
} { }
} float gotoxy(1,44);
a,b,c,radical,x1,x2,imagin
getch(); ario,real,h,k,p,d,f,y; for(i=1;i<=80;i++)
return 0; int i; {
} for(i=1;i<=80;i++) gotoxy(i,44);
{ printf("*");
gotoxy(i,1); }
printf("*"); gotoxy(28,3);
} printf("Instituto
Politecnico Nacional");
gotoxy(1,12);
gotoxy(28,5);
for(i=1;i<=80;i++)
printf("ESIME
{ CULHUACAN");
gotoxy(i,12); gotoxy(28,7);
printf("*"); printf("Ingenieria
Mecanica");
}
gotoxy(28,9);
gotoxy(1,1);
printf("Grupo: 1MM3");
for(i=1;i<=44;i++)
gotoxy(28,11);
{
printf("Nombre: Gomez
gotoxy(1,i); Blanco Omar Agustin");
printf("*"); gotoxy(20,14);
printf(" ingrese los k=((4*a*c)-(b*b))/(4*a); printf(" los resultados de
coeficientes de su su ecuacion son x1=%.4f
parabola vertical"); f=.25+k; ",x1);
gotoxy(20,16); p=.25; h=-b/(2*a);
printf(" a="); d=k-p; k=((4*a*c)-(b*b))/(4*a);
scanf("%f",&a); gotoxy(20,25); f=.25+k;
gotoxy(20,18); printf(" su vertice se p=.25;
encuentra en
printf(" b="); (%4f,%.4f)",h,k); d=k-p;
scanf("%f",&b); gotoxy(20,26); gotoxy(20,25);
gotoxy(20,20); printf(" su foco se printf(" su vertice se
encuentra en encuentra en
printf(" c="); (%4f,%.4f)",h,f); (%4f,%.4f)",h,k);
scanf("%f",&c); gotoxy(20,27); gotoxy(20,26);
radical=(b*b)-(4*a*c); printf(" la ecuacion de la printf(" su foco se
directriz es y=%.4f",d); encuentra en
gotoxy(20,22);
(%4f,%.4f)",h,f);
printf(" su radical for(x1=-3;x1<=3;x1+=.5)
gotoxy(20,27);
es=%.4f",radical); {
printf(" la ecuacion de la
if(radical>0) y=(a*x1*x1)+(b*x1)+(c); directriz es y=%.4f",d);
{ printf("\n\t for(x1=-3;x1<=3;x1+=.5)
x=%.4f,y=%.4f",x1,y);
gotoxy(20,23);
{
printf(" su ecuacion tiene }
y=(a*x1*x1)+(b*x1)+(c);
dos resultados reales"); }
x1=(- printf("\n\t
if(radical==0) x=%.4f,y=%.4f",x1,y);
b+sqrt(radical))/(2*a);
{ }
x2=(-b-
sqrt(radical))/(2*a); gotoxy(20,23); }
gotoxy(20,24); printf(" su ecuacion tiene if(radical<0)
un resultado real");
printf(" los resultados de {
su ecuacion son x1=%.4f x1=(-
y x2=%.4f",x1,x2); b+sqrt(radical))/(2*a); gotoxy(20,23);
h=-b/(2*a); gotoxy(20,24);
printf(" su ecuacion tiene {
dos resultados
imaginarios"); y=(a*x1*x1)+(b*x1)+(c);
real=-b/(2*a); printf("\n\t
x=%.4f,y=%.4f",x1,y);
imaginario=(sqrt(fabs(ra
dical)))/(2*a); }
gotoxy(20,24); }
printf(" getch();
z1=%.4f+%.4fi",real,imag
return 0;
inario);
}
gotoxy(20,25);
printf(" z2=%.4f-
%.4fi",real,imaginario);
h=-b/(2*a);
k=((4*a*c)-(b*b))/(4*a);
f=.25+k;
p=.25;
d=k-p;
gotoxy(20,26);
printf(" su vertice se
encuentra en
(%4f,%.4f)",h,k);
gotoxy(20,27);
printf(" su foco se
encuentra en
(%4f,%.4f)",h,f);
gotoxy(20,28);
printf(" la ecuacion de la
directriz es y=%.4f",d);
for(x1=-3;x1<=3;x1+=.5)
