Лабораторная работа №3
скачать (4.2 kb.)
Доступные файлы (1):
| Отчет_3.doc | 27kb. | 19.11.2008 22:19 |  скачать |
- Смотрите также:
- 01. Лабораторная работа 02. Лабораторная работа 03. Лабораторная работа 04 [ документ ]
- 01. Лабораторная работа 02. Лабораторная работа 03. Лабораторная работа 04 [ документ ]
- Проектирование режущего инструмента [ документ ]
- Лабораторные работы по метрологии, стандартизации сертификации [ документ ]
- №3 [ документ ]
- Лабораторная работа по исследованию аппаратуры [ лабораторная работа ]
- №3 [ документ ]
- №7 [ лабораторная работа ]
- 11 Сортировка [ документ ]
- №2 [ лабораторная работа ]
- №6 [ лабораторная работа ]
- Лабораторная работа [ документ ]
Отчет_3.doc
КАЗАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. А.Н.ТУПОЛЕВА.Кафедра Прикладной Математики и Информатики им. Ю.В. Кожевникова
Лабораторная работа №3
по дисциплине
«Функциональное и логическое программирование».
Казань – 2008.
Лабораторная работа №3.
Работа со списками в языке пролог.
Цель работы: Изучение реализации списков в языке Пролог. Получение практических навыков разработки процедур для обработки списков.
Задание:
Разработать предикат, реализующий функцию: REMOVEF – удаление из списка первого вхождения заданного элемента.
Листинг:
include "lab3.inc"
domains
t_list=integer*
predicates
removef(integer,t_list,t_list) %1 параметр - удаляемое число,
%2 параметр – исходный список,
%3 параметр – результат.
clauses
removef(_,[],[]):-write("Нет решений, т.к. список пуст"),nl.
removef(N,[H|T],T):-N=H,!.
removef(N,[H|T],[H|T1]):-removef(N,T,T1).
goal
%removef(3,[1,2,3,4,5,3,6,7,3],Y). %Y=[1,2,4,5,3,6,7,3]
%removef(4,[1,2,3,4,5,3,6,7,3],Y). %Y=[1,2,3,5,3,6,7,3]
removef(9,[],Y). %Y=[]
Скачать файл (4.2 kb.)