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

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Control de N pacientes de un consultorio-ayuda

Publicado por ramon (2158 intervenciones) el 10/11/2014 00:53:24

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Control de N pacientes de un consultorio-ayuda

Publicado por ramon (2158 intervenciones) el 10/11/2014 00:59:20

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

Comentar

Ayuda con valores de funciones y procedimientos

la verdad no se cual es el error... ayuda.