Проект по изкуствен интелект


Категория на документа: Информатика


write(X,"t li t",Y,"t ? "),nl,
readln(Ans),
frontchar(Ans,'y',_),
remember(X,Y,yes);
remember(X,Y,no),
fail.
ask(X,Y,no):-
write(X,"t li t",Y,"t ? "),nl,
readln(Ans),
frontchar(Ans,'n',_),
remember(X,Y,no);
remember(X,Y,yes),
fail.
remember(X,Y,yes):-
asserta(xpositive(X,Y)).
remember(X,Y,no):-
asserta(xnegative(X,Y)).

% Условие, за да бъде животното бозайник.
it_is(bozainik):-
positive(ima,kozina).

% Условие, за да бъде животното бозайник.
it_is(bozainik):-
positive(dava,mlqko).

% Условие, за да бъде животното бозайник.
it_is(bozainik):-
positive(pluva,vuv_voda).

% Условие, за да бъде животното птица.
it_is(ptica):-
positive(ima,pera),
positive(pluva,vuv_voda).

% Условие, за да бъде животното птица.
it_is(ptica):-
positive(leti,li),
positive(snasq,qica).

% Условие, за да бъде животното хищник
it_is(hishtnik):-
it_is(bozainik),
positive(qde,meso).

% Условие, за да бъде животното хищник
it_is(hishtnik):-
it_is(bozainik),
positive(ima,zaostreni_zubi),
positive(ima,nokti).




Сподели линка с приятел:





Яндекс.Метрика
Проект по изкуствен интелект 9 out of 10 based on 2 ratings. 2 user reviews.