Pascal/Turbo Pascal - ayuda con freepascal

   
Vista:

ayuda con freepascal

Publicado por milagros (1 intervención) el 10/12/2013 15:30:33
Saludos a todos!
necesito de su colaboración para culminar un programa en pascal para la universidad la primera parte ya la hice, se trata de un programa con manejos de archivos, que matricule a los alumnos en las diferente asignaturas de la carrera ing. industrial. el programa debe mostrar un menú de opciones que permita:
1.- Crear una archivo "estud.dat" con los datos de un estudiante (nombre, apellido, fecha de nacimiento, cédula, sexo).
2.- Agregar los datos de un nuevo estudiante.
3.- mostrar los datos de un estudiante en particular, buscar por cédula.
4.- modificar los datos de un estudiante, buscar por cédula.
5.- eliminar el registro del estudiante.
6.- listar asignaturas.(A partir de este paso necesito ayuda)
7.-asignar estudiantes a las asignaturas (validar que no se registre el mismo estudiante varias veces en la misma asignatura)
8.- listar estudiantes de una asignatura en particular.
9.- listar todos los estudiantes de la carrera.

NOTA: las materias poseen códigos que las identifican.

De verdad espero de su colaboración. Gracias
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

ayuda con freepascal

Publicado por ramon (2072 intervenciones) el 13/12/2013 13:28:49
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
{Espero esto te sirva}
 
 program estudiante;
  uses
     crt;
  const
     asignaturas : array[1..6] of string[40] = (
     'asig1','asig2','asig3','asig4','asig5','asig6');
     archiasig = 'regasign.dat';
 
  type
    asigna = record
           cedula : longint;
           nombre : string[80];
         apellido : string[80];
       asignatura : string[40];
         end;
 
   var
     asig : asigna;
     fs   : file of asigna;
 
   function existearchivo : boolean;
   begin
       assign(fs,archiasig);
     {$I-} reset(fs); {$I+}
      if ioresult <> 0 then
      begin
          existearchivo := false;
      end
    else
       begin
         existearchivo := true;
         close(fs);
       end;
   end;
 
   procedure guardaasignatura(as : asigna);
   begin
      assign(fs,archiasig);
   {$I-} reset(fs); {$I+}
   if ioresult <> 0 then
   begin
      rewrite(fs);
      seek(fs,0);
      write(fs,as);
      close(fs);
   end
 else
    begin
      seek(fs,filesize(fs));
      write(fs,as);
      close(fs);
    end;
  end;
 
  function abreasignatura : boolean;
  begin
      assign(fs,archiasig);
     {$I-} reset(fs); {$I+}
     if ioresult <> 0 then
     begin
       abreasignatura := false;
     end
   else
      begin
        abreasignatura := true;
      end;
  end;
 
  function existecedula(c : longint) : boolean;
  var
    cont : longint;
    esta : boolean;
  begin
     esta := false;
     if abreasignatura = true then
     begin
        for cont := 0 to filesize(fs) - 1 do
        begin
           seek(fs,cont);
           read(fs,asig);
           if asig.cedula = c then
           begin
              esta := true;
              break;
           end;
        end;
        existecedula := esta;
        close(fs);
     end
   else
      begin
         writeln('  Error De Archivo Pulse Una Tecla');
         existecedula := true;
         readkey;
      end;
  end;
 
  procedure entraasignatura;
  var
    tec : char;
    cedu : longint;
    s : integer;
  begin
      clrscr;
      writeln('***** Entrada De Asignatura ******');
      writeln;
      write('  Entre Cedula : ');
      readln(cedu);
      if existearchivo = true then
      begin
         if existecedula(cedu) = false then
         begin
            asig.cedula := cedu;
            write('  Entre Nombre : ');
            readln(asig.nombre);
            write('  Entre Apellido : ');
            readln(asig.apellido);
            write(' ');
            for s := 1 to 6 do
            write(asignaturas[s],' / ');
            writeln;
            write(' Elija Asignatura [1/2/3/4/5/6]');
            repeat
                tec := readkey;
            until tec in['1','2','3','4','5','6'];
            asig.asignatura := asignaturas[ord(tec) - 48];
            guardaasignatura(asig);
         end
      else
         begin
            writeln(' Ya Existe Cedula Asignada Pulse Una Tecla');
            readkey;
         end;
      end
    else
       begin
            asig.cedula := cedu;
            write('  Entre Nombre : ');
            readln(asig.nombre);
            write('  Entre Apellido : ');
            readln(asig.apellido);
            write(' ');
            for s := 1 to 6 do
            write(asignaturas[s],' / ');
            writeln;
            write(' Elija Asignatura [1/2/3/4/5/6]');
            repeat
                tec := readkey;
            until tec in['1','2','3','4','5','6'];
            asig.asignatura := asignaturas[ord(tec) - 48];
            guardaasignatura(asig);
       end;
  end;
 
  procedure lintaestudiantes(a : string);
  var
    st : longint;
    cc : integer;
  begin
      clrscr;
      if abreasignatura = true then
      begin
      cc := 1;
      writeln(' Cedula    Nombre        Apellido          Asignatura');
      for st := 0 to filesize(fs) - 1 do
      begin
         seek(fs,st);
         read(fs,asig);
         if asig.asignatura = a then
         begin
         writeln(' ',asig.cedula,'        ',asig.nombre,'         ',
         asig.apellido,'         ',asig.asignatura);
         cc := cc + 1;
         if cc > 22 then
         begin
           cc := 1;
           writeln;
           writeln('  Pulse Una Tecla Para Segir');
           readkey;
           clrscr;
           writeln(' Cedula    Nombre        Apellido          Asignatura');
         end;
       end;
      end;
       close(fs);
       writeln;
       writeln('  Fin De Datos Pulse Una Tecla');
       readkey;
    end
  else
     begin
        writeln('  Error De Archivo Pulse Una Tecla');
        readkey;
     end;
  end;
 
  procedure listatodos;
  var
    as : longint;
    vc : integer;
   begin
      clrscr;
      if abreasignatura = true then
      begin
      vc := 1;
      writeln(' Cedula    Nombre        Apellido          Asignatura');
      for as := 0 to filesize(fs) - 1 do
      begin
         seek(fs,as);
         read(fs,asig);
         writeln(' ',asig.cedula,'        ',asig.nombre,'         ',
         asig.apellido,'         ',asig.asignatura);
         vc := vc + 1;
         if vc > 22 then
         begin
           vc := 1;
           writeln;
           writeln('  Pulse Una Tecla Para Segir');
           readkey;
           clrscr;
           writeln(' Cedula    Nombre        Apellido          Asignatura');
         end;
       end;
          close(fs);
          writeln;
          writeln('  Fin De Datos Pulse Una Tecla');
          readkey;
      end
    else
       begin
          writeln('  Error De Archivo Pulse Una Tecla');
          readkey;
       end;
      end;
 
  procedure menu;
  var
    sal : boolean;
    ted : char;
    t : integer;
    ash : string[40];
  begin
     sal := false;
    repeat
       clrscr;
       writeln('***** Menu General *****');
       writeln;
       writeln('   1 = Entrada Asignaturas');
       writeln('   2 = Mostrar Estudiantes Por Asignatura');
       writeln('   3 = Mostrar Todos');
       writeln('   4 = Salir');
       writeln;
       writeln('<<< Elija Opcion >>>');
       repeat
         ted := readkey;
       until ted in['1','2','3','4'];
       clrscr;
     case ted of
  '1' : entraasignatura;
  '2' : begin
        for t := 1 to 6 do
        write('  ',asignaturas[t]);
        writeln;
        write('  Entre Asignatura : ');
        readln(ash);
        lintaestudiantes(ash);
        end;
  '3' : listatodos;
  '4' : sal := true;
     end;
    until sal = true;
  end;
 
 
  begin
     menu;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ayuda con freepascal

Publicado por Diego (11 intervenciones) el 13/12/2013 22:15:07
perdon por desvirtuar, ramon hay alguna forma de mandarte un mensaje privado??
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

ayuda con freepascal

Publicado por ramon (2072 intervenciones) el 14/12/2013 11:04:03
Lo siento pero si deseas alguna información de pascal de veras pasarla por esta sección en la cual te responderé
siempre y cuando yo lo sepa y te pueda ayudar con he yo.
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