Удаление элемента из списка

14. Разберем задачу удаления из списка, элементами которого являются названия дней недели, указанного элемента.

15.Создайте новый проект:

DOMAINS

list=symbol*

PREDICATES

del(symbol, list, list)

CLAUSES

del(X, [X|L], L).

del(X, [Y|L], [Y|L1]): - del(X, L, L1).

GOAL

L=[пн, вт, ср, чт, пт, сб, вс], write(“L=”, L), nl,

write(“X=”), readln(X),

del(X, L, L1), write(“L1=”, L1),!;

write(“Элемент отсутствует в списке”), nl.

Результат выполнения программы (рис. 9, 10):

1-й случай:

L=[" пн", " вт", " ср", " чт", " пт", " сб", " вс" ]

X=ср

L1=[" пн", " вт", " чт", " пт", " сб", " вс" ]

Рис. 9. Удаление из списка дней недели среды

2-й случай

L=[" пн", " вт", " ср", " чт", " пт", " сб", " вс" ]

X=пр

Элемент отсутствует в списке

Рис. 10. Вывод результата программы при удалении несуществующего в списке элемента

16. Вставим в список имен новый элемент, значение которого вводится с клавиатуры. Необходимо вывести все возможные варианты вставок.

17. Создайте проект следующего содержания: