Форум программистов, компьютерный форум, киберфорум
Prolog
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
2 / 2 / 0
Регистрация: 06.11.2013
Сообщений: 31

Предикат, который формирует список из номеров максимальных элементов числового списка

02.05.2016, 07:56. Показов 1431. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пжлст. знаю только что в теории мы будет проходит сначала по списку и находит самый максимальный элемент, а потом будет брать запоминать в списке отдельном позиции. как реализовать проблемка, ступор какой - то
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.05.2016, 07:56
Ответы с готовыми решениями:

Написать предикат, который формирует список из наиболее часто встречающихся элементов списка
необходимо реализовать данную задачу, вот как бы нашлось такое : len(,0). len(,N) :- len(T,N1), N is N1+1. del(,_,). ...

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

Предикат, который истинен в том случае, если ни один из элементов числового списка не больше заданного числа
Определить предикат, который истинен в том случае, если ни один из элементов числового списка не больше заданного числа.

1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38173 / 21108 / 4307
Регистрация: 12.02.2012
Сообщений: 34,707
Записей в блоге: 14
02.05.2016, 09:24
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
domains
int=integer
intl=int*
 
predicates
max(int,int,int)
max_elt(intl,int)
num_elt(intl,int,int,intl)
task(intl,intl)
 
clauses
max(A,B,B) :- B>A.
max(A,B,A) :- A>=B.
 
max_elt([X],X).
max_elt([H|T],M) :- max_elt(T,M1),max(H,M1,M).
 
num_elt([],_,_,[]).
num_elt([P|T],P,N,[N|R]) :- N1=N+1,num_elt(T,P,N1,R).
num_elt([P|T],Q,N,R)     :- P<>Q, N1=N+1,num_elt(T,Q,N1,R).
 
task(X,R) :- max_elt(X,M), num_elt(X,M,1,R).
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.05.2016, 09:24
Помогаю со студенческими работами здесь

Предикат, который увеличивает на единицу все элементы числового списка
Определить на языке ПРОЛОГ следующие рекурсивные предикаты: b) предикат, который увеличивает на единицу все элементы числового списка.

Предикат p(U, V, L) - истинный, когда список L есть список из элементов списка U без элементов списка V (Visual Prolog)
Здравствуйте, помогите разобраться с моей реализацией Видел уже решение данной задачи другим способом, но очень интересно понять почему...

Написать предикат для уменьшения на 1 всех элементов числового списка кроме первого
Здравствуйте Нужна помощь в решении двух задач в swipl prolog: 1.Написать предикат для уменьшения на 1 всех элементов числового...

Напишите предикат p( +L, +N, ?R), который удаляет N элементов с конца списка L
Здравствуйте форумчане! Помогите решить задачу, буду благодарен. Напишите предикат p( +L, +N, ?R), который удаляет N элементов с...

Предикат, переставляющий все отрицательные элементы числового списка в конец списка
Нужна программа, переставляющая все отрицательные элементы числового списка в конец списка Например: -&gt; Помогите кто может :)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru