Pascal/Turbo Pascal - Ayuda con registros

   
Vista:

Ayuda con registros

Publicado por Eric (1 intervención) el 30/09/2017 01:26:20
Hola, me estoy volviendo loco con este problema, necesito registrar atletas en un archivo, estoy usando dev-pascal 1.9.2 . Este codigo me funciona si lo compilo pero cuando ingreso el nombre y apellido del atleta el programa se cierra y no tengo idea de que hize mal.


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
uses crt;
 
TYPE
 
Atletas = record
        dni : string[8];
        nombreApellido : string[40];
end;
 
VAR
 
atl : file of Atletas;
regatl : Atletas;
 
 
begin
Assign(atl,'atletas.dat');
rewrite(atl);
reset(atl);
writeln('Ingrese nombre y apellido de atleta:   ');
read(regatl.nombreApellido);
writeln('Ingrese DNI de atleta:   ');
read(regatl.dni);
seek (atl,filesize(atl));
write(atl,regatl);
close(atl);
 
end.
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 registros

Publicado por dario alderaan@ec-red.com (30 intervenciones) el 30/09/2017 06:15:47
Hola, prueba cambiando los writelin por write y los read por readln.
Saludos.
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