Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayuda con archivos en dev pascal

Pascal/Turbo Pascal - Ayuda con archivos en dev pascal

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con archivos en dev pascal

Publicado por Bernardo (1 intervención) el 12/11/2014 23:17:31
Hola, tengo lo siguiente


type alumno = record nro:integer;
nombre : char;
nota: integer
End;

escuela = file of alumno

y en la declaracion de variables tengo

var aux : alumno (osea a esa variable le asigna el registro)


Lo que me confunde es cuando aparece read (alumno, aux);

No se si eso lo que hace es leer todo el registro leer una parte del registro pedir ingresar un numero un nombre y un numero

ACLARO que anterior mente no se hiso ninguna asignacion al registro solamente dice eso y luego empieza a cargar datos al registro


y ya que esta hago otra consulta mas

tengo lo siguiente: aux. nro : 3

Lo unico que me confunde a es a que hace referencia ese ':' y que funcion cumple !!

Si me dan una mano se los agraderecia ! saludos !
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 archivos en dev pascal

Publicado por ramon (2158 intervenciones) el 13/11/2014 21:34:03
Mira esto .

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
type
     alumno = record
            nro : integer;
         nombre : string[80];
           nota : integer;  {siempre y cuando no sea con decimales sino sera real}
         End;
 
 
  var
    aux : alumno;
    escuela : file of alumno;
 
 
   procedure guarda_en_disco(d : alumno);
   begin
      assign(escuela,'Alumnos.dat');
  {$I-} reset(escuela); {$I+}
   if ioresult <> 0 then
   begin
      seek(escuela,0);
      write(escuela,d);
      close(escuela);
   end
 else
    begin
       seek(escuela,filesize(escuela));
       write(escuela,d);
       close(escuela);
    end;
   end;
 
   procedure entrada_datos;
   begin
      write('   Entre numero : ');
      readln(aux.nro);
      write('   Entre nombre : ');
      readln(aux.nombre);
      write('   Entre nota   : ');
      readln(aux.nota);
      guarda_en_disco(aux);
   end;
 
   {Esto mismo podria ser asi}
 
  procedure entrada_datos;
   begin
      with aux do
      begin
      write('   Entre numero : ');
      readln(nro);
      write('   Entre nombre : ');
      readln(nombre);
      write('   Entre nota   : ');
      readln(nota);
    end;
      guarda_en_disco(aux);
   end;

Esto seria la forma de entrar datos al registro lojica mente cada vez seria unos datos diferentes y luego mira la forma de ingresarlos en el archivo.
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