Advertisement
Guest User

Untitled

a guest
Oct 19th, 2017
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 1.33 KB | None | 0 0
  1. aprobada(X):- rendida(X).
  2. aprobada(X):- promocionada(X).
  3.  
  4. puedeCursar(X):- not(aprobada(X)), not(regular(X)), (
  5.  
  6. % Plan de estudios.
  7.  
  8. puedeCursar(01).
  9. puedeCursar(02).
  10. puedeCursar(03).
  11. puedeCursar(04).
  12. puedeCursar(05).
  13. puedeCursar(06).
  14. puedeCursar(07).
  15. puedeCursar(08).
  16. puedeCursar(09).
  17. puedeCursar(10):- regular(01), regular(02).
  18. puedeCursar(11):- regular(01), regular(07).
  19. puedeCursar(12):- regular(04), regular(05).
  20. puedeCursar(13):- regular(03), regular(05).
  21. puedeCursar(14):- regular(03), regular(05).
  22. puedeCursar(15):- regular(03), regular(05), regular(06).
  23. puedeCursar(16).
  24. puedeCursar(17):- regular(01), regular(02).
  25. puedeCursar(18):- regular(12), regular(14), aprobada(03), aprobada(04), aprobada(05).
  26. puedeCursar(19):- regular(06), regular(10), regular(11), aprobada(01), aprobada(02), aprobada(07).
  27. puedeCursar(20):- regular(10), aprobada(01), aprobada(02).
  28. puedeCursar(21).
  29. puedeCursar(22).
  30. puedeCursar(23).
  31. puedeCursar(24).
  32. puedeCursar(25).
  33. puedeCursar(26).
  34. puedeCursar(27).
  35. puedeCursar(28).
  36. puedeCursar(29).
  37. puedeCursar(30).
  38. puedeCursar(31).
  39. puedeCursar(32).
  40. puedeCursar(33).
  41. puedeCursar(34).
  42. puedeCursar(35).
  43.  
  44. ).
  45.  
  46. % Estado académico.
  47.  
  48. rendida(01).
  49. promocionada(02).
  50. promocionada(03).
  51. promocionada(04).
  52. promocionada(05).
  53. regular(07).
  54. rendida(08).
  55. regular(09).
  56. promocionada(10).
  57. rendida(13).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement