FIFTH LAB, Prolog - rextester

FIFTH LAB

характеристикаСобаки(английскийБульдог, [1,0,0,1,1,0,1,0]).
характеристикаСобаки(гончая, [1,0,0,1,0,1,1,0]).
характеристикаСобаки(дог, [1,0,1,0,0,1,1,1]).
характеристикаСобаки(американская_гоначя, [1,0,0,0,1,1,1,0]).
характеристикаСобаки(кокер_спаниэль, [0,1,0,1,1,1,1,0]).
характеристикаСобаки(ирландский_сеттер, [0,1,1,0,0,1,0,0]).
характеристикаСобаки(колли, [0,1,1,0,1,0,1,0]).
характеристикаСобаки(сенбернар, [0,1,0,0,1,0,1,1]).

program :-
    write('У собаки короткая шерсть?'), nl,
    read(Ответ_1),
    write('У собаки длинная шерсть?'), nl,
    read(Ответ_2),
    write('Рост собаки больше 45см?'), nl,
    read(Ответ_3),
    write('Рост собаки меньше 45см?'), nl,
    read(Ответ_4),
    write('У собаки низкопосаженный хвост?'), nl,
    read(Ответ_5),
    write('У собаки длинные уши?'), nl,
    read(Ответ_6),
    write('У собаки дружелюбный характер?'), nl,
    read(Ответ_7),
    write('Вес собаки более 100 фунтов?'), nl, nl,
    read(Ответ_8),
    
    write('Ваши ответы - '),
    write([Ответ_1, Ответ_2, Ответ_3, Ответ_4, Ответ_5, Ответ_6, Ответ_7, Ответ_8]), nl, nl,
    
    write('Рекомендуется порода: '), nl,
    характеристикаСобаки(X, [Ответ_1, Ответ_2, Ответ_3, Ответ_4, Ответ_5, Ответ_6, Ответ_7, Ответ_8]), write(X), nl, fail.
:- program.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development