Advertisement
Guest User

Untitled

a guest
Nov 15th, 2012
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.03 KB | None | 0 0
  1. % REFFERENCIA
  2. referencia('Chevrolet Aveo', '4', 1.5, '120').
  3. referencia('Chevrolet Spark', '5', 1.0, '110').
  4. referencia('Mazda2', '5', 1.5, '150').
  5. referencia('Renault Twingo', '3', 1.2, '130').
  6. referencia('Renault Logan', '4', 1.4,'130').
  7. referencia('Hyundai I10', '5', 1.0, '110').
  8. referencia('Hyundai I35', '4', 1.8, '160').
  9.  
  10. % VEHICULO
  11.  
  12. vehiculo('Chevrolet Aveo','KDT-256', '2011').
  13. vehiculo('Mazda 2', 'CBF-198', '2010').
  14. vehiculo('Renault Twingo', 'BNP-298', '2009').
  15. vehiculo('Renault Logan', 'WNT-389', '2011').
  16. vehiculo('Chevrolet Spark', 'FNP-456', '2008').
  17. vehiculo('Renault Twingo', 'RAT-819', '2008').
  18. vehiculo('Hyundai I10', 'MWT-456', '2012').
  19. vehiculo('Hyundai I35', 'NPR-765', '2010').
  20. vehiculo('Chevrolet Aveo', 'CTW-226', '2010').
  21. vehiculo('Chevrolet Spark', 'NWX-568', '2007').
  22.  
  23. % PROPIETARIO
  24.  
  25. propietario('Alberto Ramirez', '94400256', '300-7744256').
  26. propietario('Marina Duque', '92000198', '312-7654198').
  27. propietario('Alberto Renteria', '93000298', '317-6789298').
  28. propietario('Juan Fernandez', '94100389', '320-6923389').
  29. propietario('Valentina Yepes', '91000456', '318-2008456').
  30. propietario('Victor Ruano', '93100819', '301-5567819').
  31. propietario('Carmen Idrobo', '94500456', '300-2315456').
  32. propietario('Fernando Arteaga', '91900765', '316-9087765').
  33. propietario('German Luna', '92000226', '320-4650226').
  34. propietario('Roberto Garcia', '93600568', '311-1022568').
  35.  
  36. % REVISION
  37.  
  38. revision('CBF-198', '24-Oct-2011', 'P').
  39. revision('CBF-198', '10-Feb-2012', 'N').
  40. revision('BNP-298', '4-Dic-2010', 'C').
  41. revision('KDT-256', '18-Oct-2011', 'C').
  42. revision('RAT-819', '9-Agost-2008', 'P').
  43. revision('FNP-456', '10-Mayo-2009', 'P').
  44. revision('FNP-456', '29-Abril-2010', 'N').
  45. revision('WNT-389', '2-Feb-2012', 'P').
  46. revision('MWT-456', '10-Abril-2012', 'N').
  47. revision('NPR-765', '25-Nov-2010', 'C').
  48. revision('MWT-456', '20-Sept-2012', 'P').
  49. revision('CTW-226', '5-Ene-2011', 'N').
  50. revision('CTW-226', '10-Nov-2011', 'N').
  51. revision('NWX-568', '5-Marz-2008', 'P').
  52. revision('NWX-568', '10-Feb-2009', 'C').
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement