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

Вниз

как отсортировать данные, не занося ВСЕХ их в массивы?   Найти похожие ветки 

 
Максим   (2012-07-18 17:01) [0]

В этом участке кода я считываю информацию из текстового файлика и записываю в один массив все фамилии, в другой имена, в третий класс, в четвертый балл. Потом я сортирую массив с баллами и от него беру часть с самыми лучшими баллами.
for n:=1 to 51 do
begin
 readln(f,s);
 a[n-1].fam:=copy(s,1,pos(" ",s)-1);
 delete(s,1,pos(" ",s));
 a[n-1].nam:=copy(s,1,pos(" ",s)-1);
 delete(s,1,pos(" ",s));
 a[n-1].kls:=copy(s,1,pos(" ",s)-1);
 delete(s,1,pos(" ",s));
 a[n-1].bal:=StrToInt(s);
end;
closefile(f);
lbl2.caption:=inttostr(n);
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i].bal<a[j].bal then
begin
 x:=a[i];
 a[i]:=a[j];
 a[j]:=x;
end;


Так вот, мне необходимо сделать так, чтобы сортировка происходила сразу в момент чтения файла, т.е. не использовать массивы для записи туда всех-всех данных, а работать исключительно с необходимыми (с теми у кого баллы высокие). Как это реализовать?
Сортировка должна происходить только по ПОСЛЕДНЕМУ числу из строки. Строка выглядит так:
Фамилия Имя Класс Балл

Так вот необходимо отсортировать по баллам и отобрать 45 процентов (с самым большим баллом)


 
Медвежонок Пятачок ©   (2012-07-18 17:37) [1]

стринглист. метод кастомсорт.
если нужен массив, то перенести в массив из стринглиста


 
AV ©   (2012-07-19 12:31) [2]

считать первые 45% в список(массив)
отсортировать
каждое следующее считанное значение, методом половинного деления, вставить в соответствующую позицию, последний выкинуть.


 
Sha ©   (2012-07-19 13:24) [3]

Про пирамидальную сортировку почитай, авось мысли какие появятся.

P.S. Сортировка тут не требуется.



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

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

Наверх





Память: 0.45 MB
Время: 0.069 c
2-1328771126
JohnKorsh
2012-02-09 11:05
2013.03.22
Масштабирование формы при разных разрешениях экрана.


15-1344012320
wl
2012-08-03 20:45
2013.03.22
посоветуйте Фильм (именно так, с большой буквы)


1-1300648529
Ridlypoot
2011-03-20 22:15
2013.03.22
Проблема с GetPropInfo


3-1278794858
jziiiiiii
2010-07-11 00:47
2013.03.22
access adotable


15-1352147405
Юрий
2012-11-06 00:30
2013.03.22
С днем рождения ! 6 ноября 2012 вторник





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