Ayuda por fa!!!
Publicado por Ayudenme por fa. (2 intervenciones) el 05/12/2001 03:25:36
typedef struct{
double re, im;
} complejo;
void CrearComplejo(double preal, double pimag, complejo *z1){
z1 -> re = preal;
z1 -> im = pimag;
}
double ObtenerPReal(complejo z){
return z.re;
}
double ObtenerPImag(complejo z){
return z.im;
}
int main(){
FILE *fent, *fsal;
complejo z1 , z2 , z3;
double r1 , r2 , r3 , r4 , r5 , r6;
if (!(fent = fopen("datos.txt" , "rt")){
fprintf(stderr , "Imposible abrir datos.txt");
return 1;
}
if (!(fsal = fopen("result.txt" , "wt")){
fprintf(stderr , "Imposible abrir result.txt");
return 1;
}
while (!feof(fent))
if (fscanf(fent , "%f %f %f %f" , &r1 , &r2 , &r3 , &r4)){
fprintf(fout , "%f %f %f %f" , &r1 , &r2 , &r3 , &r4);
CrearComplejo(r1 , r2 , &z1);
CrearComplejo(r3 , r4 , &z2);
SumadeComplejos(z1 , z2 , &z3);
r5 = ObtenerPReal(z3);
r6 = ObtenerPImag(z3);
fprintf(fsal , "%f %f" , &r5 , r6);
ProductodeComplejos(z1 , z2 , &z3);
r5 = ObtenerPReal(z3);
r6 = ObtenerPImag(z3);
fprintf(fsal , "%f %f" , &r5 , r6);
RestadeComplejos(z1 , z2 , &z3);
r5 = Obtene
double re, im;
} complejo;
void CrearComplejo(double preal, double pimag, complejo *z1){
z1 -> re = preal;
z1 -> im = pimag;
}
double ObtenerPReal(complejo z){
return z.re;
}
double ObtenerPImag(complejo z){
return z.im;
}
int main(){
FILE *fent, *fsal;
complejo z1 , z2 , z3;
double r1 , r2 , r3 , r4 , r5 , r6;
if (!(fent = fopen("datos.txt" , "rt")){
fprintf(stderr , "Imposible abrir datos.txt");
return 1;
}
if (!(fsal = fopen("result.txt" , "wt")){
fprintf(stderr , "Imposible abrir result.txt");
return 1;
}
while (!feof(fent))
if (fscanf(fent , "%f %f %f %f" , &r1 , &r2 , &r3 , &r4)){
fprintf(fout , "%f %f %f %f" , &r1 , &r2 , &r3 , &r4);
CrearComplejo(r1 , r2 , &z1);
CrearComplejo(r3 , r4 , &z2);
SumadeComplejos(z1 , z2 , &z3);
r5 = ObtenerPReal(z3);
r6 = ObtenerPImag(z3);
fprintf(fsal , "%f %f" , &r5 , r6);
ProductodeComplejos(z1 , z2 , &z3);
r5 = ObtenerPReal(z3);
r6 = ObtenerPImag(z3);
fprintf(fsal , "%f %f" , &r5 , r6);
RestadeComplejos(z1 , z2 , &z3);
r5 = Obtene
Valora esta pregunta


0