Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Вниз

Сортировка 5ти пар чисел   Найти похожие ветки 

 
XHelp   (2002-09-13 17:30) [0]

YO!
Народ! У меня есть такая трабла...
Есть 5 масивов
var
a1,a2,a3,a4,ps: array [0..6000] of Extended;
Как мона их "акуратно" вывести в отсортированом виде...
Нуна отсортировать их по ps (по возрастанию и с сохранением пропорций... тоесть что бы остовалось a1[123] - a2[123] - a3[123] - a4[123] - ps[123]) и вывести например в какой нить таблице... с возможность сохранить в файл (тот же .xls)!

ПЛИЗ! Помогите!


 
AFrolov   (2002-09-13 17:43) [1]

Поищи QuickSort в yandex"е. Только переставлять надо элементы не в 1 массиве а сразу во всех.


 
XHelp   (2002-09-13 17:48) [2]

Например:
Такие цифры:

ps - a1 - a2 - a3 - a4
23 - 12 - 75 - 43 - 91
321 - 43 - 212 - 754 - 32
0 - 65 - 7423 - 498 - 432

нуно поставить в таком порядке:

0 - 65 - 7423 - 498 - 432
23 - 12 - 75 - 43 - 91
321 - 43 - 212 - 754 - 32


 
AFrolov   (2002-09-13 17:57) [3]

Или сделай массив из массивов и сортируй его по нужному элементу в массиве-элементу или сделай массив из записей и сортируй эти записи по нужному тебе полю


 
TTCustomDelphiMaster   (2002-09-13 19:20) [4]

Если вы будете сохранять данные в формате Excel, то логично воспользоваться этой программой и для сортировки массивов.

Если же вы будете сортировать массивы самостоятельно, то можно ускорить эту процедуру. Для этого создайте массив
idx: array [0..6000] of integer;
заполните его последовательностью от 0 до 6000.
При сортировке массива ps делайте те же перестановки в массиве idx, а массивы a1-a4 пока не трогайте. По окончании сортировки в массиве idx будут содержаться индексы для быстрой сортировки массивов a1-a4.


 
XHelp   (2002-09-13 23:36) [5]

Нуда... теперь остаеться научиться сортировать массив ps...
8)))


 
XHelp   (2002-09-14 13:19) [6]

Хорошо, а как сортировать с помощью Excelя?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
3-85396
lety
2002-09-05 21:11
2002.09.26
случайные таблицы


1-85461
Schummi
2002-09-14 08:29
2002.09.26
Сохранить


4-85755
Aydar
2002-08-11 02:53
2002.09.26
Always on Top


4-85749
denand
2002-08-09 01:08
2002.09.26
Вырубаем Винду


14-85668
MJH
2002-08-31 11:29
2002.09.26
Каким способом грабит компакты SF6 в winXP, если в ней нет аспи?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский