Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Сортировка 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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.008 c
3-85324
Леван
2002-08-30 14:28
2002.09.26
Delphi+sql server 7.0


3-85401
RomanKut
2002-09-05 14:15
2002.09.26
После упаковки таблицы через BatchMove пропали индексы в новой та


8-85615
Evgenij
2002-05-29 14:14
2002.09.26
как сохранить информацию из jpg о дате,и фото апарате ?


1-85454
Sirus
2002-09-16 11:26
2002.09.26
Извините за вопрос, но как создать объект типа TStrings???


3-85336
mikl123
2002-09-04 11:16
2002.09.26
Передача данных в ClientDataSet





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский