Autor
La Clínica “La Mejor”, requiere un sistema automatizado para registrar a los pacientes que son atendidos, de tal modo, que se puedan obtener datos específicos tales como: las estadísticas en atención a menores de edad, adultos mayores, tanto femenino como masculino, los ingresos recaudados mensualmente según los tipos de patologías atendidas, entre otros. Es importante destacar, que se han clasificado estas patologías en tres categorías: las tipo A, las B y las tipo C; y se deberán tomar en cuenta las siguientes especificaciones, al momento de ser atendidas en la Clínica:
• Los pacientes deberán cancelar Bs. 500 por ingreso a la clínica.
• Deberán pagar diariamente:
o Bs. 550 si son atendidos por patologías tipo A.
o Bs. 430 si se trata de las tipo B.
o Bs. 620 si es por las tipo C.
Dicho Sistema Automatizado, debe cumplir con las siguientes pautas:
1) Presentar un menú de mantenimiento con las opciones siguientes:
a) Incluir
b) Consultar
c) Modificar
d) Eliminar
e) Reporte
f) Salida
2) Debe registrar, con la opción Incluir, los siguientes datos:
a) Cédula de Identidad.
b) Apellidos y Nombres.
c) Edad.
d) Sexo.
e) Días de hospitalización.
f) Tipo de patologías (A/B/C).
3) Debe ordenar el registro de pacientes por el número de la cédula de identidad.
4) Mostrar por pantalla, cuando se consulte a un paciente por su número de cédula de identidad, toda la información referente al mismo.
5) Mostrar por pantalla, en la opción Modificar y en la opción Eliminar, un mensaje de confirmación, donde el usuario ratifica la acción de modificar o eliminar datos en el sistema.
6) Las opciones Consultar, Modificar y Eliminar, harán uso de los mismos datos registrados en la opción Incluir.
7) La opción Reporte, debe generar un listado impreso que presente la siguiente información:
a) Ingresos recaudados por patologías tipo A.
b) Ingresos recaudados por patologías tipo B.
c) Ingresos recaudados por patologías tipo C.
d) Número de pacientes atendidos menores de 18 años.
e) Número de pacientes atendidos mayores de 65 años sexo femenino.
f) Número de pacientes atendidos mayores de 65 años sexo masculino.
Por ahora apenas he logrado esto y no he podido avanzar más:
Código:
program Clinica_LaMejorPM;
Uses dos,crt;
Const ID=500;
A=550;
B=430;
C=620;
type
tRPersona=Record
Cedula:Longint;
Nombres:String[60];
Apellidos:String[60];
Edad:Integer;
Sexo:Char;
Dias:Integer;
Patologia:Char;
end;
Homer= Array [1..7] of tRPersona;
var
opc:Integer;
IrA:Integer;
IrB:Integer;
IrC:Integer;
Dh:Integer;
Nom:Homer;
Procedure Incluir(var Nom:Homer);
var i:Integer;
begin
with Nom[i] do
begin
writeln('-Paciente',i,'-');
write('Cedula:');Readln(Cedula);
write('Nombres:');Readln(Nombres);
write('Apellidos:');Readln(Apellidos);
write('Edad:');Readln(Edad);
write('Sexo:');Readln(Sexo);
write('Dias:');Readln(Dias);
write('Patologia:');Readln(Patologia);
end;
readkey;
clrscr;
end;
Procedure Consultar(var Nom:Homer);
var i:Integer;
begin
with Nom[i] do
begin
writeln('-Paciente',i,'-');
writeln('Cedula:',cedula);
writeln('Nombres:',Nombres);
writeln('Apellidos:',Apellidos);
writeln('Edad:',Edad);
writeln('Sexo:',Sexo);
writeln('Dias:',Dias);
writeln('Patologia:',Patologia);
end;
readkey;
clrscr;
end;
Procedure Menu;
var i:Integer;
begin
clrscr;
writeln(' //MENU// ');
writeln;
writeln('------1.INCLUIR---------');
writeln;
writeln('------2.CONSULTAR-------');
writeln;
writeln('------3.MODIFICAR-------');
writeln;
writeln('------4.ELIMINAR--------');
writeln;
writeln('------5.REPORTE---------');
writeln;
writeln('------6.SALIR-----------');
writeln;
writeln('----------------------------------');
writeln;
write('Ingrese Opcion:');
Readln (opc);
end;
Procedure Salir;
begin
clrscr;
writeln('presione <ENTER> para salir');
end;
begin
clrscr;
Repeat
Menu;
Case opc of
1: Incluir(nom);
2: Consultar(nom);
6: Salir;
else
clrscr;
writeln('Opcion es Incorrecta');
readkey;
end;
Until opc in [6];
readkey;
end.
De antemano gracias por sus respuestas . . .
En línea
. 
