Amanda

[Amanda004]

% Las Reglas
Git checkout -b rama-gripe
Git add.
Git commit-m"gripe(X):- malestar(X), fiebre(X), tos(X),sec_nas(X).
gripe(X):- malestar(X), fiebre(X), tos(X),sec_nas(X).
Git checkout -b rama-dengue.
Git add.
Git commit-m"dengue(X):- malestar(X), fiebre(X), dolor_art_mus(X), rash(X).
dengue(X):- malestar(X), fiebre(X), dolor_art_mus(X), rash(X).

% El diagnostico
Git checkout -b rama-principal
Git push origin rama.
diagnostico(X):-nl, write('Se investiga GRIPE'),gripe(X),
nl, write(X), write(' tiene sintomas de GRIPE.'),fail.
diagnostico(X):-nl, write('Se investiga DENGUE'), dengue(X),
nl, write(X),write(' tiene sospecha de DENGUE.').
diagnostico(X):-write(' NO SE LOGRO UN DIAGNOSTICO.').
Consulta 1
?- diagnostico(pepe).
Se investiga GRIPE
pepe tiene malestar? [s/n]: s.
pepe tiene fiebre? [s/n]: |: s.
pepe tiene tos? [s/n]: |: n.

Se investiga DENGUE
pepe tiene malestar? [s/n]: |: s.
pepe tiene fiebre? [s/n]: |: s.
pepe tiene dolor muscular o en articulaciones?[s/n]: |: s.
pepe tiene rash [s/n]: |: s.
pepe tiene sospecha de DENGUE.
Consulta 2
?- diagnostico(pepe).
Se investiga GRIPE
pepe tiene malestar? [s/n]: s.
pepe tiene fiebre? [s/n]: |: n.

Se investiga DENGUE
pepe tiene malestar? [s/n]: |: s.
pepe tiene fiebre? [s/n]: |: n.

NO SE LOGRO UN DIAGNOSTICO.