tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Язык мой Пример 2 Ввод Вывод
Язык мой
Пример 2
Ввод Вывод
Язык мой
Враг мой
<
Враг мой
gerrr009
2 02.10.2020 07:48
14
Ответы
Kloloko
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).
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
rpppppppyuv
09.01.2022 08:17
Записать статический метод, проверяющий, является ли строка корректным паролем - более 12 символов, есть буквы и цифры System.out.println(ex1(“a1rwtret43521wtsgsmail”));...
Aixerel
09.01.2022 07:53
( )решить информатику надо...
Катя870273
09.01.2022 07:53
решить задание по информатике...
SMokKK
09.01.2022 07:50
Для чего предназначено ОЗУ? Принцип ее построения и взаимодействия....
SolDPriCe
09.01.2022 05:44
Что делать , программирование visual studio, при запуске программы выводит это...
Sfdfgc
09.01.2022 05:13
решить задание по алгоритмам Задание:найти значение выражений,для тестирования программы используйте тестовые данные и результаты ( )...
klanfaktorp082lg
09.01.2022 04:58
Типология и функции механизмов функционирования политических систем , очень сильно нужно....
accyxob
09.01.2022 04:08
При запуске пользователем программа загружается на это устройство. 1) в блок питания2) на материнскую плату3) в жёсткий диск4) в оперативную память5) в cd/dvd привод...
ученица999999999
09.01.2022 03:33
Чим розширений фільтр MS Excel перевищує можливості автофільтру?...
JEJH
09.01.2022 03:07
Папки хранятся в файлах?да или нет...
Популярные вопросы
5в 7степени умножить на 9 в 8 степени,разделить на 45 в 7 степени...
1
Проехали 153 км,что на 65 км больше,чем осталось проехать.сколько...
2
Пять слов удвоенная буква согласного на стыке приставки и корня...
1
Пшеницей засеяно три поля, площади которых равны 10 га, 12 га и...
2
Аналіз пісні проведу я русалочки до бору ....
2
Докажите, что сумма диаметров описанной и вписанной окружностей...
2
Сколько длилась первая мировая война...
2
Так как земля вращяется вокруг своей оси,то на ней происходит… а)смена...
3
Из города одновременно в одном направлении выехали грузовая машина...
3
выразите 556 кг в центнерах,грамах или кг...
3
Язык не указан → приведу пример на 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).