Pascal/Turbo Pascal - Control de N pacientes de un consultorio-ayuda

   
Vista:

Control de N pacientes de un consultorio-ayuda

Publicado por alberto jamana (1 intervención) el 08/11/2014 18:31:28
Muy buenas tardes me necesito ayuda con este problema, toda esa información debe ser guardada en un archivo .dat si mal no recuerdo utilizando un record. gracias.

si alguna persona logra hacer el codigo, por favor utilicen {} para dejarme notas del funcionamiento ya que deseo aprender para poder solucionar los demás problemas por mi mismo este es solo el primero de 20 problemas que tengo que resolver. una vez mas gracias cualquier tipo de ayuda la agradeciera.

-Cree un programa en pascal para el control de N pacientes de un consultorio. y se tiene la siguiente información:

CEDULA DE IDENTIDAD PACIENTE= CIP
NOMBRE PACIENTE = NOMP
APELLIDO PACIENTE = APLLP
CEDULA DE IDENTIDAD MEDICO= CIM
NOMBRE MEDICO = NOMM
APELLIDO MEDICO = APLLM
EMFERMEDAD TRATADA = ET
FECHA ASISTENCIA = FA
MEDICAMENTO1 = M1
CATIDAD DE MEDICAMENTO 1 =CM1
INDICACIONES MEDICAMENTO 1 =IM1
MEDICAMENTO2 = M2
CATIDAD DE MEDICAMENTO 2 =CM2
INDICACIONES MEDICAMENTO 2 =IM2
MEDICAMENTO3 = M3
CATIDAD DE MEDICAMENTO 3 =CM3
INDICACIONES MEDICAMENTO 3 =IM3

Se desea cuando un medico lo requiera saber:
a) el tratamiento asignado a un paciente donde se incluya todos los datos del paciente, la enfermedad tratada y los medicamentos e indicaciones al paciente; y los datos de médico tratante.
b) se requiere ver cuántas veces un paciente a asistido a consulta, y los datos de la enfermedad tratada.
d) Mostrar por pantalla lo solicitado en a, b.
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

Control de N pacientes de un consultorio-ayuda

Publicado por ramon (2072 intervenciones) el 10/11/2014 00:53:24
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
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
{Espero esto te hayude en tu trabajo parte 1 de 2}
 
 program pacientes;
  uses
     crt;
 
  const
      archivo = 'paciente.dat';  {Nombre del Archivo}
 
  type
     regpacientes = record     {Registro paciente}
           CIPpacient : longint;
           NOMPpacient : string[80];
          APLLPpacient : string[80];
          end;
 
     regmedico = record         {Registro medico}
            CIM : longint;
           NOMM : string[8];
          APLLM : string[80];
        end;
 
     regenfermedad = record     {Registro enfermedad}
            ET : string;
            FA : string[10];
          end;
 
     regmedicamentos = record   {Registro medicamentos}
            Md : string;
            CM : integer;
            IM : string;
          end;
 
     reglospaciente = record       {Registro de datos}
            pacient : regpacientes;
              medic : regmedico;
              enfer : regenfermedad;
          medicinas : array[1..3] of regmedicamentos;
          end;
 
   var
     f : file of reglospaciente;  {Informa de Un fichero con typo registro}
     datos : reglospaciente;   {Variable de los datos registro}
 
 
   procedure guardar_datos(p : reglospaciente);
   begin
      assign(f,archivo); {abrimos el archivo}
   {$I-} reset(f); {$I+} {comprovamos errores si ubiese}
   if ioresult <> 0 then   {si <> 0 el archivo no existe lo creamos}
   begin
       rewrite(f);   {creamos}
       seek(f,0);    {posicionamos puntero}
       write(f,p);   {escribimos datos}
       close(f);     {cerroamos para ebitar errores des pues}
   end
 else    {si es 0 insertamos}
    begin
        seek(f,filesize(f)); {apuntamos al final del archivo}
        write(f,p); {escribimos datos}
        close(f);  {cerroamos para ebitar errores des pues}
    end;
   end;
 
   procedure entrada_paciente;  {Entrada de datos de los pacientes}
   begin
      gotoxy(15,2);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(15,3);write(****** Entrada De Datos Paciente ******   ³Þ');
      gotoxy(15,4);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(15,5);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(2,6);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
      gotoxy(2,7);write('³ Cedula :              Nombre :             ',
                         ' Apellido :                   ³Þ');
      gotoxy(2,8);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(2,9);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß',
                        'ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(13,7);readln(datos.pacient.CIPpacient);
      gotoxy(35,7);readln(datos.pacient.NOMPpacient);
      gotoxy(59,7);readln(datos.pacient.APLLPpacient);
   end;
 
   procedure entrada_medico; {Entrada datos de los medicos}
   begin
      gotoxy(15,10);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(15,11);write(****** Entrada De Datos Medico   ******   ³Þ');
      gotoxy(15,12);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(15,13);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(2,14);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
      gotoxy(2,15);write('³ Cedula :              Nombre :             ',
                         ' Apellido :                   ³Þ');
      gotoxy(2,16);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(2,17);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß',
                        'ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(13,15);readln(datos.medic.CIM);
      gotoxy(35,15);readln(datos.medic.NOMM);
      gotoxy(59,15);readln(datos.medic.APLLM);
   end;
 
   procedure entrada_enfermedad;  {entrada datos enfermedad}
   begin
      gotoxy(15,18);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(15,19);write(****** Entrada Datos Enfermedad ******   ³Þ');
      gotoxy(15,20);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(15,21);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(2,22);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
      gotoxy(2,23);write('³ Enfermedad :                                 ',
                         '        Fecha :             ³Þ');
      gotoxy(2,24);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(2,25);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß',
                        'ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(17,23);readln(datos.enfer.ET);
      gotoxy(65,23);readln(datos.enfer.FA);
   end;
 
   procedure entrada_medicinas; {entrada medicamentos}
   var
     i : integer;
     te : char;
     sal : boolean;
   begin
      gotoxy(15,26);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(15,27);write(****** Entrada Datos Medicamentos ******  ³Þ');
      gotoxy(15,28);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(15,29);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      i := 1;
      sal := false;
    repeat     {repetimos entradas max 3}
      gotoxy(2,30);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
      gotoxy(2,31);write('³ Medicamento :              Cantidad :      ',
                         ' Indicacion :                 ³Þ');
      gotoxy(2,32);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',
                        'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(2,33);write(' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß',
                        'ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(18,31);readln(datos.medicinas[i].Md);
      gotoxy(42,31);readln(datos.medicinas[i].CM);
      gotoxy(61,31);readln(datos.medicinas[i].IM);
      gotoxy(2,34);write('Desea Entrar Mas Datos [S/N]');
      repeat    {aseguramos que pulsa la tecla correcta}
         te := upcase(readkey); {forzamos a mayusculas}
      until te in['S','N'];
      if te = 'S' then {si [S] incrementamos i y verificamos que no es mayor
                        de tres sino salimos}
      begin
         i := i + 1;
         if i > 3 then
         sal := true;
      end
   else
      begin
         sal := true;  {si es [N] salimos}
      end;
    until sal = true;
   end;
 
  procedure presenta_datros_paciente(dd : reglospaciente);
  var
    i : integer;
  begin
     writeln('  ***  Istorial Y Datos Del Paciente *** ');
     writeln('       ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     ');
     with dd do
     begin
     writeln(' >>> Datos Paciente <<< ');
     writeln('  Cedula       = ',pacient.CIPpacient);
     writeln('  Nombre       = ',pacient.NOMPpacient);
     writeln('  Apellido     = ',pacient.APLLPpacient);
     writeln(' <<< De Enfermedad Tratado >>>');
     writeln('  Enfermedad   = ',enfer.ET);
     writeln('  Fecha        = ',enfer.FA);
     writeln(' <<< Medicamentos >>>');
     for i := 1 to 3 do
     begin
     writeln('  Medicamento  = ',medicinas[i].Md);
     writeln('  Cantidad     = ',medicinas[i].CM);
     writeln('  Indicaciones = ',medicinas[i].IM);
     end;
     writeln(' <<< Medico >>>');
     writeln('  Cedula       = ',medic.CIM);
     writeln('  Nombre       = ',medic.NOMM);
     writeln('  Apellido     = ',medic.APLLM);
    end;
    writeln;
    writeln(' ****** Pulse Una Tecla ****** ');
    readkey;
  end;
 
  procedure entrada_informacion;  {Entramos todos los datos de paciente,
                                   medico, enfermedad y medicinas}
  begin
     clrscr;
     entrada_paciente;
     entrada_medico;
     entrada_enfermedad;
     entrada_medicinas;
     guardar_datos(datos);  {guardamos los datos}
  end;
 
   procedure tratamiento_asignado_a_un_paciente;  {ver tratamiento paciente}
   var
      ar, cedul : longint;
      encont : boolean;
   begin
      gotoxy(10,3);write('        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(10,4);write('        ³ Entre Cedula :                 ³Þ');
      gotoxy(10,5);write('        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(10,6);write('          ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(35,4);readln(cedul);
      clrscr;
      encont := false;
      assign(f,archivo);
   {$I-} reset(f); {$I+}
   if ioresult <> 0 then
   begin
      writeln;
      writeln('<<<<<< Error El Archivo No Existe Pulse Una Tecla >>>>>>>>');
      readkey;
   end
 else
     begin
        for ar := 0 to filesize(f) - 1 do
        begin
           seek(f,ar);
           read(f,datos);
           if datos.pacient.CIPpacient = cedul then
           begin
              encont := true;
              break;
           end;
        end;
          if encont = true then
          begin
             clrscr;
             presenta_datros_paciente(datos);
             close(f);
          end
       else
          begin
            writeln;
            close(f);
            writeln('*** Error La Cedula No Existe Pulse Una Tecla ***');
            readkey;
          end;
      end;
   end;
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

Control de N pacientes de un consultorio-ayuda

Publicado por ramon (2072 intervenciones) el 10/11/2014 00:59:20
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
{parte 2}
 
 procedure presenta_consultas(cc : reglospaciente);
   begin
      with cc do
      begin
      writeln('  Enfermedad   = ',enfer.ET);
      writeln('  Fecha        = ',enfer.FA);
      end;
   end;
 
   procedure ver_asistencias_a_consulta_paciente; {ver asistencias a consultas}
   var
      ar, cedul : longint;
      asistio : integer;
      encont : boolean;
   begin
      asistio := 0;
      gotoxy(10,3);write('        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(10,4);write('        ³ Entre Cedula :                 ³Þ');
      gotoxy(10,5);write('        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(10,6);write('          ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(35,4);readln(cedul);
      clrscr;
      encont := false;
      assign(f,archivo);
   {$I-} reset(f); {$I+}
   if ioresult <> 0 then
   begin
      writeln;
      writeln('<<<<<< Error El Archivo No Existe Pulse Una Tecla >>>>>>>>');
      readkey;
   end
 else
     begin
        writeln('  ***  Istorial De Consultas *** ');
        writeln('       ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     ');
        for ar := 0 to filesize(f) - 1 do
        begin
           seek(f,ar);
           read(f,datos);
           if datos.pacient.CIPpacient = cedul then
           begin
              encont := true;
              presenta_consultas(datos);
              asistio := asistio + 1;
           end;
          end;
          if encont = true then
          begin
          close(f);
          writeln('   Las Asistencias An Sido : ',asistio);
          writeln;
          writeln('  Pulse Una Tecla ');
          readkey;
          end;
          if encont = false then
          begin
            writeln;
            close(f);
            writeln('*** Error La Cedula No Existe Pulse Una Tecla ***');
            readkey;
         end;
       end;
    end;
 
   procedure presenta_istorial(pp : reglospaciente);
   var
      i : longint;
   begin
     writeln('  ***  Istorial Y Datos Del Paciente *** ');
     writeln('       ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     ');
     with pp do
     begin
     writeln(' >>> Datos Paciente <<< ');
     writeln('  Cedula       = ',pacient.CIPpacient);
     writeln('  Nombre       = ',pacient.NOMPpacient);
     writeln('  Apellido     = ',pacient.APLLPpacient);
     writeln(' <<< De Enfermedad Tratado >>>');
     writeln('  Enfermedad   = ',enfer.ET);
     writeln('  Fecha        = ',enfer.FA);
     writeln(' <<< Medicamentos >>>');
     for i := 1 to 3 do
     begin
     writeln('  Medicamento  = ',medicinas[i].Md);
     writeln('  Cantidad     = ',medicinas[i].CM);
     writeln('  Indicaciones = ',medicinas[i].IM);
     end;
     writeln(' <<< Medico >>>');
     writeln('  Cedula       = ',medic.CIM);
     writeln('  Nombre       = ',medic.NOMM);
     writeln('  Apellido     = ',medic.APLLM);
    end;
    writeln;
    writeln(' ****** Pulse Una Tecla ****** ');
    readkey;
   end;
 
   procedure Mostrar_por_pantalla_instorial_paciente; {mostrar instorial}
   var
     ar, cedul : longint;
     encont : boolean;
   begin
      gotoxy(10,3);write('        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
      gotoxy(10,4);write('        ³ Entre Cedula :                 ³Þ');
      gotoxy(10,5);write('        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
      gotoxy(10,6);write('          ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
      gotoxy(35,4);readln(cedul);
      clrscr;
      assign(f,archivo);
   {$I-} reset(f); {$I+}
   if ioresult <> 0 then
   begin
      writeln;
      writeln('<<<<<< Error El Archivo No Existe Pulse Una Tecla >>>>>>>>');
      readkey;
   end
 else
     begin
        writeln('  ***  Istorial Del Paciente *** ');
        writeln('       ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     ');
        encont := false;
        for ar := 0 to filesize(f) - 1 do
        begin
           seek(f,ar);
           read(f,datos);
           if datos.pacient.CIPpacient = cedul then
           begin
              encont := true;
              presenta_istorial(datos);
           end;
          end;
        if encont = true then
        begin
          close(f);
        end;
        if encont = false then
        begin
           close(f);
           writeln('*** Error La Cedula No Existe Pulse Una Tecla ***');
           readkey;
        end;
      end;
   end;
 
   procedure menujeneral;  {menu jeneral}
   var
     salir : boolean;
     tecla : char;
   begin
       salir := false;
     repeat
        clrscr;
        writeln;
        writeln('            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
        writeln('            ³ * Consultorio Control Pacientes *  ³Þ');
        writeln('            ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
        writeln('             ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
        writeln;
        writeln('               ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
        writeln('               ³   ****** Menu Jeneral ******   ³Þ');
        writeln('               ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Þ');
        writeln('               ³   1 = Entrada Datos Paciente   ³Þ');
        writeln('               ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Þ');
        writeln('               ³   2 = Tratamiento Asignado     ³Þ');
        writeln('               ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Þ');
        writeln('               ³   3 = Asistencias Paciente     ³Þ');
        writeln('               ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Þ');
        writeln('               ³   4 = Instorial Paciente       ³Þ');
        writeln('               ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Þ');
        writeln('               ³   5 = Salir                    ³Þ');
        writeln('               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÞ');
        writeln('                ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
        writeln('                   ***** Elija Opcion *****');
      repeat
         tecla := readkey;
      until tecla in['1','2','3','4','5'];
      clrscr;
    case tecla of
 '1' : entrada_informacion;
 '2' : tratamiento_asignado_a_un_paciente;
 '3' : ver_asistencias_a_consulta_paciente;
 '4' : Mostrar_por_pantalla_instorial_paciente;
 '5' : salir := true;
    end;
     until salir = true;
   end;
 
 
  begin
     menujeneral;  {inicio prograna}
  end.
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