Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vipvip16tk
16.06.2021 02:49 •
Информатика
Язык мой
Пример 2
Ввод Вывод
Язык мой
Враг мой
<
Враг мой
Показать ответ
Ответ:
kceniakey
02.10.2020 08:01
Язык не указан → приведу пример на SWI-Prolog.
Код%Файл string_sortin.plsort([], [], _).sort([Head|Tail], Ordered, Qrd) :- sort(Tail, SubSorted, Qrd), put(Head, SubSorted, Sorted), order(Sorted, [], Ordered, Qrd).put(X, [], [X]).put(X, [H|T], [X,H|T]) :- compare(>, X, H).put(X, [H|T], [H|R]) :- put(X, T, R).order(X, _, X, ">").order([], R, R, "<").order([H|T], B, R, "<") :- order(T, [H|B], R, "<").select(">", Bufer, Bufer, _, ">").select("<", Bufer, Bufer, _, "<").select(S, Bufer, [S|Bufer], Ord, Ord).input_strings(Input, Bufer, Strings, Ord, ROrd) :- compare(=, Ord, "="), read_string(Input, "\n", "\r", _, String), select(String, Bufer, SS, Ord, OO), input_strings(Input, SS, Strings, OO, ROrd).input_strings(_, Strings, Strings, Ord, Ord). ?- current_input(Input), input_strings(Input, [], Strings, "=", Ord), sort(Strings, [R|_], Ord), writeln(R).
0,0
(0 оценок)
Популярные вопросы: Информатика
Daffynsky01
09.04.2021 06:29
Послідовність дій для вставлення картини з колекц...
andrey455
02.04.2022 03:06
Данные -это закодированная и представленная на носителе информация в виде : текста,...
Всеникизаняты11
07.05.2021 21:55
Много . Задание должно быть лёгким (см. фото). Дан фрагмент электронной таблицы в режиме отображения формул. Чему будут равны значения клеток В2 и B3 (после выхода из режима отображения...
1964hade
16.06.2022 08:19
1. Что будет выведено на экран после выполнения следующего фрагмента программы: a=30 b= 14 c=a – 2*b c= c – 2 print(c)...
lol09890
16.10.2022 12:55
Роизводную функцию f(x)=(x^3-6)^110...
Дима566779
16.10.2022 12:55
Добрый день. надо просклонять по падежам. станция,знание,санаторий...
MARCOM03
16.10.2022 12:55
Ярасту на болотах. спелые ягоды – ярко-красные. сок мой всегда освежающий, но кислый. это прекрасное витаминное и жаропонижающее питьё....
nastyamashkanc
16.10.2022 12:55
3. отгадай, от чьего лица идёт речь? а) в старину меня прозвали ворон-ягода. из моего сока готовили фиолетовые чернила. меня можно встретить в лесах от подмосковья до тундры....
Locko3
16.10.2022 12:55
Вцепь с напряжением 220в включена лампа сила тока в ней 0.5 а найдите мощность тока в лампе...
leafpool1
16.10.2022 12:55
2. в каждой группе названий зачеркни «лишнее» понятие. • ухо, язык, нога, глаз, нос. • термометр, ножницы, флюгер, микроскоп. • сосна, пихта, ольха, лиственница. • луна, земля,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Язык не указан → приведу пример на SWI-Prolog.
Код%Файл string_sortin.plsort([], [], _).sort([Head|Tail], Ordered, Qrd) :- sort(Tail, SubSorted, Qrd), put(Head, SubSorted, Sorted), order(Sorted, [], Ordered, Qrd).put(X, [], [X]).put(X, [H|T], [X,H|T]) :- compare(>, X, H).put(X, [H|T], [H|R]) :- put(X, T, R).order(X, _, X, ">").order([], R, R, "<").order([H|T], B, R, "<") :- order(T, [H|B], R, "<").select(">", Bufer, Bufer, _, ">").select("<", Bufer, Bufer, _, "<").select(S, Bufer, [S|Bufer], Ord, Ord).input_strings(Input, Bufer, Strings, Ord, ROrd) :- compare(=, Ord, "="), read_string(Input, "\n", "\r", _, String), select(String, Bufer, SS, Ord, OO), input_strings(Input, SS, Strings, OO, ROrd).input_strings(_, Strings, Strings, Ord, Ord). ?- current_input(Input), input_strings(Input, [], Strings, "=", Ord), sort(Strings, [R|_], Ord), writeln(R).