exercicios-prolog/recomenda_acao.pl at master · gabrielhomsi/exercicios-prolog · GitHub

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
/*
    Recomenda uma ação baseando-se nas seguintes condições:
    - Estradas (boas / esburacadas)
    - Tempo (ensolarado / chuvoso)
*/

entra_estrada(E) :-
    nl,
    write('Como estao as estradas?'),
    nl,
    write('(boas, esburacadas) ===>'),
    read(E).

entra_tempo(T) :-
    nl,
    write('Como esta o tempo?'),
    nl,
    write('(ensolarado, chuvoso) ===>'),
    read(T).

recomenda_acao(C, ESTRADAS, TEMPO) :-
    ESTRADAS = boas, TEMPO = ensolarado -> C = 'va a praia';
    ESTRADAS = esburacadas, TEMPO = ensolarado -> C = 'va ao parque';
    ESTRADAS = boas, TEMPO = chuvoso -> C = 'va ao restaurante';
    ESTRADAS = esburacadas, TEMPO = chuvoso -> C = 'fique em casa'.

decisao :-
    entra_estrada(Pe),
    entra_tempo(Pt),
    recomenda_acao(Z, Pe, Pt),
    nl,
    write('voce deve ==>'),
    write(Z).

/*
    Consulta:
    ?- decisao
*/