Сортировка методом прямого выбора

@Марусенька · Регистрация: 18.05.2010

Студворк — интернет-сервис помощи студентам

Напишите базу знаний сортировки данного списка по убыванию.Зарание спасибо!!!!

@pavelr · 18.05.2010, 20:04

Сортировка методом прямого выбора:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
domains
i=integer
il=i*
predicates
max(i,i,i)
maxl(il,i)
del(i,il,il)
sort(il,il)
clauses
max(X,Y,X):-X>=Y,!.
max(_,Y,Y).
maxl([X],X):-!.
maxl([X|T],R):-maxl(T,R1),max(X,R1,R).
del(X,[X|T],T):-!.
del(X,[Y|T],[Y|L]):-del(X,T,L).
sort([],[]):-!.
sort(L,[El|R2]):-maxl(L,El),del(El,L,R1),sort(R1,R2).
goal
sort([2,5,-3,19,20,-43,19,18,34],K).

@Ma3day · 18.10.2010, 15:28

а можно тоже самое только не по убыванию а по возрастанию?

@rrrFer · 18.10.2010, 20:37

Ma3day,
max(X,Y,X):-X>=Y,!.
замени на
max(X,Y,X):-X<=Y,!.

@Ma3day · 18.10.2010, 22:25

спасибо!!!)))
а то я этот пролог видел в гробу)))

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Марусенька 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 4

	Сортировка методом прямого выбора 18.05.2010, 14:15. Показов 5468. Ответов 4 Метки нет (Все метки) Напишите базу знаний сортировки данного списка по убыванию.Зарание спасибо!!!! 0

@Ma3day 4 / 4 / 4 Регистрация: 18.10.2010 Сообщений: 20
	18.10.2010, 15:28
	а можно тоже самое только не по убыванию а по возрастанию? 0

@rrrFer Заблокирован
	18.10.2010, 20:37
	Ma3day, max(X,Y,X):-X>=Y,!. замени на max(X,Y,X):-X<=Y,!. 1

@Ma3day 4 / 4 / 4 Регистрация: 18.10.2010 Сообщений: 20
	18.10.2010, 22:25
	спасибо!!!))) а то я этот пролог видел в гробу))) 0