Prolog ensayo

%===========
%pl1.pro (20140424)
%========

%hechos entidades: persona(D,A,N)
persona(1, juarez, pedro).
persona(2, gutierrez, astrid).
persona(3, fernandez, luis).
persona(4, palacios,roberto).
persona(5, lopez, hernan).
persona(6, hernandez, juan).
persona(7, perez, maria).


%hechos entidades: trabaja(D,NOML)
trabaja(1, 1).
trabaja(2, 2).
trabaja(3, 3).
trabaja(4, 4).trabaja(7, 5).
trabaja(1, 5).


%hechos entidades: locales(nl, noml)
locales(1, pepito).
locales(2, pancho).
locales(3, rojo).
locales(4, topa).
locales(5, lillo).

%hechos entidades: zonas(nz,desc)
zonas(1, norte).
zonas(2, sur).
zonas(3, este).
zonas(4, oeste).
zonas(5, centro).


%hechos entidades: tiene(nl, nz)
tiene(1,1).
tiene(2,2).
tiene(3,3).
tiene(4,4).
tiene(5,5).%predicado
detalle(D,A,N,L,Z):-
persona(D,A,N),
locales(NL, L),
zonas(NZ, Z),
trabaja(D, NL),
tiene(NL, NZ).



detalle1(D,A,N,L,Z):-
detalle(D,A,N,L,Z),
write('dni:_'), write(D),nl,write('apellido:_'), write(A),nl,
write('nombre:_'), write(N),nl,
write('numLocal:_'), write(L),nl,
write('numZona:_'), write(Z),nl,nl,

fail,
detalle1(D,A,N,L,Z).



%===========%pl1.pro (20140424)
%========

%hechos entidades: persona(D,A,N)
persona(1, juarez, pedro).
persona(2, gutierrez, astrid).
persona(3, fernandez, luis).
persona(4, palacios, roberto).
persona(5,lopez, hernan).
persona(6, hernandez, juan).
persona(7, perez, maria).


%hechos entidades: trabaja(D,NOML)
trabaja(1, 1).
trabaja(2, 2).
trabaja(3, 3).
trabaja(4, 4).
trabaja(7, 5).trabaja(1, 5).


%hechos entidades: locales(nl, noml)
locales(1, pepito).
locales(2, pancho).
locales(3, rojo).
locales(4, topa).
locales(5, lillo).

%hechos entidades: zonas(nz, desc)
zonas(1,norte).
zonas(2, sur).
zonas(3, este).
zonas(4, oeste).
zonas(5, centro).


%hechos entidades: tiene(nl, nz)
tiene(1,1).
tiene(2,2).
tiene(3,3).
tiene(4,4).
tiene(5,5).

%predicado...