Написать программу нахождения минимального элемента списка

@Ferrari F1 · Регистрация: 27.01.2015

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

Прошу решить:
Написать программу нахождения минимального элемента списка. Изобразить схему логического вывода.

@Catstail · 01.07.2015, 17:45

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
domains
int=integer
intl=int*
 
predicates
 
max_el(intl,int)
min_el(intl,int)
 
clauses
 
max_el([X],X).
max_el([H|T],H) :- max_el(T,M), H>M.
max_el([H|T],M) :- max_el(T,M), H<=M.
 
min_el([X],X).
min_el([H|T],H) :- min_el(T,M), H<M.
min_el([H|T],M) :- min_el(T,M), H>=M.

transformator.t · 01.07.2015, 17:49

Prolog
1
2
3
4
5
mn([E],E) :- !.
mn([H|T],H) :-
        mn(T,R),R>H,!.
mn([_|T],R) :-
        mn(T,R).

@Ferrari F1 · 01.07.2015, 17:58 **[ТС]**

Catstail, этот код, как я понял, написан на турбо прологе?
transformator.t, а ваш на Вижуал?

transformator.t · 01.07.2015, 18:00

SWI-Prolog (Multi-threaded, 64 bits, Version 7.3.3)

@Ferrari F1 · 01.07.2015, 18:03 **[ТС]**

transformator.t, а как понять "Изобразить схему логического вывода." ?

transformator.t · 01.07.2015, 18:10

Клоксин, Меллиш - стр.58 - возможно как-то так)

@Ferrari F1 · 01.07.2015, 20:03 **[ТС]**

transformator.t, а как изобразить ее (схему) для данной задачи? Извини, просто пролог, можно сказать, вобще впервые вижу)

transformator.t · 01.07.2015, 20:20

catstail шарит, спроси у него

@Ferrari F1 · 01.07.2015, 21:55 **[ТС]**

Catstail, изобрази схему, если тебя это не затруднит, пожалуйста)

@loothood · 02.07.2015, 08:36

Ferrari F1, в swi-prolog есть очень удобный trace(консольный который).
Можешь попробовать запустить с trace. Возможно, как раз то, что надо.

@Ferrari F1 · 02.07.2015, 09:03 **[ТС]**

loothood, спасибо, но у меня цель, чтобы тут кто нибудь написал мне код и изобразил эту схему логического вывода, я код зазубрю и сдам его на контрольной. Больше мне ничего не нужно, а рыться в каких то гайдах, учебниках и качать компиляторы я не хочу.

Добавлено через 12 минут
у меня и компилятора то прологовского нет,ибо мне этот пролог нафиг не нужен. Но в универе считают иначе.
Мне нужен тупо код и эта схема. А понимать что и как там в коде делается мне не надо

@loothood · 02.07.2015, 09:30

Ferrari F1, честно говоря, не понимаю что надо.
Возможно это:

Prolog
1
2
3
4
5
min([Y],Y):-!.
 
min([H|L],H):-min(L,Z),write(H), write('=<'), write(Z),write(' now min is '), write(H),write('\n'),H=<Z.
 
min([H|L],Z):-min(L,Z),write(H),write('>='), write(Z),write(' now min is '), write(Z),write('\n'),H>=Z.

Все write можно объединить в один.
Вывод:

Prolog
1
2
3
4
5
6
7
8
?- min([2,3,4,1,5,6,7],1).
6=<7 now min is 6
5=<6 now min is 5
1=<5 now min is 1
4>=1 now min is 1
3>=1 now min is 1
2>=1 now min is 1
true .

@Ferrari F1 · 02.07.2015, 11:34 **[ТС]**

Catstail, а в твоем коде еще максимальный элемент ищется?

@Catstail · 02.07.2015, 12:25

Ferrari F1, да

@Black Fregat · 02.07.2015, 15:00

Ferrari F1, уважаемый, если даже тебе это не надо, почему мы должны сами понять, что там у Вас за схема логического вывода? Вот мы тебе напишем сейчас что-то по своему разумению, а преподаватель скажет типа "почему Вы тут квадратиков нарисовали, я ведь Вам на лекциях совершенно четко кружочки рисовал. Кружочки, Карл!".. И кто виноват потом будет?

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1

	Написать программу нахождения минимального элемента списка 01.07.2015, 16:26. Показов 2501. Ответов 15 Метки нет (Все метки) Прошу решить: Написать программу нахождения минимального элемента списка. Изобразить схему логического вывода. 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	01.07.2015, 17:58 [ТС]
	Catstail, этот код, как я понял, написан на турбо прологе? transformator.t, а ваш на Вижуал? 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	01.07.2015, 18:00
	SWI-Prolog (Multi-threaded, 64 bits, Version 7.3.3) 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	01.07.2015, 18:03 [ТС]
	transformator.t, а как понять "Изобразить схему логического вывода." ? 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	01.07.2015, 18:10
	Клоксин, Меллиш - стр.58 - возможно как-то так) 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	01.07.2015, 20:03 [ТС]
	transformator.t, а как изобразить ее (схему) для данной задачи? Извини, просто пролог, можно сказать, вобще впервые вижу) 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	01.07.2015, 20:20
	catstail шарит, спроси у него 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	01.07.2015, 21:55 [ТС]
	Catstail, изобрази схему, если тебя это не затруднит, пожалуйста) 0

@loothood 97 / 78 / 12 Регистрация: 07.06.2015 Сообщений: 132 Записей в блоге: 12
	02.07.2015, 08:36
	Ferrari F1, в swi-prolog есть очень удобный trace(консольный который). Можешь попробовать запустить с trace. Возможно, как раз то, что надо. 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	02.07.2015, 09:03 [ТС]
	loothood, спасибо, но у меня цель, чтобы тут кто нибудь написал мне код и изобразил эту схему логического вывода, я код зазубрю и сдам его на контрольной. Больше мне ничего не нужно, а рыться в каких то гайдах, учебниках и качать компиляторы я не хочу. Добавлено через 12 минут у меня и компилятора то прологовского нет,ибо мне этот пролог нафиг не нужен. Но в универе считают иначе. Мне нужен тупо код и эта схема. А понимать что и как там в коде делается мне не надо 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,685 Записей в блоге: 14
	02.07.2015, 12:25
	Ferrari F1, да 0

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	02.07.2015, 11:34 [ТС]
	Catstail, а в твоем коде еще максимальный элемент ищется? 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	02.07.2015, 15:00
	Ferrari F1, уважаемый, если даже тебе это не надо, почему мы должны сами понять, что там у Вас за схема логического вывода? Вот мы тебе напишем сейчас что-то по своему разумению, а преподаватель скажет типа "почему Вы тут квадратиков нарисовали, я ведь Вам на лекциях совершенно четко кружочки рисовал. Кружочки, Карл!".. И кто виноват потом будет? 0