To jest stara wersja strony!
Opis
Spotkania
08.03.04
08.03.18
user_says(Q,A) :- stored_answer(Q,A).
user_says(Q,A) :- \+ stored_answer(Q,_),
nl,nl,
ask_question(Q),
get_yes_or_no(Response),
asserta(stored_answer(Q,Response)),
Response = A.
user_says(Q,A) :- stored_answer(Q,A).
user_says(Q,A) :- \+ stored_answer(Q,_),
nl,nl,
java_ui_quest(Q,Response),
asserta(stored_answer(Q,Response)),
Response = A.
java_ui_quest(Q,R) :-
ask_qest_in_java(Q),
get_ans_from_java(R).
Przy założeniu Java pyta prolog o diagnozę:
Przerobić to:
try_all_possibilities :- % Backtrack through all possibilities...
defect_may_be(D),
explain(D),
fail.
defect_may_be to zapytanie do prologu…
080401
080415
Projekt
Car expert system
Wersja 1
Wersja 2
Sprawozdanie
Materiały