En este grupo En todos

Foro de Prolog



ayuda con ejerciciod e prolog

carlos
Ingenieria en informatica uci universi...
Escrito por Carlos Gonzalez
el 22/04/2010

<! -- /* Font Definitions */ @font-face {font-family:"Cambria Math"; panose-1:2 4 5 3 5 4 6 3 2 4; mso-font-charset:0; mso-generic-font-family:roman; mso-font-pitch:variable; mso-font-signature:-1610611985 1107304683 0 0 159 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-1610611985 1073750139 0 0 159 0;} @font-face {font-family:Verdana; panose-1:2 11 6 4 3 5 4 4 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:536871559 0 0 0 415 0;} /* Style Definitions */ p. MsoNormal, li. MsoNormal, div. MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin-top:0in; margin-right:0in; margin-bottom:10. 0pt; margin-left:0in; line-height:115%; mso-pagination:widow-orphan; font-size:11. 0pt; font-family:"Calibri","sans-serif"; mso-fareast-font-family:Calibri; mso-bidi-font-family:"Times New Roman"; mso-ansi-language:ES;}. MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; font-size:10. 0pt; mso-ansi-font-size:10. 0pt; mso-bidi-font-size:10. 0pt; mso-ascii-font-family:Calibri; mso-fareast-font-family:Calibri; mso-hansi-font-family:Calibri;} @page Section1 {size:8. 5in 11. 0in; margin:1. 0in 1. 0in 1. 0in 1. 0in; mso-header-margin:. 5in; mso-footer-margin:. 5in; mso-paper-source:0;} div. Section1 {page:Section1;} /* List Definitions */ @list l0 {mso-list-id:476799577; mso-list-type:hybrid; mso-list-template-ids:-1996170900 67698703 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;} @list l0:level1 {mso-level-tab-stop:none; mso-level-number-position:left; text-indent:-. 25in;} @list l1 {mso-list-id:2009747095; mso-list-type:hybrid; mso-list-template-ids:881383384 144489924 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;} @list l1:level1 {mso-level-number-format:alpha-lower; mso-level-tab-stop:none; mso-level-number-position:left; text-indent:-. 25in; mso-ansi-font-weight:normal;} ol {margin-bottom:0in;} ul {margin-bottom:0in;} -->

a. DADA LA SIGUIENTE base de hechos de Prolog con al menos seis ejemplos hipotéticos de ómnibus.


BaseOmnibus([
omnibus(HDA 123,654,Marianao -lido,[
chofer(Esteban,32,[
l,mi,v,d]),
chofer(ernesto,26,[
ma,j,s])]),

omnibus(HDB 456,655,Marianao -vedado,[
chofer(aalvaro,52,[
l,mi,v]),
chofer(alberto,62,[
ma,j,s])]),

omnibus(HDC 789,656,Marianao -habana vieja,[
chofer(carlos ,38,[
d,ma,j]),
chofer(manuel ,25,[
l,mi,v])]),

omnibus(HDD 147,657,marianao -novia del mediodia,[
chofer(gustavo,33,[
ma,j,s]),
chofer(janio ,60,[
l,mi,v,d])]),

omnibus(HDE 258,658,marianao -centro habana,[
chofer(charles,39,[
d,ma,j]),
chofer(alexander,42,[
l,mi,v,s])]),

omnibus(HDF 369,659,marianao -cotorro,[
chofer(yasmany ,49,[
l,mi,v,d]),
chofer(gilberto,31,[
ma,mi,j])])]).




b. Confeccione predicados en Prolog que permitan realizar las siguientes operaciones:

1. Dado la chapa de un ómnibus obtener el nombre de dos de los choferes que lo conducen.

2. Obtener dado un día de la semana el listado de los choferes que trabajan dicho día.

3. Dado el identificador de un ómnibus determinar el nombre del chofer que más días a la semana trabaja.

4. Dado el identificador de un ómnibus obtener los días laborables de los choferes mayores de 50 años.

c. Utilice un menú de opciones donde un usuario pueda acceder a cada una de las anteriores operaciones.