Вопрос 4. Написать программу для удаления элемента из списка по указанному номеру.


Добавил:DMT
Дата создания:30 декабря 2007, 19:20
Дата обновления:30 декабря 2007, 19:20
Просмотров:5664 последний сегодня, 1:28
Комментариев: 4
Вопрос 4. Написать программу для удаления элемента из списка по указанному номеру.
up

Комментарии для "Вопрос 4. Написать программу для удаления элемента из списка по указанному номеру. "


Пользователь: DMT
Сообщений: 123
Статус: Программист
Зарегистрирован:
18 октября 2007, 2:35
Был:13 ноября 2017, 4:54
DMT
smsup
Дата: 4 января 2008, 14:18 Сообщение № 1

Код на Lisp
  1. domains
  2. int=integer
  3. str=string
  4. strp=str*
  5. predicates
  6. delete(int,strp,strp).
  7. /* удаление элемента из списка по номеру
  8. параметры:
  9. int - номер элемента
  10. strp - исходный список
  11. strp - получаемый список */
  12. clauses
  13. delete(X,[],[]):- X>1 ,
  14. write(" Номер больше числа элементов списка\n"),!.
  15. delete(X,Y,Y):- X<1,write("Недопустимый номер\n"),!.
  16. delete(1,[Head|Z],Z):- !.
  17. delete(X,[Head|Y],[Head|Z]) :- X1=X-1,delete(X1,Y,Z).
  18. goal
  19. delete(2,["3","4","5","7","2","5"],R),write(R).
При использовании обязательна ссылка на http://DMTSoft.ru

Пользователь: lilo
Сообщений: 38
Статус: Незримый
Зарегистрирован:
8 января 2008, 12:39
Был:9 апреля 2008, 19:55
lilo
smsup
Дата: 8 января 2008, 12:51 Сообщение № 2

Код на Lisp
  1. domains
  2. i=integer
  3. il=integer*
  4. predicates
  5. delete(i,il,il)
  6. clauses
  7. delete(X,[],[]) :- X>1,!.
  8. /*Номер больше числа элементов списка */
  9. delete(X,Y,Y) :- X
При использовании обязательна ссылка на http://DMTSoft.ru



НеВЕРНЫй КОД! Вопрос совершенно другой
Исправил DMT 14.01 [17:42]
Пользователь: ommweek
Сообщений: 2
Статус: Пользователь
Зарегистрирован:
23 сентября 2008, 18:21
Был:23 сентября 2008, 18:53
ommweek
smsup
Дата: 23 сентября 2008, 18:48 Сообщение № 3
а можно полный код
Пользователь: ommweek
Сообщений: 2
Статус: Пользователь
Зарегистрирован:
23 сентября 2008, 18:21
Был:23 сентября 2008, 18:53
ommweek
smsup
Дата: 23 сентября 2008, 18:49 Сообщение № 4
очень очень надо