Pascal/Turbo Pascal - Otro Ejercicio

   
Vista:

Otro Ejercicio

Publicado por Juan (83 intervenciones) el 09/09/2007 23:05:56
Acá tengo otro ejercicio, se crea un archivo con datos de alumnos(Alumnos) y despues se muestra su contenido, y a su vez se graba su contenido en otro archivo(Nue).


Program CreacionDeArchivos;

Uses crt;

Type
Str25=String[25];

RegAlu=Record
Nleg:Longint;
CodMat:Longint;
DiaEx:Byte;
MesEx:Byte;
AnioEx:Word;
NyAp:Str25
end;

ArchAlu=File of RegAlu;

Procedure Crear(Var Alumnos,Nue:ArchAlu);

Begin
Assign(Alumnos,'Alumnos.dat');
rewrite(Alumnos);
Assign(Nue,'Nuevo.dat');
rewrite(Nue)
end;

Procedure ObtenerDatos(Var Alumnos:ArchAlu;Var Ralumnos:RegAlu);

Begin
writeln('Nro.de Legajo: ');
readln(Ralumnos.Nleg);
writeln('Código de Materia: ');
readln(Ralumnos.CodMat);
writeln('Día del exámen: ');
readln(Ralumnos.DiaEx);
writeln('Mes del exámen: ');
readln(Ralumnos.MesEx);
writeln('Año del exámen: ');
readln(Ralumnos.AnioEx);
writeln('Nombre y Apellido: ');
readln(Ralumnos.NyAp);
write(Alumnos,Ralumnos)
end;

Procedure MostraryGuardar(Var Alumnos,Nue:ArchAlu;Ralumnos:RegAlu;Var Rnue:RegAlu);

Begin
read(Alumnos,Ralumnos);
writeln('Nro.de Legajo: ',Ralumnos.Nleg);
writeln('Código de Materia: ',Ralumnos.CodMat);
writeln('Día del exámen: ',Ralumnos.DiaEx);
writeln('Mes del exámen: ',Ralumnos.MesEx);
writeln('Año del exámen: ',Ralumnos.AnioEx);
writeln('Nombre y Apellido: ',Ralumnos.NyAp);
readkey;
write(Nue,Rnue)
end;

Var Alumnos,Nue:ArchAlu;
Ralumnos,Rnue:RegAlu;

Begin
Crear(Alumnos,Nue);
while not eof(Alumnos) do
ObtenerDatos(Alumnos,Ralumnos);
reset(alumnos);
while not eof(Alumnos) do
MostraryGuardar(Alumnos,Nue,Ralumnos,Rnue);
close(Alumnos);
close(Nue)

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

RE:Otro Ejercicio

Publicado por juan (83 intervenciones) el 09/09/2007 23:07:44
La cosa es que compila pero sale instantáneamente, no se porque, un saludo
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