• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    En un hospital se ha hecho un estudio sobre los pacientes registrados durante los últimos 3 años, con el objeto de hacer una aproximación de los costos de internación por paciente. Se obtuvo un costo promedio diario según el tipo de enfermedad que aqueja el paciente. Además, se pudo determinar que en promedio todos los pacientes con edad entre 18 y 30 años implican un costo adicional del 4%. La siguiente tabla expresa los costos diarios, según tipo de enfermedad.
    TIPO DE ENFERMEDAD | COSTO/PACIENTE/DIA
    A | 30
    B | 40
    C | 50
    D | 60
    Calcular e imprimir el costo que representa un paciente.

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
Proceso PacientesRegistradosEnUnHospital3
    Escribir Sin Saltar "Ingresa el valor de edad:";
    Leer edad;
    Escribir "Selecciona el valor de tipo de enfermedad.";
    Escribir "    1.- A";
    Escribir "    2.- B";
    Escribir "    3.- C";
    Escribir "    4.- D";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_enfermedad;
        Si tipo_de_enfermedad<1 O tipo_de_enfermedad>4 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_enfermedad>=1 Y tipo_de_enfermedad<=4;
    costo <- 0;
    Si tipo_de_enfermedad = 1 Entonces
        costo <- 30;
    FinSi
    Si tipo_de_enfermedad = 2 Entonces
        costo <- 40;
    FinSi
    Si tipo_de_enfermedad = 3 Entonces
        costo <- 50;
    FinSi
    Si tipo_de_enfermedad = 4 Entonces
        costo <- 60;
    FinSi
    Si edad>=18 Y edad<=30 Entonces
        costo <- costo*1.4;
    FinSi
    Escribir "Valor de costo: ", costo;
FinProceso