-
Lenguaje
Pascal
-
Descripción
En un hospital se ha hecho un estudio con el objeto de hacer una aproximación de los costos diarios de internamiento por paciente. Se obtuvo un costo promedio diario según el tiempo que el enfermo esta sin atención por una enfermedad que aqueja al paciente, además se pudo determinar que en promedio todos los pacientes con edad entre 14 y 22 años implican un costo adicional del 10%. La siguiente tabla expresa los costos diarios según el tipo de enfermedad.
Tiempo sin atención | Costo diario por paciente
Menos de 1 hora | 5
De 1 hora a menos de 4 | 18
De 4 horas a menos de 10 | 25
De 10 horas a más | 30
Ingresar el tiempo de exposición del paciente en horas y su edad, para luego mostrar el costo diario de su hospitalización.
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
uses crt;
var costo_diario, edad, tiempo_sin_atencion : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de tiempo sin atencion: ');
readln (tiempo_sin_atencion);
costo_diario := 0;
if tiempo_sin_atencion<1 then
begin
costo_diario := 5;
end;
if (tiempo_sin_atencion>=1) and (tiempo_sin_atencion<4) then
begin
costo_diario := 18;
end;
if (tiempo_sin_atencion>=4) and (tiempo_sin_atencion<10) then
begin
costo_diario := 25;
end;
if tiempo_sin_atencion>=10 then
begin
costo_diario := 30;
end;
if (edad>=14) and (edad<=22) then
begin
costo_diario := costo_diario*1.1;
end;
writeln ('Valor de costo diario: ', costo_diario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.