-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Tomando como base los resultados obtenidos en un laboratorio de análisis clínicos, un médico determina si una persona tiene anemia o no, lo cual depende de su nivel de hemoglobina en la sangre, de su edad y de su sexo. Si el nivel de hemoglobina que tiene una persona es menor que el rango que le corresponde, se determina su resultado como positivo y en caso contrario como negativo. La tabla en la que el medico se basa para obtener el resultado es la siguiente:
Edad | Nivel de hemoglobina
0 - 1 mes | 13 - 26 g%
1 y <= 6 meses | 10 - 18 g%
6 y <= 12 meses | 11 - 15 g%
1 y <= 5 años | 11.5 - 15 g%
5 y <= 10 años | 12.6 - 15.5 g%
10 y <= 15 años | 13 - 15.5 g%
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
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
Proceso DiagnosticoDeAnemia
Escribir Sin Saltar "Ingresa el valor de edad en meses:";
Leer edad_en_meses;
Escribir Sin Saltar "Ingresa el valor de nivel de hemoglobina:";
Leer nivel_de_hemoglobina;
rango_menor <- 0;
Si edad_en_meses<=1 Entonces
rango_menor <- 13;
FinSi
Si edad_en_meses>1 Y edad_en_meses<=6 Entonces
rango_menor <- 10;
FinSi
Si edad_en_meses>6 Y edad_en_meses<=12 Entonces
rango_menor <- 11;
FinSi
Si edad_en_meses>12 Y edad_en_meses<=60 Entonces
rango_menor <- 11.5;
FinSi
Si edad_en_meses>30 Y edad_en_meses<=120 Entonces
rango_menor <- 12.6;
FinSi
Si edad_en_meses>120 Y edad_en_meses<=180 Entonces
rango_menor <- 13;
FinSi
Si nivel_de_hemoglobina<rango_menor Entonces
Escribir "Positivo en anemia";
SiNo
Escribir "Negativo en anemia";
FinSi
Escribir "Valor de rango menor: ", rango_menor;
FinProceso
Escribir Sin Saltar "Ingresa el valor de edad en meses:";
Leer edad_en_meses;
Escribir Sin Saltar "Ingresa el valor de nivel de hemoglobina:";
Leer nivel_de_hemoglobina;
rango_menor <- 0;
Si edad_en_meses<=1 Entonces
rango_menor <- 13;
FinSi
Si edad_en_meses>1 Y edad_en_meses<=6 Entonces
rango_menor <- 10;
FinSi
Si edad_en_meses>6 Y edad_en_meses<=12 Entonces
rango_menor <- 11;
FinSi
Si edad_en_meses>12 Y edad_en_meses<=60 Entonces
rango_menor <- 11.5;
FinSi
Si edad_en_meses>30 Y edad_en_meses<=120 Entonces
rango_menor <- 12.6;
FinSi
Si edad_en_meses>120 Y edad_en_meses<=180 Entonces
rango_menor <- 13;
FinSi
Si nivel_de_hemoglobina<rango_menor Entonces
Escribir "Positivo en anemia";
SiNo
Escribir "Negativo en anemia";
FinSi
Escribir "Valor de rango menor: ", rango_menor;
FinProceso