Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » exitcode=2 error

Pascal/Turbo Pascal - exitcode=2 error

Volver
Nuevo Tema
<<>>
 
Vista:

exitcode=2 error

Publicado por lucas (4 intervenciones) el 23/11/2012 00:43:40
Tengo un archivo en disco D:\agenda.txt que contiene los siguiente datos, cuando lo compilo me sale error de exitcode=2 , creo que el problema esta en el while ayuda porfavor

1
milano
jorge
1612133
45223
jorgehotmailcom
2
mercen
osvaldo
12011991
453111
osvaldohotmailcom

Codigo :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Program ProfAgenda;
Uses Crt;
 
Type
Aginda=Record
Id:integer;
Apellido:string;
Nombre:string;
Fecha:integer;
Tel:integer;
Email:string;
end;
 
const Cc=10;
var b:array[1..Cc] of Aginda;
    opc:char;
    a:aginda;
    agen:text;
 
Procedure Cargar;
Begin
Readln (agen,a.Id);
Readln (agen,a.Apellido);
Readln (agen,a.Nombre);
Readln (agen,a.Fecha);
Readln (agen,a.Tel);
Readln (agen,a.Email);
end;
 
Procedure Mostrar;
Begin
Writeln (a.Id);
Writeln (a.Apellido);
Writeln (a.Nombre);
Writeln (a.Fecha);
Writeln (a.Tel);
Writeln (a.Email);
end;
 
Procedure Agendab;
begin
 assign (agen,'C:\Agenda.txt');
 reset (agen);
 while not eof(agen) do
   begin
    Cargar;
    Mostrar;
   end;
end;
 
 
Procedure Menu;
Begin
 Repeat
 Writeln ('1.Ver Agenda');
 agendab;
 Writeln ('2.Agregar Contacto');
 Writeln ('3.Borrar Contacto');
 Writeln ('4.Salir');
 Opc:=Readkey;
 IF (opc)='1' THEN
 Agendab;
 IF (opc)='2' THEN
 IF (opc)='3' THEN
 until(opc)='4';
end;
 
Begin
Clrscr;
Menu;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

exitcode=2 error

Publicado por ramon (2158 intervenciones) el 23/11/2012 16:07:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
{A ver tu programa corregido}
 
Program ProfAgenda;
Uses Crt;
 
Type
Aginda=Record
Id:integer;
Apellido:string;
Nombre:string;
Fecha:longint;
Tel:longint;
Email:string;
end;
 
const Cc=10;
var
  b:array[1..Cc] of Aginda;
  opc:char;
  a:aginda;
  agen:file of aginda;
 
 procedure creaajenda;
 var
   crea : longint;
 begin
    assign(agen,'C:\Agenda.txt');
    rewrite(agen);
    crea := 0;
    a.Id := crea + 1;
    a.Apellido := 'milano';
    a.Nombre := 'jorge';
    a.Fecha := 1612133;
    a.Tel := 45223;
    a.Email := 'jorgehotmailcom';
    seek(agen,crea);
    write(agen,a);
    crea := 1;
    a.Id := crea + 1;
    a.Apellido := 'mercen';
    a.Nombre := 'osvaldo';
    a.Fecha := 12011991;
    a.Tel := 453111;
    a.Email := 'osvaldohotmailcom';
    seek(agen,crea);
    write(agen,a);
    close(agen);
 end;
 
Procedure Cargar(n : longint);
Begin
 seek(agen,n);
 read(agen,a);
 
{Readln (agen,a.Id);
Readln (agen,a.Apellido);
Readln (agen,a.Nombre);
Readln (agen,a.Fecha);
Readln (agen,a.Tel);
Readln (agen,a.Email);}
end;
 
Procedure Mostrar(n : longint);
Begin
   seek(agen,n);
   read(agen,a);
   with a do
   begin
   Writeln(Id);
   Writeln(Apellido);
   Writeln(Nombre);
   Writeln(Fecha);
   Writeln(Tel);
   Writeln(Email);
   writeln;
  end;
end;
 
Procedure Agendab;
var
   i : longint;
begin
assign (agen,'C:\Agenda.txt');
reset (agen);
 clrscr;
for i := 0 to filesize(agen) - 1 do
begin
Cargar(i);
Mostrar(i);
end;
writeln('<<< Pulse [Enter] >>>');
readln;
end;
 
 
Procedure Menu;
Begin
creaajenda;
Repeat
clrscr;
Writeln ('1.Ver Agenda');
Writeln ('2.Agregar Contacto');
Writeln ('3.Borrar Contacto');
Writeln ('4.Salir');
Opc:=Readkey;
IF (opc)='1' THEN
Agendab;
IF (opc)='2' THEN
IF (opc)='3' THEN
until(opc)='4';
end;
 
Begin
Clrscr;
Menu;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

exitcode=2 error

Publicado por lucas (4 intervenciones) el 24/11/2012 16:48:42
muchisimas gracias por tu ayuda, hay algunos comandos que no conosco que ya averiguare, gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar