Задание 7

Написать в Turbo Prolog аналогичную программу для произвольной экспертной системы

predicates

    do_expert.

    do_consult.

    prefers(symbol).

clauses

    % База данных с видами спорта

    prefers("футбол").

    prefers("теннис").

    prefers("баскетбол").

    prefers("волейбол").

    prefers("плавание").

    prefers("бег").

    prefers("гольф").

do_expert :-

    write("Отвечайте на вопросы, выбирая виды спорта (y/n)."), nl,

    do_consult.

do_consult :-

    prefers(Sport),

    write("Предпочитаете ли вы играть в "), write(Sport), write("? (y/n)"),

    nl,

    readln(Answer),

    (Answer = "y" -> true ; retract(prefers(Sport)), fail),

    fail.

do_consult.

goal :-

    do_expert,

    write("Ваш выбор:"),

    nl,

    prefers(Sport),

    write(Sport),

    nl,

    fail.