-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
En un hospital se desea realizar el diagnóstico de los pacientes. Los datos de cada paciente son: número de cama, nombre, edad, síntoma (1 = dolor de cabeza, 2 = dolor de estómago) y temperatura en grados centígrados. El diagnóstico se realizará con base a las reglas de negocio que se describen a continuación:
- Si tiene síntoma de dolor de cabeza y más de 38 grados, el diagnóstico es gripe.
- Si tiene síntoma de dolor de estómago y más de 38 grados, el diagnóstico es tifoidea.
- Cualquier otro caso se da de alta.
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
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
Proceso DiagnosticoDePacientes
Escribir Sin Saltar "Ingresa el numero de cama:";
Leer numero_de_cama;
Escribir Sin Saltar "Ingresa el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de temperatura:";
Leer temperatura;
Escribir "Selecciona el valor de sintoma.";
Escribir " 1.- Dolor de cabeza";
Escribir " 2.- Dolor de estómago";
Escribir Sin Saltar " :";
Repetir
Leer sintoma;
Si sintoma<1 O sintoma>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que sintoma>=1 Y sintoma<=2;
Si sintoma = 1 Y temperatura>38 Entonces
Escribir "El diagnóstico es gripe.";
FinSi
Si sintoma = 2 Y temperatura>38 Entonces
Escribir "El diagnóstico es tifoidea.";
FinSi
Si temperatura<=38 Entonces
Escribir "Se da de alta.";
FinSi
Escribir "Numero de cama: ", numero_de_cama;
Escribir "Nombre: ", nombre;
Escribir "Edad: ", edad;
FinProceso
Escribir Sin Saltar "Ingresa el numero de cama:";
Leer numero_de_cama;
Escribir Sin Saltar "Ingresa el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de temperatura:";
Leer temperatura;
Escribir "Selecciona el valor de sintoma.";
Escribir " 1.- Dolor de cabeza";
Escribir " 2.- Dolor de estómago";
Escribir Sin Saltar " :";
Repetir
Leer sintoma;
Si sintoma<1 O sintoma>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que sintoma>=1 Y sintoma<=2;
Si sintoma = 1 Y temperatura>38 Entonces
Escribir "El diagnóstico es gripe.";
FinSi
Si sintoma = 2 Y temperatura>38 Entonces
Escribir "El diagnóstico es tifoidea.";
FinSi
Si temperatura<=38 Entonces
Escribir "Se da de alta.";
FinSi
Escribir "Numero de cama: ", numero_de_cama;
Escribir "Nombre: ", nombre;
Escribir "Edad: ", edad;
FinProceso