primero saludos a todos, y felicitaciones porque esta muy bueno el foro.
bueno voy a grano. no tengo mucha idea y estoy empesando a practicar programacion en turbo pascal, estoy tratando de hacer una agenda, media precaria por ahora pero bue
. necesito ayuda cuando compilo el programita me tira un error en el primer procedimiento y no me puedo dar cuenta cual es el problma
. no me cabe duda q sea una pavada
, porque empese hace un tiempito nomas
.
bueno ak les dejo el codigo para q lo miren, aver si me pueden dar una ayudita por favor. bueno desde ya les agradesco. chau muchas gracias.
program agenda1;
uses crt;
const nombrearchivo='agenda.dat';
type
tagenda = record
nombre:string;
apellido:string;
telefono:integer;
end;
tarchivo=file of tagenda;
var
agenda:tarchivo;
(************FUNCION Q ME DICE SI EXISTE NOMBRE EN EL REGISTRO*****************)
function existe_nombre(var archivo:tarchivo; temporal:tagenda):boolean;
var aux:tagenda;
begin
reset(archivo);
while not eof(archivo) do
begin
read(archivo,aux);
if (temporal.nombre = aux.nombre) then
begin
existe_nombre:=true;
exit;
end
else
existe_nombre:=false;
close(archivo);
end;
(**************************CARGARA LOS DATOS EN EL ARCHIVO*********************)
procedure cargar(var archivo:tarchivo);
var temporal:tagenda;
begin
reset(archivo);
write('ingrese nombre completo : '); readln(temporal.nombre);
write('ingrese apellido : '); readln(temporal.apellido);
write('ingrese telefono : '); readln(temporal.telefono);
if not existe_nombre(archivo,temporal) then write(archivo,temporal); //sino existe se cargan los datos
else
begin
writeln('el nombre q esta ingresando ya existe ');
cargar(archivo); //si existe el nombre, se llama al procedimiento nuevamente
end;
close(archivo);
end;
Mostrar Mensajes
