Re: О сортировке. Алгоритм QSort



Posted by Анатолий Анимица on December 17, 1998 at 12:25:48:

In Reply to: Re: О сортировке. Алгоритм QSort posted by Владимир Секретёв, Клуб Любителей Бухгалтерского Учета on December 15, 1998 at 12:46:33:

Сортировка это конечно вэщь. Особенно, когда кроме лентопротяг ничего в смысле массовой памяти нет. А сейчас убей бог не пойму зачем она вообще, только уменьшить износ пальца, ведущего поиск фамилии в расчетно-платежной ведомости. Для этой цели я сваял программу сортировки в форме 70.rpt, которая сортирует только по первой букве наименования счета под декларацию - среди 30 человек на букву Ш и так найдете, т.е. примняются человеко-иашинные агрегаты поиска/отбора. Используется однопроходный цикл перебора по счету с записью отобранных по АБ..Я в подсписки с их последующим представлением в аргументом управляемой форме. Заодно она же режет ФИО на куски и образует инициалы, если попросишь. Скорость на 1000 человек приличная, а если кэш включен, не успеешь кнопку на мыши отжать, а у них у всех уже инициалы вместо имен и с номеров на фамилии перестроились все.
Кусочек программы ниже.
* счет 70
* при необходимости сортировка по первой букве фамилии
* максимальное количество людей с одинаковой первой буквой - 32
pt=[ps '•',ot]
fr=[strip [f1]]+[strip [f2]] строка аргументов
pf=[ps 'фам',fr] есть ли там сортировка по фамилии
pl=[ps 'льг',fr] режим льгот-оклад-отдел-счет затрат
pn=[ps 'нач',fr] режим расчетно-платежной ведомости
pp=[ps 'пла',fr] режим платежной ведомости
pi=[ps 'ини',fr] инициалы ФИО
ob=[ps 'обо',fr] показать обороты
op=[ps 'опе',fr] показать журнал операций
ob=[ps 'отб',fr] обеспечить отбор
ov=[ps 'все',fr] показать всех
! pf=0
goto shap70
!
fh='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ•' строка символов фамилии




Пpишедшие ответы: