Total recaudado por la EPS en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Entrar por pantalla los datos de 30 pacientes: cédula, nombre, edad, sexo (1=mujer, 2=masculino), tipo de dolencia (1=bronquitis, 2=presión alta, 3=cáncer, 4=diabetes), estrato (1-6), y valor tratamiento.
Se pide porcentaje de los hombres mayores de 50 años con cáncer.
Total mujeres menores de edad con bronquitis o diabetes.
Se pide mostrar el valor a pagar por cada paciente, el total recaudado por la EPS.

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

Proceso TotalRecaudadoPorLaEps

    mujeres_menores_con_bronquitis_o_diabetes <- 0;

    porcentaje_hombres_mayores_de_50_con_cancer <- 0;

    total_recaudado <- 0;

    Para i<-1 Hasta 30 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el cedula:";

        Leer cedula;

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

        Escribir Sin Saltar "Ingresa el valor de edad:";

        Leer edad;

        Escribir Sin Saltar "Ingresa el valor de tratamiento:";

        Leer tratamiento;

        Escribir "Selecciona el valor de sexo.";

        Escribir "    1.- Mujer";

        Escribir "    2.- Masculino";

        Escribir Sin Saltar "    :";

        Repetir

            Leer sexo;

            Si sexo<1 O sexo>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que sexo>=1 Y sexo<=2;

        Escribir "Selecciona el valor de tipo de dolencia.";

        Escribir "    1.- Bronquitis";

        Escribir "    2.- Presión alta";

        Escribir "    3.- Cáncer";

        Escribir "    4.- Diabetes";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_dolencia;

            Si tipo_de_dolencia<1 O tipo_de_dolencia>4 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que tipo_de_dolencia>=1 Y tipo_de_dolencia<=4;

        Escribir "Selecciona el valor de estrato.";

        Escribir "    1.- Uno";

        Escribir "    2.- Dos";

        Escribir "    3.- Tres";

        Escribir "    4.- Cuatro";

        Escribir "    5.- Cinco";

        Escribir "    6.- Seis";

        Escribir Sin Saltar "    :";

        Repetir

            Leer estrato;

            Si estrato<1 O estrato>6 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que estrato>=1 Y estrato<=6;

        Si edad>50 Y tipo_de_dolencia = 3 Entonces

            porcentaje_hombres_mayores_de_50_con_cancer <- porcentaje_hombres_mayores_de_50_con_cancer+1;

        FinSi

        Si edad<18 Y (tipo_de_dolencia = 1 O tipo_de_dolencia = 4) Entonces

            mujeres_menores_con_bronquitis_o_diabetes <- mujeres_menores_con_bronquitis_o_diabetes+1;

        FinSi

        total_recaudado <- total_recaudado+tratamiento;

        Escribir "Cedula: ", cedula;

        Escribir "Nombre: ", nombre;

        Escribir "";

    FinPara

    porcentaje_hombres_mayores_de_50_con_cancer <- 10.0*porcentaje_hombres_mayores_de_50_con_cancer/3;

    Escribir "Valor de mujeres menores con bronquitis o diabetes: ", mujeres_menores_con_bronquitis_o_diabetes;

    Escribir "Valor de porcentaje hombres mayores de 50 con cancer: ", porcentaje_hombres_mayores_de_50_con_cancer;

    Escribir "Valor de total recaudado: ", total_recaudado;

FinProceso