- Философия, эзотерика:
- Религии:
- Познавательное
(обо всём)
/* GoogleAds */
Программа «Списки» - демонстрация работы со списками: вывод содержимого списка, вывод отдельных элементов списка.
/* Программа "Списки" - демонстрация работы со списками: вывод содержимого списка, вывод отдельных элементов списка. Среда - EZY Prolog */ domains /* Список названий */ bird_list = bird_name * bird_name = symbol /* Список целых чисел */ number_list = number * number = integer predicates birds(bird_list) score(number_list) clauses /* Список названий */ birds(["sparrow", "robin", "mockingbird", "thunderbird", "bald eagle"]). /* Список целых чисел */ score([56,87,63,89,91,62,85]). goal /* Вывести весь список названий. Свободная переменная All представляет весь список в целом. Он рассматривается при этом как некое целое, элементы играют роль частей этого целого. */ birds(All), write ("Вывод всего списка названий: ", All), nl, birds([S,R,M,T,B]), write ("Вывод всех элементов списка, но без кавычек: ", S, " и ", R, " и ", M, " и ", T, " и ", B), nl, /* Вывести четвёртый элемент списка. Процесс сопоставления начинается с первого элемента. Первые три переменные в целевом утверждении являются анонимными, при сопоставлении это обстоятельство, однако, роли не играет. Переменной B присваивается значение thunderbird. В этом процессе используется внутренняя связь элементов. */ birds([_,_,_,K,_]), write ("Вывод четвёртого элемента списка: ",K), nl, /* Вывести первый и второй элементы списка. */ birds([B1,B2,_,_,_]), write ("Вывод первого и второго элементов списка: ", B1, " и ", B2), nl, /* Вывести весь список чисел */ score(Number), write ("Вывод всего списка чисел: ", Number), nl, /* Вывести первое, второе и третье число из списка */ score([A1,C1,D1,_,_,_,_]), write ("Вывод первого, второго и третьего числа из списка: ", A1,", ", C1,", ", D1), nl.
Результат:
Вывод всего списка названий: [«sparrow»,«robin»,«mockingbird»,«thunderbird»,«bald eagle»]
Вывод всех элементов списка, но без кавычек: sparrow и robin и mockingbird и thunderbird и bald eagle
Вывод четвёртого элемента списка: thunderbird
Вывод первого и второго элементов списка: sparrow и robin
Вывод всего списка чисел: [56,87,63,89,91,62,85]
Вывод первого, второго и третьего числа из списка: 56, 87, 63
!!Рекомендуем: Семейная Энциклопедия Здоровья ⇒ Что должен знать современный человек? ⇒ Самоанализ. Работа над собой ⇒ Оглавление ⇒ Главная сайта