Foros del Web » Programación para mayores de 30 ;) » Programación General »

archivos externos en pascal

Estas en el tema de archivos externos en pascal en el foro de Programación General en Foros del Web. hola hice est codigo en pascal lo que debe hacer es que pida al usuario los datos de contactos y guardarlos en un vector y ...
  #1 (permalink)  
Antiguo 14/05/2011, 18:25
 
Fecha de Ingreso: abril-2011
Mensajes: 76
Antigüedad: 13 años, 7 meses
Puntos: 1
archivos externos en pascal

hola hice est codigo en pascal lo que debe hacer es que pida al usuario los datos de contactos y guardarlos en un vector y en documento externo llamado hhh
pueden decirme en que estoy mal?
program agenda;
uses
crt;
type
contactos=record
nombre:string[100];
direccion:string[255];
cel:string[255];
end;
lista = array [1..100] of contactos;
var
texto:char;
archivo:text;
i,f,c:integer;
decicion:char;
contacto:lista;
begin
assign(archivo,'hhh.txt');
reset(archivo);
repeat
clrscr;
writeln('que deseas hacer?');
writeln('1)agregar contactos 4)salir');
readln(decicion);
if decicion='1' then
begin
writeln('cuantos contactos usaras?');
readln(c);
for i:=1 to c do
begin
writeln('escribe el nombre del contacto ',i);
readln(contacto[i].nombre);
writeln('escribe la direccion ',i);
readln(contacto[i].direccion);
writeln('escribe el numero de celular ',i);
readln(contacto[i].cel);
end;
for i:=1 to c do
begin
write(archivo,contacto[i].nombre);
write(archivo,contacto[i].direccion);
write(archivo,contacto[i].cel);
end;
end;
until decicion='4';
close(archivo);
readln;
end.

Etiquetas: externos, pascal
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:49.