Hola aqui les dejo una parte de la agenda que estoy haciendo:
program Untitled;
uses
crt;
type
Persona=
record
Nombre:string[10];
Telefono:string[10];
end;
var
option:integer;
Friend:Persona;
Fichero:file of Persona;
nameFile:string;
buscado:integer;
adato:Persona;
begin
repeat
//Menu
clrscr;
nameFile:='c:\AGENDA.txt';
writeln('1) Agregar persona');
writeln('2) Buscar persona');
writeln('3) Salir de agenda');
//Validar opcion
repeat
writeln('Elige opcion:');
readln(option);
until (option>0) and (option<=3);
case option of
1:
begin
writeln('AGREGANDO PERSONA');
writeln('INGRESA NOMBRE:');
readln(Friend.Nombre);
writeln('INGRESA TELEFONO:');
readln(Friend.Telefono);
Assign(Fichero,nameFile);
Reset(Fichero);
Write(Fichero,Friend);
Close(Fichero);
end;
2:
begin
writeln('BUSCANDO');
readln(buscado);
Assign(Fichero,nameFile);
reset(Fichero);
seek( fichero, buscado );
read(fichero,adato);
writeln('Nombre:',adato.Nombre);
writeln('Telefono:',adato.Telefono);
close(Fichero);
end;
3:writeln('Seleccionaste salir')
end;
readln();
until option=3;
end.
Un saludo
El que quiera, lo puede ir mejorando. Faltan muchas cosas.
Un Saludo!
buenas noches te envie una mensaje privado por favor revisalo y hablamos mediante msm priv o por aqui
Dependiendo del compilador, el procedimiento readln con argumentos vacíos puede fallar, en fp funciona correctamente.