Temas

Muy buenas noches a todos. Debo realizar un programa en pascal bajo las siguientes condiciones:

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 [Seleccionar] Expandir


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 . . .

Buenos días amigos. Soy estudiante de informática y me asignaron la creación de un software de registro de inscripción de un colegio de primaria. El asunto es que por los actuales problemas en Vzla. no nos han dado el contenido correspondiente que se supone base para su desarrollo. Mis conocimientos son Acces -> 6 (del 1 al 10) MySQL -> 0,5 y PHP -> 0, pero soy rápido aprendiendo.

Amigos no pretendo pedirles que hagan el proyecto por mí, solo necesito orientación y recomendaciones.

Se requiere que sea montado en PHP o similar, pues se pretende que sea un ejecutable, que no requiera instalación.