-
Lenguaje
Pascal
-
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
28
29
30
31
32
33
34
35
36
37
38
39
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
program ImportePorUnPacienteHospitalizado;
uses crt;
var costo_por_dia, descuento, edad, neto_a_pagar_por_dia, tipo_de_enfermedad : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de tipo de enfermedad: ');
readln (tipo_de_enfermedad);
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 := 420;
end;
descuento := 0;
if (edad<18) and (tipo_de_enfermedad=1) then
begin
descuento := -costo_por_dia*0.2;
end;
if (edad>54) and (tipo_de_enfermedad=3) then
begin
descuento := costo_por_dia*0.12;
end;
neto_a_pagar_por_dia := costo_por_dia+descuento;
writeln ('Valor de costo por dia: ', costo_por_dia:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de neto a pagar por dia: ', neto_a_pagar_por_dia:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_por_dia, descuento, edad, neto_a_pagar_por_dia, tipo_de_enfermedad : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de tipo de enfermedad: ');
readln (tipo_de_enfermedad);
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 := 420;
end;
descuento := 0;
if (edad<18) and (tipo_de_enfermedad=1) then
begin
descuento := -costo_por_dia*0.2;
end;
if (edad>54) and (tipo_de_enfermedad=3) then
begin
descuento := costo_por_dia*0.12;
end;
neto_a_pagar_por_dia := costo_por_dia+descuento;
writeln ('Valor de costo por dia: ', costo_por_dia:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de neto a pagar por dia: ', neto_a_pagar_por_dia:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.