Сортировка массива в обратном порядке (задачка...) |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сортировка массива в обратном порядке (задачка...) |
TBVlad |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Учусь на дистанционке, учебный диск неполный, есть трудности...
Прочитал тему, близкую по содержанию, но программа, приведённая там, дала неверный результат. Задание звучит так: "Ввести одномерный массив из N действительных чисел. Пересортировать его в обратном порядке." Знаю, что такое массив и как его вводить, умею сортировать по возр. и уб., но в обратном порядке - не понимаю... поможете? |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Берешь массив, сравниваешь первые 2 элемента, в зависимости от этого определяешь отсортирован в данный момент массив по возрастанию или по убыванию, получив эти данные сортируешь противоположным способом ... Это конечно если заранее не известно по какому принципу отсортирован массив
Хотя нет, надо просто сделать инвесию массива и все ! Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
TBVlad |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Да есть мысль сделать так =) Инверсию через цикл downto.
Просто есть опасение, что преподша взъестся... "Ты чё сделал?! Надо пересортировать!" |
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вот и все. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
TBVlad |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Спасибо, работает.
|
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Спасибо, работает. Незчато .. это стандартный алгоритм, "переварачивает" массив ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 17.05.2024 0:21 |