Arbol Genealógico En Visual Prolog

ARBOL GENEALOGICO

HAGA UN PROGRAMA QUE PERMITA EMPLEAR LA SIGUIENTE BDC:
domains
s=symbol
i=integer

predicates
nondeterm mujer(s)
nondeterm hombre(s)
nondeterm progenitor(s,s)
nondetermpadre(s,s)
nondeterm madre(s,s)
nondeterm antepasado(s,s)

clauses
mujer(pilar). mujer(belen). mujer(lucia). mujer(ana). mujer(maria).
hombre(tomas). hombre(pedro). hombre(jose).

progenitor(pilar,belen).progenitor(tomas,belen).
progenitor(pilar,lucia).
progenitor(belen,ana).
progenitor(belen,pedro).
progenitor(pedro,jose).
progenitor(pedro,maria).


/*reglas con variables*/madre(X,Y):-mujer(X),progenitor(X,Y).
padre(X,Y):-hombre(X),progenitor(X,Y).

antepasado(X,Y):-progenitor(X,Y).
antepasado(X,Y):-progenitor(X,Z),antepasado(Z,Y).

EL PROGRAMA DEBE FUNCIONAR COMO LA APLICACIÓN HECHA EN MODO TEXTO ADECIR:

DEBE PERMITIR INGRESAR UN NOMBRE

DEBE INDICAR
1. SI ES HOMBRE EN LA BDC O NO SE ENCUENTRA
2. SI ES MUJER EN LA BDC O NO SE ENCUENTRA
3. LOS HIJOS DE LOS QUE ES PADRE
4.LOS HIJOS DE LOS QUE ES MADRE
5. SUS DESCENDIENTES

[pic]

Llenar la lista (sección de creación de componentes)
[pic]
Comentario
Lista es una estructura de datos de 5 elementos de cadena.
M_Lista1es la variable manejadora del ListBox con constante idc_buscar
lbox_add es un predicado para añadir elementos en objetos ListBox. En este caso añade al objeto asociado a la variable manejadoraM_Lista1 (idc_buscar) el contenido de la lista Lista

Código para realizar la búsqueda (en el evento SelChanged de idc_buscar)
[pic]
Comentario
M_T1 manejador de idc_persona; M_Lista1 manejador deidc_buscar. Todas las variables son locales por lo que debo definir nuevamente el manejador de idc_buscar.
Persona es la variable de cadena que “coge” el contenido del manejador M_T1.
Index coge el índice delelemento seleccionado en M_Lista1.
buscar(_win, Index, Persona) es la llamada a la cláusula pasándole el índice seleccionado y el texto en idc_persona.

Añadimos el predicado buscar en la sección de...