Pascal/Turbo Pascal - Generar archivos

   
Vista:

Generar archivos

Publicado por eli (3 intervenciones) el 20/11/2012 00:10:35
Hola necesito ayuda para generar un archivo de una biblioteca informando su sistema de inventario de libros, socios y préstamos...
Los libros cuenta con los siguientes datos: número de libro, título, autor/es, editorial, edición, código de tema y estado.
El número de libro es correlativo en forma ascendente desde el número 1.
Los códigos de tema están relacionados con el área al que pertenece el libro:
1 – matemática
2 – lengua y literatura
3 – ciencias sociales
4 – idiomas extranjeros
5 – informática
6 – arte y cultura
7 – pedagogía y didáctica
8 - otros
Estado, será activo si esta en uso, o pasivo si se dio de baja su uso.
Para los socios se cuenta con los siguientes datos: número de socio, apellido, nombres, domicilio, localidad, código postal, teléfono, correo electrónico.
Para los préstamos, se registran los siguientes datos: número de socio, número de libro, fecha de préstamo, devolución (si/no). cada socio puede tener solo 2 libros en prestamo.
Listados, debe genera un listado para visualizar todos los libros existentes (indicando el total de libros y fecha actual), y un listado para visualizar todos los libros existentes de un código de tema especificado...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Generar archivos

Publicado por ramon (2072 intervenciones) el 20/11/2012 19:26:29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
{A ver te muestro este proceso a ver  si te vale así y procesar el resto con arreglo a ello }
 
 program biblioteca;
 uses
    crt;
  const
  area : array[1..8] of string[22] = (
'matematica','lengua y literatura','ciencias sociales','idiomas extranjeros',
'informatica','arte y cultura','pedagogia y didactica','otros');
 
  type
    libros = record
           nlibro : integer;
           titulo : string[80];
           autors : string[80];
        editorial : string[80];
          edicion : string[12];
       codigotema : integer;
           estado : boolean;
         end;
 
    socios = record
           nsocio : integer;
         apellido : string[80];
          nombres : string[80];
        domicilio : string[80];
        localidad : string[80];
     codigopostal : word;
         telefono : word;
    correoelectro : string[110];
           end;
 
     prestamos = record
              nsocio : integer;
              nlibro : array[1..2] of integer;
       fechaprestamo : array[1..2] of string[12];
          devolucion : array[1..2] of boolean;
            end;
 
     var
       f : file of libros;
      f1 : file of socios;
      f2 : file of prestamos;
    soci : socios;
    libe : libros;
    pres : prestamos;
    cont : longint;
 
 
   procedure entralibros;
   begin
 
   end;
 
   procedure entrasocio;
   begin
 
   end;
 
   procedure entraprestamo;
   begin
 
   end;
 
   procedure listado_libros_existentes;
   begin
 
   end;
 
   procedure listado_libros_existentes_codigo_tema_especificado;
   begin
 
   end;
 
 
  begin
 
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar archivos

Publicado por eli (3 intervenciones) el 27/11/2012 04:22:18
me salta el error 27 en el primer "end;"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar archivos

Publicado por ramon (2072 intervenciones) el 27/11/2012 17:35:45
Disculpa pero no comprendo lo que dices el programa tal y como esta no hace nada solo
asigna unos registros como tu pones pero no ejecuta nada me puedes decir como es que
te sale un error estarás trabajando con pascal no.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar archivos

Publicado por eli (3 intervenciones) el 28/11/2012 05:02:22
sisi, es un archivo para pascal...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar archivos

Publicado por ramon (2072 intervenciones) el 28/11/2012 21:22:43
Entonces funcionara sin mas puesto que esta probado sobre pascal 7.0 y window 7.
Las estructuras de registros están bien así lo digo para seguirte ayudando con el ejercicio.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar