/*
  nota(X,Y) 

  Predicado que comprueba comprueba si hay correspondencia entre la nota numérica X y la nota alfabética Y

   Argumentos
  + X:
    - Significado: número
    - Tipo: entrada y salida
 
  + Y:
    - Significado: calificación alfabética {suspenso, aprobado, notable, sobresaliente, matricula_honor}
    - Tipo: entrada y salida
*/

nota(X,suspenso):- X < 5.
nota(X,aprobado):- 5 =< X, X < 7.
nota(X,notable):-  7 =< X, X < 9.
nota(X,sobresaliente):- 9 =< X, X < 10.
nota(X, matricula_honor):- X = 10.


/*
  nota_bis(X,Y) 

  Predicado que comprueba comprueba si hay correspondencia entre la nota numérica X y la nota alfabética Y

  Nota: se utiliza el corte "!"

  Argumentos
  + X:
    - Significado: número
    - Tipo: entrada y salida
 
  + Y:
    - Significado: calificación alfabética {suspenso, aprobado, notable, sobresaliente, matricula_honor}
    - Tipo: entrada y salida
*/


nota_bis(X,suspenso):- X < 5, !.
nota_bis(X,aprobado):- X < 7, !.
nota_bis(X,notable):-  X < 9, !.
nota_bis(X,sobresaliente):- X < 10, !.
nota_bis(10, matricula_honor).
