CODIGO DE BLOC DE NOTAS
Enviado por AIBDA • 8 de Septiembre de 2019 • Apuntes • 560 Palabras (3 Páginas) • 125 Visitas
“CODIGO BLOC DE NOTAS”
#include
#include
int main (void);
int main (void)
{
FILE *fpInput, *fpOutput;
int a,b,c, D, n=1;
float r1,r2;
fpInput = fopen ("PROBLEMAS.TXT", “rt"); // 1) abrir archivo lectura
fpOutput = fopen ("RESULTADOS.TXT", "wt"); // 1) abrir arch escritura
while (!feof(fpInput)){
fscanf (fpInput, "%d", &a); // 2) hacer la operacion lectura
fscanf (fpInput, "%d", &b); // 2) hacer la operacion lectura
fscanf (fpInput, "%d", &c); // 2) hacer la operacion lectura
fprintf (fpOutput, "%02d)\na=%d, b=%d, c=%d\n", n,a,b,c);
// CALCULO DE LAS RAICES
D = b*b - 4*a*c;
if (D<0){
r1 = -b / (2*a);
r2 = sqrt (-D) / (2*a);
fprintf (fpOutput, "r1=%f+%fj\tr2=%f-%fj\n\n", r1,r2,r1,r2);
}
else{
r1 = (-b + sqrt (D)) / (2*a);
r2 = (-b – sqrt (D)) / (2*a);
fprintf (fpOutput, "r1=%f\tr2=%f\n\n", r1,r2);
}
n++;
// CALCULO DE LA DESCRIMINANTE
D = b*b - 4*a*c;
if (D==0.0){
D= (-b)/ (2*a);
fprintf (fpOutput, "\t\t La raiz es igual\t\n%d");
}
else{
if (D>0){
D= (-b)/ (2*a);
fprintf (fpOutput, "\t\tLa raiz es Diferente\n%d");
}
else{
if (D<0){
fprintf (fpOutput, "\tLa raiz es Compleja\n%d");
}
}
}
}
fclose (fpInput); // 3) cerrar arch lectura
fclose (fpOutput); // 3) cerrar arch escritura
}/*-----------------------------------------------------------------*/
[pic 1]
[pic 2][pic 3]
...