ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Pascal archivo


Enviado por   •  28 de Noviembre de 2018  •  Apuntes  •  483 Palabras (2 Páginas)  •  81 Visitas

Página 1 de 2

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:

...

Descargar como (para miembros actualizados)  txt (8.5 Kb)   pdf (49.3 Kb)   docx (17.1 Kb)  
Leer 1 página más »
Disponible sólo en Clubensayos.com