Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
ver(covid):- sintoma(fiebre), sintoma(tos_seca), sintoma(cansancio), sintoma(dolor_de_garganta), sintoma(diarrea), sintoma(dolor_de_cabeza), sintoma(perdida_sentido_olfato_y/o_gusto), sintoma(dificultad_de_respirar), writeln("Tienes covid-19"), writeln("¿Qué es? COVID-19 es la enfermedad infecciosa causada por el coronavirus que se ha descubierto más recientemente. Tanto el nuevo virus como la enfermedad eran desconocidos antes de que estallara el brote en Wuhan (China) en diciembre de 2019."), writeln("Gravedad: Alta gravedad"), writeln("Tratamiento: Si tiene síntomas leves y, por lo demás, está sano, aíslese y póngase en contacto con su proveedor de atención médica o con una línea de información sobre la COVID-19 para recibir asesoramiento."),!. valida(Pregunta) :- write("¿Usted tiene "), write(Pregunta), write("? "), read(Resp),nl, ((Resp == si ; Resp == s) -> assert(si(Pregunta)) ; assert(no(Pregunta)), fail). sintoma(S) :- (si(S) -> true ; (no(S) -> fail ; valida(S))). :- dynamic si/1,no/1.