-
Lenguaje
Pascal
-
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
33
34
35
36
37
38
39
40
41
42
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
program DiagnosticoDePacientes;
uses crt;
var sintoma, temperatura : integer;
var numero_de_cama, nombre, edad : string;
begin
write ('Ingresa el numero de cama: ');
readln (numero_de_cama);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el edad: ');
readln (edad);
write ('Ingresa el valor de temperatura: ');
readln (temperatura);
writeln ('Selecciona el valor de sintoma.');
writeln (' 1.- Dolor de cabeza');
writeln (' 2.- Dolor de est'#162'mago');
write (' : ');
repeat
readln (sintoma);
if (sintoma<1) or (sintoma>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sintoma>=1) and (sintoma<=2);
if (sintoma=1) and (temperatura>38) then
begin
writeln ('El diagn'#162'stico es gripe.');
end;
if (sintoma=2) and (temperatura>38) then
begin
writeln ('El diagn'#162'stico es tifoidea.');
end;
if temperatura<=38 then
begin
writeln ('Se da de alta.');
end;
writeln ('Numero de cama: ', numero_de_cama);
writeln ('Nombre: ', nombre);
writeln ('Edad: ', edad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var sintoma, temperatura : integer;
var numero_de_cama, nombre, edad : string;
begin
write ('Ingresa el numero de cama: ');
readln (numero_de_cama);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el edad: ');
readln (edad);
write ('Ingresa el valor de temperatura: ');
readln (temperatura);
writeln ('Selecciona el valor de sintoma.');
writeln (' 1.- Dolor de cabeza');
writeln (' 2.- Dolor de est'#162'mago');
write (' : ');
repeat
readln (sintoma);
if (sintoma<1) or (sintoma>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sintoma>=1) and (sintoma<=2);
if (sintoma=1) and (temperatura>38) then
begin
writeln ('El diagn'#162'stico es gripe.');
end;
if (sintoma=2) and (temperatura>38) then
begin
writeln ('El diagn'#162'stico es tifoidea.');
end;
if temperatura<=38 then
begin
writeln ('Se da de alta.');
end;
writeln ('Numero de cama: ', numero_de_cama);
writeln ('Nombre: ', nombre);
writeln ('Edad: ', edad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.