Сортировка записей, Отсортировать записи в порядке невозрастания |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сортировка записей, Отсортировать записи в порядке невозрастания |
pank |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 17 Пол: Женский Репутация: 0 |
Подскажите, пожалуйста, есть данные об автомобилях, технические характеристики (название, мощность, скорость, масса, вид кузова, рабочий объем цилиндра), цена. Нужно напечатать таблицу, расположив модели в порядке невозрастания мощности.
Я тут что - то написала, но думается мне такой вариант не пройдет. Помогите, а... Прикрепленные файлы ZAPIC1.PAS ( 1.41 килобайт ) Кол-во скачиваний: 253 -------------------- Наталка
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
В следующий раз пользуйся поиском и смотри FAQ
FAQ : как упорядочить массив записей по одному из параметров Что не получится, спрашивай Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
pank |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 17 Пол: Женский Репутация: 0 |
Огромное СПАСИБО!
Чмок - чмок - чмок. -------------------- Наталка
|
Myasnik |
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
что-то я FAQ всё облазил и не нашёл... такой вот мега простой вопрос:
вводим числа, не массив, а проста числа. и сортируем их по убыванию! как ж написать? если был бы массив - нет проблем, но без массива чота не могу догнать. |
volvo |
Сообщение
#5
|
Гость |
А, прости за глупый вопрос, КУДА ты вводишь числа? В космос? Ты обязан обеспечить хранилище для данных, правда? Вот и расскажи, ГДЕ у тебя данные хранятся...
|
Myasnik |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
А, прости за глупый вопрос, КУДА ты вводишь числа? В космос? Ты обязан обеспечить хранилище для данных, правда? Вот и расскажи, ГДЕ у тебя данные хранятся... не в космос, а в программу Вот короч условие - прога вводит числа и после сортировки по убыванию выводит их на экран. если это делается через одномерный массив - пристрелите меня. |
volvo |
Сообщение
#7
|
Гость |
А "в программу" это куда? МЕСТО для данных ты отвел?
Так что, лучше сам: , это делается именно через массив... Ну, можно конечно и поизвращаться со списками разными, если охота |
Myasnik |
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
гыгыгы =) пасиб. лучше через массив. гимор мне не нужен ибо он скоро появится и такие задачи у меня будут....ыыыы
|
Lapp |
Сообщение
#9
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
не в космос, а в программу Программа, как известно всем (почти ), это алгоритмы+данные. Данные хранятся в специализированных структурах. Массив - одна из них, в некоторм смысле простейшая (если забыть про банальные скаляры). Именно об этом тебя спрашивал Волво. Ты бы еще сказал - в клавиатуру.. . Вспомнился случай еще со школы.. Учительница физики нас спрашивает: "в чем измеряется температура?" Светка А. отвечает: "в градусниках!" если это делается через одномерный массив - пристрелите меня. Я только покажу один пример. Может, ты знаешь, что в командной строке (DOS) есть команда для сортировки строк файла? Вот пойди в командную строку и набери: help sort <enter> видишь? Эта сортировка использует большую память, и даже можно указать ей, сколько нужно использовать. Для чего, как ты думаешь? ага, для массива . Более того, она даже пишет временные файлы на диск, если нужно.. Короче, это действие (сортировка) кажется простым, но на деле это совсем не так. Простые алгоритмы сортировки жрут много и времени, и ресурсов. Алгоритмов довольно много. У Кнута объемистая глава посвящена сортировке, если я не ошибаюсь. Да и не только у него.. Вот ты попробуй сам отсортировать что-нить ручками. Например, сд-диски на полке.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Myasnik |
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
Ребят, спасите, мозк отказал нириально в такой простой моей задачке. не могу задачку решить. совсем крыша съехала...
плиз, выручите меня. стыдно просить чтоб решили такую простую задачу, но её 5 человек не смогли написать, которые рубят нормально в паскале |
klem4 |
Сообщение
#11
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Myasnik |
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
я уже обсмотрелся в этой ветки фиг знает скока часов, но составить рабочую задачу так и не получилось. даже в наглую скопировал из FAQ, но задача не работает. Цитата Type arrType = Array[1 .. 10] Of Integer; Procedure Bubble(Var ar: arrType; n: integer); Var i, j, T: Integer; Begin For i := 1 To 10 Do For j := n DownTo i-1 Do If ar[Pred(j)] > ar[j] Then { < } Begin T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T End; End. Сообщение отредактировано: Myasnik - |
volvo |
Сообщение
#13
|
Гость |
А ЭТА задача в таком виде и не заработает... Ты же данные для сортировки не передаешь...
А вот так: Type ? P.S. Я бы попросил НИЧЕГО не менять в программах из FAQ... Они достаточно много тестируются, чтобы не содержать ошибок. Если хочешь гарантированно получать тот результат, о котором мы говорим - копируй программу БУКВА В БУКВУ... |
Myasnik |
Сообщение
#14
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
Спасибо, выручил. Исправил знак и считает теперь как нада!
|
Текстовая версия | 6.05.2024 7:56 |