Abraço camarada.

cosper:

oi amigo ajuda me com o trabalho que tenho que entregar mas nao entendo quase nada em prolog aqui vai
1. Analise o seguinte trecho, extraído do livro “Harry Potter e a Pedra Filosofal”, de
J.K.Rowling, editora Rocco, 2000.
“Harry abriu a porta seguinte, os dois mal se atreviam a olhar o que vinha a seguir, mas não havia nada
muito assustador ali, apenas uma mesa e sobre ela sete garrafas de formatos diferentes.
— É o de Snape — disse Harry. — O que temos de fazer?
Ao cruzarem a soleira da porta, imediatamente irromperam chamas atrás deles. E não eram chamas
comuns tampouco, eram roxas. Ao mesmo tempo, surgiam chamas pretas na porta adiante. Estavam
encurralados.
— Olhe! — Hermione apanhou um rolo de papel que havia ao lado das garrafas. Harry espiou por cima
do seu ombro para ler o papel:
O perigo o aguarda à frente, a segurança ficou atrás,
Duas de nós o ajudaremos no que quer encontrar,
Uma das sete te deixará prosseguir,
A outra levará de volta quem a beber,
Duas de nós conterão vinho de urtigas;
Três de nós aguardam em fila para o matar,
Escolha, ou ficará aqui para sempre,
E para ajudá-lo, lhe damos quatro pistas:
Primeira, por mais dissimulado que seja o veneno,
Você sempre encontrará um à esquerda de um vinho
de urtigas;
Segunda, são diferentes as garrafas de cada
extremidade,
Mas se você quiser avançar nenhuma é sua amiga;
Terceira, é visível que temos tamanhos diferentes,
Nem anã nem giganta leva a morte no bojo;
Quarta, a segunda à esquerda e a segunda à direita
São gêmeas ao paladar, embora diferentes à vista.
Hermione deixou escapar um grande suspiro e Harry, perplexo, viu que ela sorria, a última coisa que ele
tinha vontade de fazer.
— Genial — disse — Isto não é mágica, é lógica…”
Ajude Harry e Hermione a impedir o Lorde das Trevas de voltar ao poder. Escreva um
programa em Prolog que resolva a charada de lógica acima e decida qual garrafa Harry deve
beber para seguir adiante.
Dica 1: Represente as 7 garrafas em uma lista. O seguintes predicados podem ajudar:
% Encontra uma permutação em uma lista
permutacao([],[]).
permutacao(L,[X|P]) :- apaga(X,L,L1), permutacao(L1,P).
apaga(X,[X|L],L).
apaga(X,[Y|L],[Y|L1]) :- apaga(X,L,L1).
% Encontra o índice de um dado elemento em uma lista
indice(X, [X|_], 0) :- !.
indice(X, [_|L], N) :- indice(X, L, N1), N is N1 + 1.
% Encontra o elemento em uma dada posição da lista
elemento(X, [X|_], 0) :- !.
elemento(X, [_|L], N) :- N1 is N – 1, elemento(X, L, N1).
% Retorna uma sublista a partir de uma posição fornecida
% Este predicado pode ser útil para implementar a recursividade na primeira
% pista, já que nela você vai precisar testar as posições de toda ocorrência
% de uma garrafa de vinho de urtigas.
sublista(L, 0, L) :- !.
sublista([_|L1], N, L2) :- N1 is N – 1, sublista(L1, N1, L2).
Dica 2: A autora não descreve no texto a disposição exata das garrafas na mesa, porém essa
informação é essencial para a resolução do problema. Assuma que as garrafas estão dispostas
conforme a sequência abaixo:
grande, gigante, média, anã, pequena, quadrada, arredondada

1. Analise o seguinte trecho, extraído do livro “Harry Potter e a Pedra Filosofal”, de
J.K.Rowling, editora Rocco, 2000.
“Harry abriu a porta seguinte, os dois mal se atreviam a olhar o que vinha a seguir, mas não havia nada
muito assustador ali, apenas uma mesa e sobre ela sete garrafas de formatos diferentes.
— É o de Snape — disse Harry. — O que temos de fazer?
Ao cruzarem a soleira da porta, imediatamente irromperam chamas atrás deles. E não eram chamas
comuns tampouco, eram roxas. Ao mesmo tempo, surgiam chamas pretas na porta adiante. Estavam
encurralados.
— Olhe! — Hermione apanhou um rolo de papel que havia ao lado das garrafas. Harry espiou por cima
do seu ombro para ler o papel:
O perigo o aguarda à frente, a segurança ficou atrás,
Duas de nós o ajudaremos no que quer encontrar,
Uma das sete te deixará prosseguir,
A outra levará de volta quem a beber,
Duas de nós conterão vinho de urtigas;
Três de nós aguardam em fila para o matar,
Escolha, ou ficará aqui para sempre,
E para ajudá-lo, lhe damos quatro pistas:
Primeira, por mais dissimulado que seja o veneno,
Você sempre encontrará um à esquerda de um vinho
de urtigas;
Segunda, são diferentes as garrafas de cada
extremidade,
Mas se você quiser avançar nenhuma é sua amiga;
Terceira, é visível que temos tamanhos diferentes,
Nem anã nem giganta leva a morte no bojo;
Quarta, a segunda à esquerda e a segunda à direita
São gêmeas ao paladar, embora diferentes à vista.
Hermione deixou escapar um grande suspiro e Harry, perplexo, viu que ela sorria, a última coisa que ele
tinha vontade de fazer.
— Genial — disse — Isto não é mágica, é lógica…”
Ajude Harry e Hermione a impedir o Lorde das Trevas de voltar ao poder. Escreva um
programa em Prolog que resolva a charada de lógica acima e decida qual garrafa Harry deve
beber para seguir adiante.
Dica 1: Represente as 7 garrafas em uma lista. O seguintes predicados podem ajudar:
% Encontra uma permutação em uma lista
permutacao([],[]).
permutacao(L,[X|P]) :- apaga(X,L,L1), permutacao(L1,P).
apaga(X,[X|L],L).
apaga(X,[Y|L],[Y|L1]) :- apaga(X,L,L1).
% Encontra o índice de um dado elemento em uma lista
indice(X, [X|_], 0) :- !.
indice(X, [_|L], N) :- indice(X, L, N1), N is N1 + 1.
% Encontra o elemento em uma dada posição da lista
elemento(X, [X|_], 0) :- !.
elemento(X, [_|L], N) :- N1 is N – 1, elemento(X, L, N1).
% Retorna uma sublista a partir de uma posição fornecida
% Este predicado pode ser útil para implementar a recursividade na primeira
% pista, já que nela você vai precisar testar as posições de toda ocorrência
% de uma garrafa de vinho de urtigas.
sublista(L, 0, L) :- !.
sublista([_|L1], N, L2) :- N1 is N – 1, sublista(L1, N1, L2).
Dica 2: A autora não descreve no texto a disposição exata das garrafas na mesa, porém essa
informação é essencial para a resolução do problema. Assuma que as garrafas estão dispostas
conforme a sequência abaixo:
grande, gigante, média, anã, pequena, quadrada, arredondada

1. Analise o seguinte trecho, extraído do livro “Harry Potter e a Pedra Filosofal”, de
J.K.Rowling, editora Rocco, 2000.
“Harry abriu a porta seguinte, os dois mal se atreviam a olhar o que vinha a seguir, mas não havia nada
muito assustador ali, apenas uma mesa e sobre ela sete garrafas de formatos diferentes.
— É o de Snape — disse Harry. — O que temos de fazer?
Ao cruzarem a soleira da porta, imediatamente irromperam chamas atrás deles. E não eram chamas
comuns tampouco, eram roxas. Ao mesmo tempo, surgiam chamas pretas na porta adiante. Estavam
encurralados.
— Olhe! — Hermione apanhou um rolo de papel que havia ao lado das garrafas. Harry espiou por cima
do seu ombro para ler o papel:
O perigo o aguarda à frente, a segurança ficou atrás,
Duas de nós o ajudaremos no que quer encontrar,
Uma das sete te deixará prosseguir,
A outra levará de volta quem a beber,
Duas de nós conterão vinho de urtigas;
Três de nós aguardam em fila para o matar,
Escolha, ou ficará aqui para sempre,
E para ajudá-lo, lhe damos quatro pistas:
Primeira, por mais dissimulado que seja o veneno,
Você sempre encontrará um à esquerda de um vinho
de urtigas;
Segunda, são diferentes as garrafas de cada
extremidade,
Mas se você quiser avançar nenhuma é sua amiga;
Terceira, é visível que temos tamanhos diferentes,
Nem anã nem giganta leva a morte no bojo;
Quarta, a segunda à esquerda e a segunda à direita
São gêmeas ao paladar, embora diferentes à vista.
Hermione deixou escapar um grande suspiro e Harry, perplexo, viu que ela sorria, a última coisa que ele
tinha vontade de fazer.
— Genial — disse — Isto não é mágica, é lógica…”
Ajude Harry e Hermione a impedir o Lorde das Trevas de voltar ao poder. Escreva um
programa em Prolog que resolva a charada de lógica acima e decida qual garrafa Harry deve
beber para seguir adiante.
Dica 1: Represente as 7 garrafas em uma lista. O seguintes predicados podem ajudar:
% Encontra uma permutação em uma lista
permutacao([],[]).
permutacao(L,[X|P]) :- apaga(X,L,L1), permutacao(L1,P).
apaga(X,[X|L],L).
apaga(X,[Y|L],[Y|L1]) :- apaga(X,L,L1).
% Encontra o índice de um dado elemento em uma lista
indice(X, [X|_], 0) :- !.
indice(X, [_|L], N) :- indice(X, L, N1), N is N1 + 1.
% Encontra o elemento em uma dada posição da lista
elemento(X, [X|_], 0) :- !.
elemento(X, [_|L], N) :- N1 is N – 1, elemento(X, L, N1).
% Retorna uma sublista a partir de uma posição fornecida
% Este predicado pode ser útil para implementar a recursividade na primeira
% pista, já que nela você vai precisar testar as posições de toda ocorrência
% de uma garrafa de vinho de urtigas.
sublista(L, 0, L) :- !.
sublista([_|L1], N, L2) :- N1 is N – 1, sublista(L1, N1, L2).
Dica 2: A autora não descreve no texto a disposição exata das garrafas na mesa, porém essa
informação é essencial para a resolução do problema. Assuma que as garrafas estão dispostas
conforme a sequência abaixo:
grande, gigante, média, anã, pequena, quadrada, arredondada

junior:

Amigo ajuda tenho que entregar esse trabalho segunda po favor.Ja to fudido nessa disciplina
Um general do exército americano desenvolveu uma estratégia de ataque a guerrilhas terroristas
armadas localizadas em campos sitiados por recursos naturais, como ilhas, área planas limitadas por montanhas,
rios etc. A sua estratégia baseia-se em colocar grupos armados em pontos estratégicos o mais próximo possível
do inimigo, formando uma área retangular – área de “sufoco”. A figura abaixo, mostra três grupos de guerrilhas
e os grupos armados localizados de forma estratégica, definindo os pontos de sufoco.
Tarefa
Você deve desenvolver um programa que permita calcular os pontos onde serão posicionados os
grupos armados, de forma a cria a menor área disponível aos grupos terroristas. Além disso, o programa deve
calcular o tamanho dessa área em km2.
Entrada
A entrada é composta de uma base de fatos Prolog, contendo vários conjuntos de teste. Os conjuntos
de testes são formatos por: a) fato para descrever a área geográfica, sendo que a área geográfica é minimamente
formada por dois inteiros M e N que correspondem às dimensões em km da área geográfica; b) fato
descrevendo a localização das guerrilhas, sendo cada guerrilha descrita minimamente por dois inteiros X e Y
representando X e Y coordenadas de localização . Restrições: 0<M<100; 0<N<100; 0<x<M; e 0<y<N.
Exemplo de Entrada
Conjunto 1 Conjunto 2
Fato a 30 30 50 50
Fatos b 20 21
23 23
19 21
49 49
48 49

Jr. favor entrar em contato comigo no paulopatto@gmail.com

Eu uso o netbeans e gostaria de saber se posso fazer essa junção, ou se posso fazer de outra forma.

Eu preciso fazer um trabalho que implemente o problema do caixeiro viajante em prolog.
Se vc tiver algum material pode mandar pro meu e-mail? Abraço!!!