artres

Trabalho de Lógica:
Ligação de tabelas em prolog

Vitória da Conquista,
08 de junho de 2011

/*Algumas pessoas*/
/*(nome,sexo,idade,pai,mae)*/
pessoa(carlos,m,26,jose,maria). pessoa(hugo,m,18,joaquim,lia). pessoa(maria,f,58,carmelito,adriana). pessoa(felipe,m,22,beto,nilda). pessoa(marcelo,m,34,jose,maria). pessoa(alexandre,m,15,beto,lia). pessoa(lilian,f,5,felipe,isabella). pessoa(beto,m,45,jordan,julia). /*Algumas animais*/
/*(animal,raça,nome,cor,dono)*/
animal(cachorro,pitbull,rex,branco,carlos). animal(cachorro,dalmata,tobby,branco,beto). animal(gato,siames,bidu,amarelo,lilian). animal(peixe,beta,lico,azul,lia). animal(cachorro,pastor_alemao,adolfo,preto,felipe). animal(peixe,palhaco,fluflu,laranja,hugo). animal(gato,siames,lola,cinza,alexandre).
/*regra para avo*/

avo(Avo,Neto):- pessoa(Neto,Sexo1,Idade1,Pai,Mae), pessoa(Pai,Sexo,Idade,Avo,Mae2).

Perguntas:

/* qual a idade do dono de adolfo?

pessoa(Nome,Sexo,Idade,Pai,Mae),animal(Animal,Raca,adolfo,Cor,Nome).

Animal = cachorro
Cor = preto
Idade = 22
Mae = nilda
Nome = felipe
Pai = beto
Raca = pastor_alemao
Sexo = m ? ;

Quem sao os donos dos gatos siameses ?

pessoa(Dono,Sexo,Idade,Pai,Mae),animal(Animal,siames,Apelido,Cor,Dono).

Animal = gato
Apelido = lola
Cor = cinza
Dono = alexandre
Idade = 15
Mae = lia
Pai = beto
Sexo = m ? ;

Animal = gato
Apelido = bidu
Cor = amarelo
Dono = lilian
Idade = 5
Mae = isabella
Pai = felipe
Sexo = f ? ;

Qual é a raça do cachorro de carlos?

pessoa(carlos,Sexo,Idade,Pai,Mae),animal(Animal,Raca,Apelido,Cor,carlos).

Animal = cachorro
Apelido = rex
Cor = branco
Idade = 26
Mae = maria
Pai = jose
Raca = pitbull
Sexo = m ? ;

Quem tem cachorro?

pessoa(Dono,Sexo,Idade,Pai,Mae),animal(cachorro,Raca,Apelido,Cor,Dono).

Apelido = rex
Cor =