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 = recorddni : 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
0
