• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Permita calcular el importe a pagar por un paciente hospitalizado en un centro de salud, por día.
    Teniendo en cuenta que el costo por día esta dado por el tipo de enfermedad, tal como se muestra en la tabla siguiente.
    Además considerar que los pacientes menores de 18 años que tienen la enfermedad tipo 1 tiene un descuento del 20% y los pacientes mayores de 54 años que tienen la enfermedad tipo 3
    tienen un incremento del 12%.
    Mostrar el costo del paciente por día, el descuento y el neto a pagar por día.
    Tipo de enfermedad | Costo/paciente/día
    1 | 200
    2 | 350
    3 | 420
    a) Cálculo del costo por tipo de enfermedad.
    b) Cálculo del descuento.
    c) Cálculo del neto a pagar por día.

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
Proceso ImportePorUnPacienteHospitalizado
    Escribir Sin Saltar "Ingresa el valor de edad:";
    Leer edad;
    Escribir Sin Saltar "Ingresa el valor de tipo de enfermedad:";
    Leer tipo_de_enfermedad;
    costo_por_dia <- 0;
    Si tipo_de_enfermedad = 1 Entonces
        costo_por_dia <- 200;
    FinSi
    Si tipo_de_enfermedad = 2 Entonces
        costo_por_dia <- 350;
    FinSi
    Si tipo_de_enfermedad = 3 Entonces
        costo_por_dia <- 420;
    FinSi
    descuento <- 0;
    Si edad<18 Y tipo_de_enfermedad = 1 Entonces
        descuento <- -costo_por_dia*0.2;
    FinSi
    Si edad>54 Y tipo_de_enfermedad = 3 Entonces
        descuento <- costo_por_dia*0.12;
    FinSi
    neto_a_pagar_por_dia <- costo_por_dia+descuento;
    Escribir "Valor de costo por dia: ", costo_por_dia;
    Escribir "Valor de descuento: ", descuento;
    Escribir "Valor de neto a pagar por dia: ", neto_a_pagar_por_dia;
FinProceso