Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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) .
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement