Catalogo Autos Prolog

Agosto 15, 2011
Proyecto PROLOG
Catálogo de Autos.
:-dynamic es_auto/2.

es_auto(deportivo,evo).
es_auto(depotivo,ferrari).
es_auto(deportivo,jaguar).
es_auto(deportivo,lamborgini).es_auto(deportivo,lotus).
es_auto(deportivo,bugatti).
es_auto(deportivo,porsche).
es_auto(familiar,jetta).
es_auto(familiar,bora).
es_auto(familiar,sentra).
es_auto(familiar,megane).es_auto(familiar,lancer).
es_auto(familiar,neon).
es_auto(antiguo,chevelle).
es_auto(antiguo,malibu).
es_auto(antiguo,cordoba).
es_auto(antiguo,valiant).
es_auto(antiguo,lebaron).

es_auto_color(verde,jaguar).es_auto_color(verde,lotus).
es_auto_color(rojo,ferrari).
es_auto_color(blanco,lancer).
es_auto_color(blanco,lotus).
es_auto_color(negro,evo).
es_auto_color(amarillo,lamborgini).es_auto_color(amarillo,porsche).
es_auto_color(negro,bugatti).
es_auto_color(negro,jetta).
es_auto_color(rojo,sentra).
es_auto_color(plata,neon).
es_auto_color(plata,lebaron).
es_auto_color(plata,valiant).es_auto_color(plata,cordoba).

es_año_auto(1980,cordoba).
es_año_auto(1980,valiant).
es_año_auto(1980,chevelle).
es_año_auto(1980,lebaron).
es_año_auto(1980,malibu).
es_año_auto(2000,sentra).es_año_auto(2000,neon).
es_año_auto(2002,jetta).
es_año_auto(2002,megane).
es_año_auto(2004,bora).
es_año_auto(2006,lancer).
es_año_auto(2008,evo).
es_año_auto(2008,porsche).es_año_auto(2008,lamborgini).
es_año_auto(2010,lotus).
es_año_auto(2010,ferrari).

es_precio(450,evo).
es_precio(100800,ferrari).
es_precio(700,jaguar).
es_precio(300800,lamborgini).
es_precio(900,lotus).es_precio(100000,bugatti).
es_precio(900,porsche).
es_precio(100,jetta).
es_precio(200,bora).
es_precio(80,sentra).
es_precio(120,megane).
es_precio(250,lancer).
es_precio(60,neon).es_precio(300,chevelle).
es_precio(320,malibu).
es_precio(350,valiant).
es_precio(370,cordoba).
es_precio(400,lebaron).

auto_categoria:-repeat,write('bienvenido al catalogo de autos------->'),write('¿Que...