• 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
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.