Pascal archivo
Enviado por Gero Antony Gabriel LH Rocha • 28 de Noviembre de 2018 • Apuntes • 483 Palabras (2 Páginas) • 81 Visitas
program tp18ej1;
uses crt;
type
Alumno = record
curso: integer;
legajo: integer;
nya: String;
aportes: integer;
end;
Alumnos = file of Alumno;
Aporte = record
curso: integer;
legajo: integer;
monto: integer;
end;
Aportes = file of Aporte;
procedure cargarAlumnos(var f:Alumnos);
var
k: char;
registro: Alumno;
begin
reset(f);
writeLN('Desea ingresar otro alumno? ');
k:= readkey;
while(upcase(k)='S') do
begin
write('Ingrese curso: ');
readln(registro.curso);
write('Ingrese legajo: ');
readln(registro.legajo);
write('Ingrese nombre y apellido: ');
readln(registro.nya);
registro.aportes:=0;
write(f, registro);
writeLN('Desea ingresar otro alumno? ');
k:= readkey;
end;
close(f);
end;
procedure cargarAportes(var f:Aportes);
var
k: char;
registro: Aporte;
begin
reset(f);
write('Desea ingresar otro aporte? ');
k:= readkey;
while(upcase(k)='S') do
begin
write('Ingrese curso: ');
readln(registro.curso);
write('Ingrese legajo: ');
readln(registro.legajo);
write('Ingrese monto: ');
readln(registro.monto);
write(f, registro);
write('Desea ingresar otro aporte? ');
k:= readkey;
end;
close(f);
end;
procedure crearAlumnos(var f:Alumnos);
begin
{$I-}
reset(f);
if(IOResult <>0)then
begin
rewrite(f);
end;
close(f);
{$I+}
writeln('Proceso de creacion de archivo alumnos finalizado.');
end;
procedure crearAportes(var f:Aportes);
begin
{$I-}
reset(f);
if(IOResult <>0)then
begin
rewrite(f);
end;
close(f);
{$I+}
writeln('Proceso de creacion de archivo de aportes finalizado.');
end;
procedure visualizarAlumnos(var f: Alumnos);
var
registro:Alumno;
begin
reset(f);
while(not eof(f)) do
begin
read(f,registro);
write(registro.curso);
write(' ',registro.legajo);
write(' ',registro.nya);
writeln(' ',registro.aportes);
end;
close(f);
end;
procedure visualizarAportes(var f: Aportes);
var
registro:Aporte;
begin
reset(f);
while(not eof(f)) do
begin
read(f,registro);
write(' ',registro.curso);
write(' ',registro.legajo);
writeln(' ',registro.monto);
end;
close(f);
end;
procedure asignarArchivoAlumno(var archivo:Alumnos);
begin
assign(archivo,'Alumnos.dat');
end;
procedure actualizarAlumnos(var f: Alumnos; var g: Aportes);
var
archivoNuevoAlumnos: Alumnos;
registroAporte:
...