Diferencia entre revisiones de «Curso de Programación en C/Prog122»

De WikiCabal
Ir a la navegación Ir a la búsqueda
(Prog122)
 
(Sin diferencias)

Revisión actual del 19:11 6 jun 2014

Prog122

  1 #include <stdio.h>
  2 #include <stdlib.h>
  3 #include <string.h>
  4 
  5 #define MAXTITL   40
  6 #define MAXAUTL   40
  7 #define MAXVALL   12
  8 #define MAXLIBROS   100
  9 
 10 struct Libro {
 11     char Titulo[MAXTITL];
 12     char Autor[MAXAUTL];
 13     float Valor;
 14 };
 15 
 16 int main( void )
 17 {
 18   struct Libro Biblioteca[MAXLIBROS];
 19 
 20   int   Conteo = 0,
 21         ConteoDelArchivo,
 22         Index,
 23         NumPuntos,
 24         Tamano = sizeof( struct Libro ),
 25         i;
 26 
 27   char  ValSTR[MAXVALL];
 28 
 29   FILE * PLibros;
 30 
 31   if( ( PLibros = fopen( "Libros.dat", "a+b" ) ) == NULL )
 32   {
 33     fputs( "No puedo abrir Libros.dat\n", stderr );
 34     exit( 1 );
 35   }
 36 
 37   rewind( PLibros );
 38 
 39   while( Conteo < MAXLIBROS &&
 40          fread( &Biblioteca[Conteo], Tamano, 1, PLibros ) == 1 )
 41   {
 42     if( Conteo == 0 )
 43       puts( "Los contenidos de Libros.dat ahora:" );
 44     printf( "\t%s por %s: $%.2f\n", Biblioteca[Conteo].Titulo,
 45                                     Biblioteca[Conteo].Autor,
 46                                     Biblioteca[Conteo].Valor );
 47     Conteo++;
 48   }
 49 
 50   ConteoDelArchivo = Conteo;
 51 
 52   if( Conteo == MAXLIBROS )
 53   {
 54     fputs( "El archivo: Libros.dat está lleno.", stderr );
 55     fclose( PLibros );
 56     exit( 2 );
 57   }
 58 
 59   printf( "\nIngresa el nombre del libro: " );
 60   while( Conteo < MAXLIBROS )
 61   {
 62     if( fgets( Biblioteca[Conteo].Titulo, MAXTITL - 2, stdin ) &&
 63                Biblioteca[Conteo].Titulo[0] != '\n' )
 64     {
 65       if( *(Biblioteca[Conteo].Titulo +
 66             strlen( Biblioteca[Conteo].Titulo ) -1 ) != '\n' )
 67       {
 68         fprintf( stderr, "El titulo que entraste es demasiado largo.\n"
 69                 "Solo %d chars MAX\n", MAXTITL - 2 );
 70         fclose( PLibros );
 71         exit(1);
 72       }
 73 
 74       *(Biblioteca[Conteo].Titulo +
 75         strlen( Biblioteca[Conteo].Titulo ) -1 ) = '\0';
 76     }
 77     else
 78       break;
 79 
 80     printf( "Ingresa el nombre del autor: " );
 81     if( fgets( Biblioteca[Conteo].Autor, MAXAUTL - 2, stdin ) &&
 82                Biblioteca[Conteo].Autor[0] != '\n' )
 83     {
 84       if( *(Biblioteca[Conteo].Autor +
 85             strlen( Biblioteca[Conteo].Autor ) -1 ) != '\n' )
 86       {
 87         fprintf( stderr, "El autor que entraste es demasiado largo.\n"
 88                 "Solo %d chars MAX\n", MAXAUTL - 2 );
 89         fclose( PLibros );
 90         exit(1);
 91       }
 92 
 93       *(Biblioteca[Conteo].Autor +
 94         strlen( Biblioteca[Conteo].Autor ) -1 ) = '\0';
 95     }
 96     else
 97     {
 98       fprintf( stderr, "Falta el nombre del autor de \"%s\"\n",
 99                Biblioteca[Conteo].Titulo );
100       fclose( PLibros );
101       exit(1);
102     }
103 
104     NumPuntos = 0;
105     printf( "Ingresa el valor: " );
106     if( fgets( ValSTR, MAXVALL - 2, stdin ) && ValSTR[0] != '\n' )
107     {
108       if( *(ValSTR + strlen( ValSTR ) -1 ) != '\n' )
109       {
110         fprintf( stderr, "El valor que entraste es demasiado largo.\n"
111                 "Solo %d chars MAX\n", MAXVALL - 2 );
112         fclose( PLibros );
113         exit(1);
114       }
115 
116       *(ValSTR + strlen( ValSTR ) -1 ) = '\0';
117 
118       if( ValSTR[0] == '-' )
119       {
120         fputs( "No se permiten valores negativos.", stderr );
121         fclose( PLibros );
122         exit(1);
123       }
124 
125       for( i = 0; i < strlen( ValSTR ) - 1; i++ )
126       {
127         if( ValSTR[i] < '0' ||  ValSTR[i] > '9' )
128         {
129           if( ValSTR[i] == '.' )
130           {
131             if( ++NumPuntos > 1 )
132             {
133               fprintf( stderr, "Se permite solo 1 punto.\n" );
134               fclose( PLibros );
135               exit(1);
136             }
137 
138             if( strlen( ValSTR ) - i > 3 )
139             {
140               fputs( "Se permiten solo 2 decimales después del punto.", stderr );
141               fclose( PLibros );
142               exit(1);
143             }
144           }
145           else
146           {
147             fputs( "Caracteres ilegales en su valor.", stderr );
148             fclose( PLibros );
149             exit(1);
150           }
151         }
152       }
153 
154       Biblioteca[Conteo++].Valor = atof( ValSTR );
155     }
156     else
157     {
158       fprintf( stderr, "Falta el valor de \"%s\"\n", Biblioteca[Conteo].Titulo );
159       fclose( PLibros );
160       exit(1);
161     }
162 
163     if( Conteo < MAXLIBROS )
164       printf( "Ingresa el sigiuente titulo: (<Enter> para terminar): " );
165   }
166 
167   if (Conteo > 0)
168   {
169     puts( "\nAquí es la lista de sus libros:" );
170     for( Index = 0; Index < Conteo; Index++ )
171       printf( "\t\"%s\" por \"%s\": $%.2f\n", Biblioteca[Index].Titulo,
172                                               Biblioteca[Index].Autor,
173                                               Biblioteca[Index].Valor );
174     fwrite( &Biblioteca[ConteoDelArchivo], Tamano, Conteo - ConteoDelArchivo,
175                                                                    PLibros );
176   }
177   else
178     puts( "Lo siento pero no tengo libros nuevos para mostrar." );
179 
180   puts( "\n¡Adios!\n" );
181   fclose( PLibros );
182   return 0;
183 }

Resultado

[rrc@llawyr CClase]$ rm Libros.dat 
rm: remove regular file `Libros.dat'? y
[rrc@llawyr CClase]$ gcc -Wall -o Prog122 Prog122.c
[rrc@llawyr CClase]$ ./Prog122

Ingresa el nombre del libro: 
Lo siento pero no tengo libros nuevos para mostrar.

¡Adios!

[rrc@llawyr CClase]$ ./Prog122

Ingresa el nombre del libro: Libro Uno
Ingresa el nombre del autor: Autor uno
Ingresa el valor: Valor 1
Caracteres ilegales en su valor.
[rrc@llawyr CClase]$ ./Prog122

Ingresa el nombre del libro: Libro Uno
Ingresa el nombre del autor: Autor Uno
Ingresa el valor: 13.55
Ingresa el siguiente titulo: (<Enter> para terminar): Libro Dos
Ingresa el nombre del autor: Autor 2
Ingresa el valor: 52.66
Ingresa el siguiente titulo: (<Enter> para terminar): 

Aquí esta la lista de sus libros:
	"Libro Uno" por "Autor Uno": $13.55
	"Libro Dos" por "Autor 2": $52.66

¡Adios!

[rrc@llawyr CClase]$ ./Prog122
Los contenidos de Libros.dat ahora:
	Libro Uno por Autor Uno: $13.55
	Libro Dos por Autor 2: $52.66

Ingresa el nombre del libro: Libro Tres
Ingresa el nombre del autor: Autor Tres
Ingresa el valor: 62.88
Ingresa el siguiente titulo: (<Enter> para terminar): Libro Cuatro
Ingresa el nombre del autor: Autor Cuatro
Ingresa el valor: 62.44
Ingresa el siguiente titulo: (<Enter> para terminar): 

Aquí esta la lista de sus libros:
	"Libro Uno" por "Autor Uno": $13.55
	"Libro Dos" por "Autor 2": $52.66
	"Libro Tres" por "Autor Tres": $62.88
	"Libro Cuatro" por "Autor Cuatro": $62.44

¡Adios!

[rrc@llawyr CClase]$ ./Prog122
Los contenidos de Libros.dat ahora:
	Libro Uno por Autor Uno: $13.55
	Libro Dos por Autor 2: $52.66
	Libro Tres por Autor Tres: $62.88
	Libro Cuatro por Autor Cuatro: $62.44

Ingresa el nombre del libro: 

Aquí esta la lista de sus libros:
	"Libro Uno" por "Autor Uno": $13.55
	"Libro Dos" por "Autor 2": $52.66
	"Libro Tres" por "Autor Tres": $62.88
	"Libro Cuatro" por "Autor Cuatro": $62.44

¡Adios!

[rrc@llawyr CClase]$ 

Explicación