Prolog Programas Basicos

Programas I.A.
PROLOG

1.- Animal-de-compañía
animal_de_compañia(X):-
mascota(X),pequeño(X).
mascota(X):-gato(X).
mascota(X):-perro(X).
perro(X):-caniche(X).
pequeño(X):-caniche(X).caniche(peluso).
caniche(firulais).
caniche(rex).

2.- Agenda-Nombre

agenda(raul,1791).
agenda('Lulu',8362).
agenda(seymore,4355).
agenda('Joel',7181).
main:-
read(Nombre),agenda(Nombre,Telefono),nl,
write(Nombre),write(' Tiene el telefono :'),
write(Telefono).
3.- Agenda-Numero

agenda(raul,1791).
agenda('Lulu',8362).
agenda(seymore,4355).
agenda('Joel',7181).main:-
read(Telefono),
agenda(Nombre,Telefono),nl,
write(Telefono),write(' Es el telefono de :'),
write(Nombre).

4.- Factorial
factorial(1,1).
factorial(N,Fact):-
N1 is N-1,factorial(N1,FacN1),
Fact is N*FacN1.
main:-
write(' Dame un numero entero :'),
read(Num),
factorial(Num,FactNum),
write(' El factorial del numero '),
write(num),
write(' es'),
write(FactNum).
5.- Suma-sucesiva
suma(1,1).
suma(X,Y):-
X1 is X-1,
suma(X1,Y1),
Y is Y1+X.
main:-
write(' Dame un numero entero :'),
read(X),
suma(X,Y),write(' La suma sucesiva del numero : '),
write(X),
write(' hasta 1 es = '),
write(Y).

5,2.-
suma(1,1).
suma(N,Res):-
X1 is X-1,
suma(X1,Y1),
Res is Y1+N.
main:-write(' Dame un numero entero :'),
read(N),
suma(N,Res),
write(' La suma sucesiva del numero : '),
write(N),
write(' hasta 1 es = '),
write(Res).
6.-
Agenda opmain:-
write(' Esta es mi agenda con opciones'),nl,nl,
repeat,

muestraop(X),
X==5,
write(' Gracias por utilizar mi agenda'),nl,nl.

muestraop(X):-
write(' Escribe una opcion (terminacon un punto) '),nl,nl,
write(' 1.- Listar mi agenda'),nl,
write(' 2.- Consulta por nombre'),nl,
write(' 3.- Consulta por numero'),nl,
write(' 4.- Alta en Agenda'),nl,
write('...