• Lenguaje

    Pascal

  • Descripción

    Calcular y mostrar el costo total qué representa un paciente para un hospital de acuerdo al tipo de enfermedad según los datos de la tabla, adicionalmente deberá considerarse que las mujeres tienen un incremento del 10% para el primer tipo de enfermedad y los hombres tienen un incremento del 5% para el tercer tipo de enfermedad.
    Tipo de enfermedad | Costo del paciente por día
    1 | 200
    2 | 350
    3 | 410

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
program CostoDeUnPacienteEnUnHospital;
uses crt;

var genero : integer;
var costo_por_dia, costo_total, dias_interno, tipo_de_enfermedad : real;
begin
    write ('Ingresa el valor de dias interno: ');
    readln (dias_interno);
    write ('Ingresa el valor de tipo de enfermedad: ');
    readln (tipo_de_enfermedad);
    writeln ('Selecciona el valor de genero.');
    writeln ('    1.- Mujer');
    writeln ('    2.- Hombre');
    write ('    : ');
    repeat
        readln (genero);
        if (genero<1) or (genero>2) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (genero>=1) and (genero<=2);
    costo_por_dia := 0;
    if tipo_de_enfermedad=1 then
        begin
            costo_por_dia := 200;
        end;
    if tipo_de_enfermedad=2 then
        begin
            costo_por_dia := 350;
        end;
    if tipo_de_enfermedad=3 then
        begin
            costo_por_dia := 410;
        end;
    if (genero=1) and (tipo_de_enfermedad=1) then
        begin
            costo_por_dia := costo_por_dia*1.1;
        end;
    if (genero=2) and (tipo_de_enfermedad=3) then
        begin
            costo_por_dia := costo_por_dia*1.05;
        end;
    costo_total := costo_por_dia*dias_interno;
    writeln ('Valor de costo por dia: ', costo_por_dia:0:6);
    writeln ('Valor de costo total: ', costo_total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.