Лабораторная работа №3 Вариант 8
.doc
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
КАФЕДРА АВТОМАТИЗИРОВАННЫХ СИСТЕМ УПРАВЛЕНИЯ
Лабораторная работа №3
по дисциплине
«Рекурсивно-логическое программирование»
|
|
Студент |
|
|
|
Ельшаева Н.А. |
|
||||||||
|
|
|
|
подпись, дата |
|
фамилия, инициалы |
|
||||||||
|
|
Группа |
|
АС-09 |
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
||||||||
|
|
Принял |
|
|
|
|
|
||||||||
|
|
|
|
|
|
Гаев Л.В. |
|
||||||||
|
|
ученая степень, звание |
|
подпись, дата |
|
фамилия, инициалы |
|
||||||||
Липецк 2010
Вариант 8:
chyot(List1,List2). Список List2 получен из списка List1 организацией всех чётных чисел в подсписок, размещаемый в начале списка.
например, chyot([1,2,5,6,3,4,7],[[2,6,4],1,5,3,7]).
Текст программы
chet([],[]). ch(A,X):-A>2,A1isA-2,ch(A1,X). ch(A,X):-A<1,A1isA+2,ch(A1,X). ch(A,X):-Xis1,A=1. ch(A,X):-Xis2,A=2. chet([A],[[],A]):-ch(A,Y),Y=1. chet([A],[[A],[]]):-ch(A,Y),Y=2. chet([H|T],[[H|List1],L|R]):-ch(H,P),P=2,chet(T,[List1,L|R]). chet([H|T],[List1,H|[L|R]]):-ch(H,P),P=1,chet(T,[List1,L|R]).
Контрольный пример:
Выводы
В ходе проделанной лабораторной работы я получила базовые навыки работы со списками.