1. Вася, Лена, Петя, Саша и Юля любят кататься на мотоциклах. Они катаются на них, им очень хорошо вместе. А вот у Жоры «Запорожец», и он ездит отдельно от мотоциклистов. Вопрос: входит ли Жора в кампанию Васи, Лены, Саши, Пети и Юли?
2. Вася, Юля и Петя решили организовать праздничную вечеринку. Они пригласили в гости Женю с Олей и Лену с Колей. Какие ребята будут на празднике?
3. В пятом классе средней школы №3 учатся следующие ребята: Оля, Катя, Лена, Петя, Вася, Жора, Коля, Вадик, Лариса. Все дети как дети, учатся хорошо, стараются, а Вася с Петей не старались, и решили отправить их учиться в школу незнаек. Кто теперь учится в школе №3 в пятом классе?
4. В школьном буфете стоит очередь за булочками в следующем порядке с начала очереди: Юля, Вася, Петя, Коля и Витя. Определите, кто стоит в начале, в середине, в конце.
Исходный код программы на Visual prolog:
domains
name = string
predicates
организатор(name)
гость(name)
main
result() % выполняет поиск фактов
clauses
организатор("Вася").
организатор("Юля").
организатор("Петя").
гость("Женя").
гость("Оля").
гость("Лена").
гость("Коля").
result() :-
организатор(Name), write("\n", Name, "\n"),
fail. % этот предикат заставляет пролог искать заново
result() :-
гость(Name), write("\n", Name, "\n"),
fail;
% здесь ищем только один раз (находим только одну верную запись)
гость(_).
main :-
write("\t\tСписок всех участников праздника:\n"),
result(), write("\n"), readln(_).
goal
main.
|
Главная
Каталог файлов
