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