Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Перестановка элемента в списке
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
AlexF AlexF вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.10.2005
По умолчанию Перестановка элемента в списке - 20.10.2005, 17:32

Вводится список, элементами которого являются числа. Осуществить
следующие переставить к-й элемента с начала списка в конец списка.
Ответить с цитированием
  (#2 (permalink)) Старый
Alison Alison вне форума
Member
 
Сообщений: 4,771
Сказал(а) спасибо: 0
Поблагодарили 119 раз(а) в 116 сообщениях
Регистрация: 17.11.2004
По умолчанию 21.10.2005, 10:44

Цитата:
переставить к-й элемента с начала списка в конец списка.
Код:
domains
il=integer*
predicates
перест_в_конец(integer,il,integer,il)
clauses
перест_в_конец(1,[A|L],A,L1):- !,перест_в_конец(0,L,A,L1).
перест_в_конец(K,[B|L],A,[B|L1]):- K1=K-1,перест_в_конец(K1,L,A,L1).
перест_в_конец(_,[],A,[A]):- bound(A).
goal
перест_в_конец(3,[1,2,3,4,5],_,L).
Цитата:
Вводится список, элементами которого являются числа.
А это то же самое вместе с вводом списка целых чисел.
Код:
domains
il=integer*
predicates
ввод(il)
перест_в_конец(integer,il,integer,il)
goal
write("Для окончания ввода чисел нажмите Enter.n"),ввод(L),write("nСписок: ",L),
write("nУкажите номер переставляемого элемента: "),readint(K),
перест_в_конец(K,L,_,L1),write("Результат: ",L1),nl,nl.
clauses
ввод([X|L]):- write("Введите число: "),readint(X),!,ввод(L).
ввод([]).

перест_в_конец(1,[A|L],A,L1):- !,перест_в_конец(0,L,A,L1).
перест_в_конец(K,[B|L],A,[B|L1]):- K1=K-1,перест_в_конец(K1,L,A,L1).
перест_в_конец(_,[],A,[A]):- bound(A).
Ответить с цитированием
  (#3 (permalink)) Старый
AlexF AlexF вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.10.2005
По умолчанию 23.10.2005, 21:52

Cпасибо !!!
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Позиция элемента и сдвиг в списке glyc Lisp 14 19.11.2015 19:04
Поиск частоты встречаемости элемента в списке time_to_go_on Prolog 9 22.03.2012 22:41
Удаление предпоследнего элемента в списке Samael Lisp 5 09.05.2011 17:24
Замена элемента в списке. Atton Prolog 17 09.05.2011 00:44
проверка наличия элемента в списке. zven_ Prolog 3 12.05.2010 00:08
Переставить два элемента в списке cska_fun Lisp 3 26.11.2009 17:09
Нахождение элемента в списке tigerx2 Prolog 10 26.11.2009 00:11
Замена всех вхождений элемента в списке MUZZ Prolog 4 13.11.2009 13:51
номер элемента в списке Ashes Prolog 1 05.06.2008 19:03
Перестановка к-го элемента в начало списка andresss Prolog 7 27.11.2007 23:54
Определение максимального элемента в списке Zerо Prolog 5 04.09.2006 18:42
Как написать программу поиска элемента в двунаправленном списке Anonymous Prolog 10 06.05.2003 03:21



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов