Pascal/Turbo Pascal - Como evito perder datos

   
Vista:

Como evito perder datos

Publicado por Jonatán (2 intervenciones) el 05/05/2013 20:56:24
Hola,
hace poco que comencé con esto de la programación y tengo una consulta a la cual todavia no he encontrado la respuesta.
Supongamos que hago un programa en el que tenga que ingresar datos de alumnos de un curso y a medida que se realizan parciales hay que ir agregándo las notas al alumno correspondiente. Entonces, con lo que hasta ahora he aprendido, yo hago el programa un día y cargo los nombres de todos los alumnos. Luego, supongamos que el día siguiente tengo algunas notas, y una semana después tengo otras notas para agregar. ¿ Cómo hago para no perder los datos previos que cargué en el programa, como los datos de los alumnos, notas ya ingresadas, etc. ?
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

Como evito perder datos

Publicado por ramon (2072 intervenciones) el 05/05/2013 22:37:06
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
{Mira esto}
 
 program guarda;
  uses
     crt;
  type
    regnotas = record
                fecha : string[12];
                nota  : real;
              end;
 
    regestudiante = record
               nombre : string[80];
               codigo : longint;
               notas  : regnotas;
             end;
 
   const
       archivo = 'datosca.dat';
 
   var
      estud : regestudiante;
      f : file of regestudiante;
 
 
  procedure entradas;
  begin
     clrscr;
     write('  Entre Nombre : ');
     readln(estud.nombre);
     write('  Entre Codigo : ');
     readln(estud.codigo);
     write('  Entre Fecha : ');
     readln(estud.notas.fecha);
     write('  Entre Nota : ');
     readln(estud.notas.nota);
     assign(f,archivo);
   {$I-} reset(f); {$I+}
   if ioresult <> 0 then
   begin
       rewrite(f);
       seek(f,0);
       write(f,estud);
       close(f);
   end
  else
     begin
        seek(f,filesize(f));
        write(f,estud);
        close(f);
     end;
   end;
 
   procedure carganotas;
   var
     n : longint;
   begin
      assign(f,archivo);
   {$I-} reset(f); {$I+}
   if ioresult <> 0 then
   begin
       writeln('Error de archivo pulse enter');
       readln;
       halt(1);
   end;
      for n := 0 to filesize(f) - 1 do
      begin
      seek(f,n);
      read(f,estud);
      writeln(estud.nombre,'    ',estud.codigo);
      end;
      close(f);
   end;
 
 
 
  begin
      entradas;
      clrscr;
      carganotas;
      readkey;
  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

Como evito perder datos

Publicado por Jonatán (2 intervenciones) el 06/05/2013 05:11:28
O sea que, para evitar perder los datos que cargo en un programa debo trabajar con archivos.

Todavía no llegué a esa teoría :( pero ya voy a comprender mucho mejor las funciones que se utilizan y cómo se utilizan.

Muchas gracias Ramon por preocuparte en ayudarme. Como mencioné en otro comentario, hace muy poco comencé a formar parte de este gran grupo de programadores y cualquier ayuda (comentario) va a ser muy productivo.
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