AYUDA devPascal
Publicado por Cristian (2 intervenciones) el 01/08/2017 23:34:11
Hola, estoy preparandome para rendir la materia algoritmo en la que damos el lenguaje pascal y como metodo de estudio estoy haciendo una agenda con mis propios conocimientos, conste que no la termine al 100%, me esta dando los siguiente errores:
Error: Illegal expression
Error: Ordinal expression expected
Fatal: Syntax error, : expected but identifier OPC found
dejo el codigo de programa marcando donde es que me aparece el error, :
Error: Illegal expression
Error: Ordinal expression expected
Fatal: Syntax error, : expected but identifier OPC found
dejo el codigo de programa marcando donde es que me aparece el error, :
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
program AgregaModifica;
uses crt;
TYPE
recorda = record
nro : integer;
nombre : string;
edad : integer;
baja : boolean;
end;
VAR
opc, p, k : integer;
afrndx : file of recorda;
rfrndx : recorda;
nombr : string;
rta : char;
// BUSCADOR //
//------------------------------------------------------------------------------//
FUNCTION BUSCADOR (n : string) : boolean;
BEGIN
reset (afrndx);
REPEAT
read (afrndx, rfrndx);
UNTIL (rfrndx.nombre=n) or eof(afrndx);
if rfrndx.nombre=n
THEN
BUSCADOR := TRUE
ELSE
BUSCADOR := FALSE;
END;
// MENU //
//------------------------------------------------------------------------------//
PROCEDURE MENU;
BEGIN
writeln ('******** Bienvenidos a Agendrix ********');
writeln (' BY ************************ ProDIGGY');
delay (3000);
clrscr;
writeln ('Escoja una opcion: ');
writeln ('1- Listar Friendix''s');
writeln ('2- Agregar Friendix');
writeln ('3- Ocultar Friendrix');
writeln ('4- Cerrar Agendix');
writeln ();
write ('La opcion escogida es: ');
END;
// LISTAR FRIENDIX's //
//------------------------------------------------------------------------------//
PROCEDURE ListaFriendixs;
BEGIN
clrscr;
reset (afrndx);
k:=1;
writeln ('Desea ver a tus ExFriendix en el listado de Friendrix? (s/n) ');
read (rta);
IF rta='s'
THEN BEGIN
writeln ('Nrix ---------- Friendix ---------- Edadix ----- Ex');
while not eof(afrndx) do BEGIN
read (afrndx, rfrndx);
writeln (k,' ',rfrndx.nombre,' ',rfrndx.edad,' ',rfrndx.baja);
writeln ('----------------------------------------------------------');
k:=k+1;
END;
END
ELSE BEGIN
writeln ('Nrix ---------- Friendix ---------- Edadix');
while not eof(afrndx) do
BEGIN
read (afrndx, rfrndx);
with rfrndx do BEGIN
IF not rfrndx.baja
THEN
writeln (nro, ' ', nombre ,' ', edad);
writeln ('----------------------------------------------------');
END;
END;
END;
writeln();
writeln ('No hay mas friendix''s');
END;
// AGREGAR FRIENDIX //
//------------------------------------------------------------------------------//
PROCEDURE AgregaFriendix;
BEGIN
clrscr;
reset (afrndx);
p:=filesize(afrndx);
seek (afrndx, p);
write ('Ingrese nombre de nuestro friendix nuevo: ');
readln (rfrndx.nombre);
write ('Ahora su edad: ');
readln (rfrndx.edad);
rfrndx.baja:=FALSE;
delay(1000);
clrscr;
write(afrndx, rfrndx);
writeln ();
writeln ('Si!, tenemos un nuevo Friendix');
END;
// OCULTAR FRIENDIX //
//------------------------------------------------------------------------------//
PROCEDURE OcultaFriendix;
BEGIN
clrscr;
reset (afrndx);
writeln ('Ingrese el nombre de nuestro ExFriendix :''( : ');
readln (nombr);
IF BUSCADOR(nombr) THEN BEGIN
writeln ('Desea eliminar al friendix: (s/n)', rfrndx.nombre); readln (rta);
IF rta='s' THEN BEGIN
rfrndx.baja:=TRUE;
write (afrndx, rfrndx)
END
ELSE BEGIN
delay (1000);
clrscr;
exit;
END;
END;
END;
// SALIR DE AGENDRIX //
//------------------------------------------------------------------------------//
PROCEDURE Salir;
BEGIN
clrscr;
writeln ('Espero que regrese estaremos esperandolo o estaremos tristes ;) ');
writeln; writeln;
delay (2100);
clrscr;
writeln ('Saliendo');
delay (150);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo...');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo');
delay (1100);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo...');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo');
delay (1100);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo...');
delay (150);
clrscr;
writeln ('Saliendo..');
delay (150);
clrscr;
writeln ('Saliendo.');
delay (150);
clrscr;
writeln ('Saliendo');
delay (1100);
clrscr;
writeln ('ADIOS');
delay (1000);
clrscr;
END;
BEGIN
assign (afrndx, 'C:\Users\crist\Desktop\PASCAL 2017\ARCHIVOS PAS2017\Agendrix.dat');
reset (afrndx);
opc:=0;
REPEAT
MENU;
readln (opc);
delay (1500);
CASE opc OF
1:ListaFriendixs;
2:AgregaFriendix;
3:OcultaFriendix;
4:Salir;
UNTIL opc=4; //ACA ME MARCA EL ERROR
readkey;
END.
Valora esta pregunta


0