% Este ejemplo relaciona profesores y cursos de la MCC.
% Realizado en clase 3 de febrero de 2016.

profesor(carlos).
profesor(rosen).

imparte(carlos,madi).
imparte(rosen,red).

curso(madi,matematicas_discretas,9).
curso(red,fundamentos_de_redes,9).

que_curso_imparte(P,M):-profesor(P),
	imparte(P,M),
	curso(M,D,X),
	display(P),display(' '),
	display(D),display(' '),
	display('creditos'),display(' '),
	display(X).
pago(P):-
	imparte(P,M),
	curso(M,D,X),
	Total is .15*X,
	display('pago= '),
	display(Total).
