notka:-
write('System ekspertowy AI 2018'),nl.

/*HIPOTEZY*/

zdolnosc(Sportowiec,zdolny):-
						zdrowie(Sportowiec, dobra_krew),
						zdrowie(Sportowiec, dobre_ekg),
						zdrowie(Sportowiec, dobre_zeby),
						zdrowie(Sportowiec, dobry_kregoslup).


zdolnosc(Sportowiec,niezdolny):-
						zdrowie(Sportowiec, dobra_krew),
						zdrowie(Sportowiec, zle_ekg),
						zdrowie(Sportowiec, dobre_zeby),
						zdrowie(Sportowiec, zle_zeby),
						zdrowie(Sportowiec, zly_kregoslup).

zdolnosc(Sportowiec,badania):-
						zdrowie(Sportowiec, kontuzja),
						zdrowie(Sportowiec, dobra_krew),
						zdrowie(Sportowiec, dobre_ekg),
						zdrowie(Sportowiec, dobre_zeby),
						zdrowie(Sportowiec, niekregoslup).



/*REGULY*/

zdrowie(P, X):-pytaj('Czy sportowiec ma: ',X).
pytaj(Y, X):- znana(Y,X,Z),!.
pytaj(Y, X):-znana(Y, X, true),!.
pytaj(Y, X):-znana(Y, X, false),!, fail.
pytaj(Y, X):-nl,write(Y),write(' '),
			write(X) , write('?(y/n/Z)'), read(Ans), !,
			((Ans=y, assert(znana(Y, X, true)));((Ans=n,assert(znana(Y, X, false));(assert(znana(Y,X,Z)),fail)).



diagnoza:-nl,write('Ocenianie zdolnosci...'),nl,zdolnosc(zdrowie,Zdolnosc) ,!,nl,
			write('Sportowiec jest: '), write(Zdolnosc).
diagnoza:- nl, write('Nie mozna okreslic!').

start:-notka,repeat, abolish(znana/3),dynamic(znana/3), retractall(znana/3), diagnoza,nl,nl, write('Sprobowac ponownie ? (y/n)'),read(Resp),\+ Resp=y,
		nl,write('Dziekuje za uzywanie systemu.'),abolish(znana,3) .