Pascal/Turbo Pascal - ERROR EN PASCAL

   
Vista:

ERROR EN PASCAL

Publicado por LIZ (1 intervención) el 18/02/2015 22:12:05
ALGUIEN PODRIA AYUDARME AL COMPILAR ME DA LOS SIGUIENTES ERROR:
SYNTAXIS ERROR,"END" EXPECTED BUT "(" FOUND
COMPILATION ABORTED

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
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
PROGRAM VIDAYSAL;
  USES
    CRT, DOS;
 
  TYPE
 
    VIDA = RECORD
    DP: STRING [30] ;( *****DESCRIPCION DEL PRODUCTO *****)
    SP: STRING [3] ;(*******SIGLAS DEL PRODUCTO**********)
    SESE: STRING [3]; (**SIGLAS DEL ESTRATO SOCIO ECONOMICO *****)
    SGS: STRING [1]; (**SIGLAS DEL GENERO SEXUAL AL CUAL PERTENCE***)
       SEDAD: STRING [3]; (**SIGLAS EDADES**)
 
   VAR
     F: FILE OF VID;
     DATOS: PRODUCT;
     ANO, MES, DIA, SEM: WORD;
    MENÚ: INTEGER;
     SEGUIR: STRING [1];
(**********************************INICIO DEL PROGRAMA PRINCIPAL***************************************************************************)
 
BEGIN
     REPEAT
         (******************************************************************************************
***********MENU PRINCIPAL DEL PROGRAMA***************************************
*********************************************************************************************)
       CLRSCR;
           WRITELN (´EMPRESA VIDA Y SALUD´);
           WRITELN (´SISTEMA AUTOMATIZADO PARA REGISTRO DE PREFERENCIAS DEL CONSUMIDOR´);
           WRITELN (´MENU PRINCIPAL´);
           WRITELN
        (´---------------------------------------------------------------------------------------------------´);
         WRITELN (´ (1) INCLUIR (2) CONSULTAR (3) MODIFICAR (4) ELIMINAR (5) REPORTES (6) SALIR´´);
       WRITELN(´----------------------------------------------------------------------------------------);
WRITELN (´ ESCOJA UNA OPCION DEL SISTEMA ´);
WRITELN (´PRESIONE UN VALOR ENTERO ENTRE 1 Y 6´);
REPAEAT
        WRITE (´MI OPCION DEL MENU ES LA NRO:   ´);
         READLN (MENU);
        IF (MENU <1) OR (MENU >5) THEN
             BEGIN
                  WRITE (´ÍNTRODUJO UN VALOR INVALIDO. PRESIONE ENTER E INTENTE DE NUEVO´);
                     READLN (SEGUIR);
              END;
UNTIL (MENU>=1) AND (MENU<=6);
(********************************************************************************************************PROGRAMACION DE LAS OPCIONES DEL MENU************************
*********************************************************************************************)
       WHILE (MENU=1) DO
               BEGIN
                    CLRSCR;
                                   WRITELN (´EMPRESA VIDA Y SALUD´);
                         WRITELN (´SISTEMA AUTOMATIZADO PARA REGISTRO DE                          PREFERENCIAS DEL CONSUMIDOR´);
                          WRITELN (´ (1) INCLUIR´)
                           ASSIGN (FILE OF VID, ¨VIDA Y SALUD.DAT´);
                            REWRITE (FILE OF VID)
                           BEGIN
                               WRITE (´DESCRIPCION DEL PRODUCTO :´);
                                READLN (DP);
´                             WRITELN (´NUMERO DE PERSONAS ENCUESTADAS: ´);
                               READLN (TPE);
                             WRITELN (´A CONTINUACION INTRODUZCA LAS SIGLAS DEL PRODUCTO DE SU ELECCION:´);
                              WRITELN (´LECHE DESCREMADA. (LD), LECHE ENTERA. (LE) YOGUR: (YG). HELADOS: (HE) :´);
 
                                READLN (SP);
                           WRITELN (´A CONTINUACION INTRODUZCA LAS SIGLAS DEL ESTRATO SOCIO-ECONOMICO AL CUAL PERTENECE: ´);
                           WRITELN (´CLASE A: (CLA). CLASE ALTA Y MEDIA ALTA, CLASE B: (CLB). CLASE MEDIA TÍPICA. CLASE C: (CLC) ‐ CLASE MEDIA BAJA:´);
 
                           READLN (SESE);
                           WRITELN (´INTRODUZCA EL GENERO SEXUAL AL CUAL PERTENECE:´);
                          WRITELN (´ FEMENINO (F) - MASCULINO (M) ´);
                          READLN (SGS);
                           WRITELN (ÍNTRODUZCA LAS SIGLAS QUE HAGAN MENCION A SU EDAD:´); ´
                            WRITELN (´ DE 12 A 17 AÑOS EDAD JUVENIL (EJ)- DE 18 A 55 AÑOS EDAD ADULTA (AD)- DE 55 A 100 AÑOS  ADULTO MAYOR (ADM) :´);
                          RADLN (SEDAD);
                          WRITE (FILE OF VID, ¨VIDA Y SALUD.´);
                         CLOSE (VIDAYSALUD);
                           END ;( ***DEL WITH****)
                          WRITELN (´ARCHIVO DE DATOS CREADO´);
                           MENU:=0;
                           WRITE (´PRESIONE ENTER PARA SALIR DE LA OPCION INCLUIR´);
                          READLN (SEGUIR);
                END;
(********************************************************************************************************SUBMENU CONSULTAR******************************************************
********************************************************************************************)
WHILE (MENU =2) DO
       BEGIN
             CLRSCR;
             ASSIGN (FILE OF VID, ¨VIDA Y SALUD.DAT´);
             {$I}
            RESET (FILE OF VID);
            READ (FILE OF VID);
            TEMP: =0
            SEEK (FILE OF VID, ¨VIDA Y SALUD.DAT);
            WHILE NOT EOF (FILE OF VID) DO
                   BEGIN
                        READ (FILE OF VID);
                        WRITELN (´ INTRODUZCA LA DESCRIPCION DEL PRODUCTO:);
                         READLN (DP);
                        WRITELN (´INTRODUZCA LA SIGLA DEL PRODUCTO: ´);
                      READLN (SP);
                       WRITELN (´DESCRIPCION DEL PRODUCTO:   ´; DP);
                       WRITELN (´NUMERO DE PERSONAS ENCUESTADAS: ´; TPE);
                       WRITELN (´SIGLAS DEL PRODUCTO: ´; SP);
                       WRITELN (´SIGLAS DEL ESTRATO SOCIO ECONOMICO: ´; SESE);
                       WRITELN (´GENERO SEXUAL: ´; SGS);
                        WRITELN (´EDAD: ´; SEDAD);
                        TEMP: TEMP+1;
                        SEEK (FILE OF VID, ¨TEMP);
                         READLN (SEGUIR);
                        END ;( ***DEL WHILE NOT EOF***)
                        CLOSE (FILE OF VID);
                        {$I+}
                         MENU:=1;
                          WRITE (´PRESIONE ENTER PARA SALIR DEL SUB MENU CONSULTAR´);
                        READLN (SEGUIR)
            END ;( ***DEL WHILE MENU OPCION 2)
(************************************************************************************************SUB MENU MODIFICAR *************************************************************
*********************************************************************************************)
       WHILE (MENU=3) DO
               BEGIN
                    CLRSCR;
                                   WRITELN (´EMPRESA VIDA Y SALUD´);
                         WRITELN (´SISTEMA AUTOMATIZADO PARA REGISTRO DE                          PREFERENCIAS DEL CONSUMIDOR´);
                          WRITELN (´ (1) INCLUIR´)
                           ASSIGN (FILE OF VID, ¨VIDA Y SALUD.DAT´);
                            REWRITE (FILE OF VID)
                           BEGIN
                               WRITE (´DESCRIPCION DEL PRODUCTO :´);
                                READLN (DP);
´                             WRITELN (´NUMERO DE PERSONAS ENCUESTADAS: ´);
                               READLN (TPE);
                             WRITELN (´A CONTINUACION INTRODUZCA LAS SIGLAS DEL PRODUCTO DE SU ELECCION:´);
                              WRITELN (´LECHE DESCREMADA. (LD), LECHE ENTERA. (LE) YOGUR: (YG). HELADOS: (HE) :´);
 
                                READLN (SP);
                           WRITELN (´A CONTINUACION INTRODUZCA LAS SIGLAS DEL ESTRATO SOCIO-ECONOMICO AL CUAL PERTENECE: ´);
                           WRITELN (´CLASE A: (CLA). CLASE ALTA Y MEDIA ALTA, CLASE B: (CLB). CLASE MEDIA TÍPICA. CLASE C: (CLC) ‐ CLASE MEDIA BAJA:´);
 
                           READLN (SESE);
                           WRITELN (´INTRODUZCA EL GENERO SEXUAL AL CUAL PERTENECE:´);
                          WRITELN (´ FEMENINO (F) - MASCULINO (M) ´);
                          READLN (SGS);
                           WRITELN (ÍNTRODUZCA LAS SIGLAS QUE HAGAN MENCION A SU EDAD:´); ´
                            WRITELN (´ DE 12 A 17 AÑOS EDAD JUVENIL (EJ)- DE 18 A 55 AÑOS EDAD ADULTA (AD)- DE 55 A 100 AÑOS  ADULTO MAYOR (ADM) :´);
                          RADLN (SEDAD);
                          WRITE (FILE OF VID, ¨VIDA Y SALUD.´);
                         CLOSE (VIDAYSALUD);
                           END ;( ***DEL WITH****)
                          WRITELN (´ARCHIVO DE DATOS CREADO´);
                           MENU:=2;
                           WRITE (´PRESIONE ENTER PARA SALIR DE LA OPCION MODIFICAR ´);
                          READLN (SEGUIR);
                END;
(**************************************************************************************************************************SUB MENU ELIMINAR *********************************************************************************************);
WHILE (MENU =4) DO
       BEGIN
             CLRSCR;
             ASSIGN (FILE OF VID, ¨VIDA Y SALUD.DAT´);
             {$I}
            RESET (FILE OF VID);
            READ (FILE OF VID);
            TEMP: =0
            SEEK (FILE OF VID, ¨VIDA Y SALUD.DAT);
            WHILE NOT EOF (FILE OF VID) DO
                   BEGIN
                        READ (FILE OF VID);
                        WRITELN (´ INTRODUZCA LA DESCRIPCION DEL PRODUCTO A ELIMINAR:);
                         READLN (DP);
                        WRITELN (´INTRODUZCA LA SIGLA DEL PRODUCTO A ELIMINAR: ´);
                      READLN (SP);
                       WRITELN (´DESCRIPCION DEL PRODUCTO:   ´; DP);
                       WRITELN (´NUMERO DE PERSONAS ENCUESTADAS: ´; TPE);
                       WRITELN (´SIGLAS DEL PRODUCTO: ´; SP);
                       WRITELN (´SIGLAS DEL ESTRATO SOCIO ECONOMICO: ´; SESE);
                       WRITELN (´GENERO SEXUAL: ´; SGS);
                        WRITELN (´EDAD: ´; SEDAD);
                        TEMP: TEMP-1;
                        SEEK (FILE OF VID, ¨TEMP);
                         READLN (SEGUIR);
                        END ;( ***DEL WHILE NOT EOF***)
                        CLOSE (FILE OF VID);
                        {$I+}
                         MENU: =3;
                          WRITE (´PRESIONE ENTER PARA SALIR DEL SUB MENU ELIMINAR ´);
                        READLN (SEGUIR)
            END ;( ***DEL WHILE MENU OPCION 4)
              (************************************************************************
SUB MENU REPORTES********************************************************
*************************************************************************************);
WHILE (MENU= 5) DO
       BEGIN
             CLRSCR;
             ASSIGN (FILE OF VID, ¨VIDA Y SALUD.DAT´);
             {$I}
            RESET (FILE OF VID);
            READ (FILE OF VID);
            TEMP: =0
            SEEK (FILE OF VID, ¨VIDA Y SALUD.DAT);
         WRITELN   ----------------------------------------------------------------------------------------------------
         WRITELN (´CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO FEMENINO, CLASE A.,          SEDAD: SESE: SEGE´);
WRITELN(´-----------------------------------------------------------------------------------------------------´);
WRITELN (´CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO MASCULINO CLASE B´,             SEDAD: SESE: SEGE´);
WRITELN(´---------------------------------------------------------------------------------------´);
 
WRITELN (´CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO  FEMENINO, CLASE C.              SEDAD: SESE: SEGE´);
WRITELN(---------------------------------------------------------------------------------------´);
 
WRITELN (´CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO FEMENINO, CLASE A.  SEDAD: SESE: SEGE´);
WRITELN(´---------------------------------------------------------------------------´);
WRITELN (´CANTIDAD DE PERSONAS QUE PREFIEREN AL GRUPO: ADULTOS, SEXO MASCULINO, CLASEA.        SEDAD: SESE: SEGE´);
WRITELN(´-------------------------------------------------------------------------------------´);
 
 WRITELN (´CANTIDAD DE PERSONAS QUE PREFIEREN AL GRUPO: ADULTOS, SEXO FEMENINO, CLASEB.´;               SEDAD: SESE: SEGE       );
WRITELN(------------------------------------------------------------------------------------´);
WRITELN (´ CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO MASCULINO CLASE C;              SEDAD: SESE: SEGE).
WRITELN(´--------------------------------------------------------------------------------´);
WRITELN (´ CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO FEMENINO, CLASE C.            SEDAD: SESE: SEGE ´);
WRITELN (----------------------------------------------------------------------------------);
WRITELN (´ CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO FEMENINO, CLASE A.             SEDAD: SESE: SEGE´);
WRITELN (´-------------------------------------------------------------------------------);
WRITELN (´´ CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO MASCULINO CLASE B.          SEDAD: SESE: SEGE´);
WRITELN (´ CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO FEMENINO, CLASE C.               SEDAD: SESE: SEGE ´);
 
 
                        CLOSE (FILE OF VID);
                        {$I+}
                         MENU:=4;
                          WRITE (´PRESIONE ENTER PARA SALIR DEL SUB MENU REPORTES´);
                        READLN (SEGUIR)
            END;(***DEL WHILE MENU OPCION 5****)
       WRITELN (´PRESIONE ENTER PARA SALIR DEL PROGRAMA ´);
          READLN (SEGUIR)
        END;
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

ERROR EN PASCAL

Publicado por ramon (2072 intervenciones) el 18/02/2015 23:39:26
{Tu programa corregido para que funcione pero no quiere decir que sea correcto el diseño }

PROGRAM VIDAYSAL;
USES
CRT, DOS;

TYPE

VIDA = RECORD
DP: STRING [30] ;{ *****DESCRIPCION DEL PRODUCTO *****}
tpe : integer;
SP: STRING [3] ;(*******SIGLAS DEL PRODUCTO**********)
SESE: STRING [3]; (**SIGLAS DEL ESTRATO SOCIO ECONOMICO *****)
SGS: STRING [1]; (**SIGLAS DEL GENERO SEXUAL AL CUAL PERTENCE***)
SEDAD: STRING [3]; {**SIGLAS EDADES**}
end;

VAR
F: FILE OF VIDa;
DATOS: vida;
ANO, MES, DIA, SEM: WORD;
MENu: INTEGER;
SEGUIR: STRING [1];
TEMP : longint;

(**********************************INICIO DEL PROGRAMA PRINCIPAL**********
*****************************************************************)

BEGIN
REPEAT
(******************************************************************************************
***********MENU PRINCIPAL DEL PROGRAMA***************************************
*********************************************************************************************)
CLRSCR;
WRITELN ('EMPRESA VIDA Y SALUD');
WRITELN ('SISTEMA AUTOMATIZADO PARA REGISTRO DE PREFERENCIAS DEL CONSUMIDOR');
WRITELN ('MENU PRINCIPAL');
WRITELN
('---------------------------------------------------------------------------------------------------');
WRITELN (' (1) INCLUIR (2) CONSULTAR (3) MODIFICAR (4) ELIMINAR (5) REPORTES (6) SALIR´');
WRITELN('----------------------------------------------------------------------------------------');
WRITELN (' ESCOJA UNA OPCION DEL SISTEMA');
WRITELN ('PRESIONE UN VALOR ENTERO ENTRE 1 Y 6');
REPEAT
WRITE ('MI OPCION DEL MENU ES LA NRO: ');
READLN (MENU);
IF (MENU <1) OR (MENU >5) THEN
BEGIN
WRITE ('NTRODUJO UN VALOR INVALIDO. PRESIONE ENTER E INTENTE DE NUEVO');
READLN (SEGUIR);
END;
UNTIL (MENU>=1) AND (MENU<=6);
(****************PROGRAMACION DE LAS OPCIONES DEL MENU***********************)
WHILE (MENU=1) DO
BEGIN
CLRSCR;
WRITELN ('EMPRESA VIDA Y SALUD');
WRITELN ('SISTEMA AUTOMATIZADO PARA REGISTRO DE PREFERENCIAS DEL CONSUMIDOR');
WRITELN (' (1) INCLUIR');
ASSIGN (f, 'SALUD.DAT');
REWRITE (f);
BEGIN
WRITE ('DESCRIPCION DEL PRODUCTO :');
READLN (DATOS.DP);
WRITELN ('NUMERO DE PERSONAS ENCUESTADAS: ');
READLN (DATOS.TPE);
WRITELN ('A CONTINUACION INTRODUZCA LAS SIGLAS DEL PRODUCTO DE SU ELECCION:');
WRITELN ('LECHE DESCREMADA. (LD), LECHE ENTERA. (LE) YOGUR: (YG). HELADOS: (HE) :');

READLN (DATOS.SP);
WRITELN ('A CONTINUACION INTRODUZCA LAS SIGLAS DEL ESTRATO SOCIO-ECONOMICO AL CUAL PERTENECE: ');
WRITELN ('CLASE A: (CLA). CLASE ALTA Y MEDIA ALTA, CLASE B: (CLB). CLASE MEDIA TÍPICA. CLASE C: (CLC) - CLASE MEDIA BAJA:');

READLN (DATOS.SESE);
WRITELN ('INTRODUZCA EL GENERO SEXUAL AL CUAL PERTENECE:');
WRITELN (' FEMENINO (F) - MASCULINO (M) ');
READLN (DATOS.SGS);
WRITELN ('NTRODUZCA LAS SIGLAS QUE HAGAN MENCION A SU EDAD:');
WRITELN (' DE 12 A 17 AÑOS EDAD JUVENIL (EJ)- DE 18 A 55 AÑOS EDAD ADULTA (AD)- DE 55 A 100 AÑOS ADULTO MAYOR (ADM) :');
ReADLN (DATOS.SEDAD);
WRITE (F,datos);
CLOSE (f);
END ;{ ***DEL WITH****}
WRITELN ('ARCHIVO DE DATOS CREADO');
MENU:=0;
WRITE ('PRESIONE ENTER PARA SALIR DE LA OPCION INCLUIR');
READLN (SEGUIR);
END;
(********************************************************************SUBMENU CONSULTAR******************************)
WHILE (MENU =2) DO
BEGIN
CLRSCR;
ASSIGN (F,'SALUD.DAT');
{$I-}
RESET (F);
TEMP:=0;
SEEK(F,temp);
WHILE NOT EOF (F) DO
BEGIN
READ (F,datos);
WRITELN (' INTRODUZCA LA DESCRIPCION DEL PRODUCTO:');
READLN (datos.DP);
WRITELN ('INTRODUZCA LA SIGLA DEL PRODUCTO: ');
READLN (datos.SP);
WRITELN ('DESCRIPCION DEL PRODUCTO: ',datos. DP);
WRITELN ('NUMERO DE PERSONAS ENCUESTADAS: ', datos.TPE);
WRITELN ('SIGLAS DEL PRODUCTO: ',datos.SP);
WRITELN ('SIGLAS DEL ESTRATO SOCIO ECONOMICO: ', datos.SESE);
WRITELN ('GENERO SEXUAL: ', datos.SGS);
WRITELN ('EDAD: ',datos.SEDAD);
TEMP:= TEMP+1;
SEEK (F,TEMP);
END ;{ ***DEL WHILE NOT EOF***}
CLOSE (F);
{$I+}
MENU:=1;
WRITE ('PRESIONE ENTER PARA SALIR DEL SUB MENU CONSULTAR');
READLN (SEGUIR)
END ;{ ***DEL WHILE MENU OPCION 2}
(*********************************SUB MENU MODIFICAR ********************************)
WHILE (MENU=3) DO
BEGIN
CLRSCR;
WRITELN ('EMPRESA VIDA Y SALUD');
WRITELN ('SISTEMA AUTOMATIZADO PARA REGISTRO DE PREFERENCIAS DEL CONSUMIDOR');
WRITELN (' (1) INCLUIR');
ASSIGN (F,'sALUD.DAT');
REWRITE (F);
BEGIN
WRITE ('DESCRIPCION DEL PRODUCTO :');
READLN (datos.DP);
WRITELN ('NUMERO DE PERSONAS ENCUESTADAS: ');
READLN (datos.TPE);
WRITELN ('A CONTINUACION INTRODUZCA LAS SIGLAS DEL PRODUCTO DE SU ELECCION:');
WRITELN ('LECHE DESCREMADA. (LD), LECHE ENTERA. (LE) YOGUR: (YG). HELADOS: (HE) :');

READLN (datos.SP);
WRITELN ('A CONTINUACION INTRODUZCA LAS SIGLAS DEL ESTRATO SOCIO-ECONOMICO AL CUAL PERTENECE: ');
WRITELN ('CLASE A: (CLA). CLASE ALTA Y MEDIA ALTA, CLASE B: (CLB). CLASE MEDIA TÍPICA. CLASE C: (CLC) - CLASE MEDIA BAJA:');

READLN (datos.SESE);
WRITELN ('INTRODUZCA EL GENERO SEXUAL AL CUAL PERTENECE:');
WRITELN (' FEMENINO (F) - MASCULINO (M) ');
READLN (datos.SGS);
WRITELN ('NTRODUZCA LAS SIGLAS QUE HAGAN MENCION A SU EDAD:');
WRITELN (' DE 12 A 17 AÑOS EDAD JUVENIL (EJ)- DE 18 A 55 AÑOS EDAD ADULTA (AD)- DE 55 A 100 AÑOS ADULTO MAYOR (ADM) :');
ReADLN (datos.SEDAD);
WRITE (F,datos);
CLOSE (f);
END ;{ ***DEL WITH****}
WRITELN ('ARCHIVO DE DATOS CREADO');
MENU:=2;
WRITE ('PRESIONE ENTER PARA SALIR DE LA OPCION MODIFICAR ');
READLN (SEGUIR);
END;
(******************************************************************SUB MENU ELIMINAR ********************************);
WHILE (MENU =4) DO
BEGIN
CLRSCR;
ASSIGN (F,'SALUD.DAT');
{$I-}
RESET(F);
TEMP:=0;
SEEK(F,temp);
WHILE NOT EOF (F) DO
BEGIN
WRITELN (' INTRODUZCA LA DESCRIPCION DEL PRODUCTO A ELIMINAR:');
READLN (datos.DP);
WRITELN ('INTRODUZCA LA SIGLA DEL PRODUCTO A ELIMINAR: ');
READLN (datos.SP);
WRITELN ('DESCRIPCION DEL PRODUCTO: ', datos.DP);
WRITELN ('NUMERO DE PERSONAS ENCUESTADAS: ', datos.TPE);
WRITELN ('SIGLAS DEL PRODUCTO: ', datos.SP);
WRITELN ('SIGLAS DEL ESTRATO SOCIO ECONOMICO; ',datos.SESE);
WRITELN ('GENERO SEXUAL: ',datos.SGS);
WRITELN ('EDAD: ', datos.SEDAD);
TEMP:= TEMP+1;
SEEK (F,TEMP);
END ;{ ***DEL WHILE NOT EOF***}
CLOSE (F);
{$I+}
MENU:=3;
WRITE ('PRESIONE ENTER PARA SALIR DEL SUB MENU ELIMINAR ');
READLN (SEGUIR)
END ;{ ***DEL WHILE MENU OPCION 4}
(************************************************************************
SUB MENU REPORTES********************************************************
*************************************************************************************);
WHILE (MENU= 5) DO
BEGIN
CLRSCR;
ASSIGN (F,'SALUD.DAT');
{$I-}
RESET (F);
TEMP:=0;
SEEK (F,temp);
WRITELN ('----------------------------------------------------------------------------------------------------');
WRITELN ('CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO FEMENINO, CLASE A., SEDAD: SESE: SEGE');
WRITELN('-----------------------------------------------------------------------------------------------------');
WRITELN ('CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO MASCULINO CLASE B´, SEDAD: SESE: SEGE');
WRITELN('---------------------------------------------------------------------------------------');

WRITELN ('CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: EDAD JUVENIL, SEXO FEMENINO, CLASE C. SEDAD: SESE: SEGE');
WRITELN('---------------------------------------------------------------------------------------');

WRITELN ('CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO FEMENINO, CLASE A. SEDAD: SESE: SEGE');
WRITELN('---------------------------------------------------------------------------');
WRITELN ('CANTIDAD DE PERSONAS QUE PREFIEREN AL GRUPO: ADULTOS, SEXO MASCULINO, CLASEA. SEDAD: SESE: SEGE');
WRITELN('-------------------------------------------------------------------------------------');

WRITELN ('CANTIDAD DE PERSONAS QUE PREFIEREN AL GRUPO: ADULTOS, SEXO FEMENINO, CLASEB.´; SEDAD: SESE: SEGE ');
WRITELN('------------------------------------------------------------------------------------');
WRITELN (' CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO MASCULINO CLASE C; SEDAD: SESE: SEGE');
WRITELN('--------------------------------------------------------------------------------');
WRITELN (' CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTOS, SEXO FEMENINO, CLASE C. SEDAD: SESE: SEGE ');
WRITELN ('----------------------------------------------------------------------------------');
WRITELN (' CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO FEMENINO, CLASE A. SEDAD: SESE: SEGE');
WRITELN ('-------------------------------------------------------------------------------');
WRITELN (' CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO MASCULINO CLASE B. SEDAD: SESE: SEGE');
WRITELN (' CANTIDAD DE PERSONAS PERTENECIENTES AL GRUPO: ADULTO MAYOR, SEXO FEMENINO, CLASE C. SEDAD: SESE: SEGE ');


CLOSE (F);
{$I+}
MENU:=4;
WRITE ('PRESIONE ENTER PARA SALIR DEL SUB MENU REPORTES');
READLN (SEGUIR)
END;(***DEL WHILE MENU OPCION 5****)
WRITELN ('PRESIONE ENTER PARA SALIR DEL PROGRAMA ');
READLN (SEGUIR);
until seguir[1] = '6';
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