Список проголосовавших за комментарий "PureBasic Русская Сортировка Половинами и скорая и человеческая<br/> PureBasic Russian Sorting Halves and fast and human<br/> <br/> считывает только количество из c:/N.txt<br/> удобно чтобы обходиться без оболочки PureBasic<br/> и сортировав хоть миллиарды пишет по 1000<br/> наименьших и наибольших в c:/RSH_DAV.txt<br/> <br/> PureBasic Russian Sorting Halves Recursive<br/> сортирует 1000000 за 0,3 секунды<br/> <br/> ; Russian Sorting Halves Danilin<br/> OpenConsole()<br/> Declare RussianSortingHalvesDAV (ab, yz, part, age)<br/> <br/> ;n=12345678<br/> <br/> If ReadFile(0, «c:/N.txt») <br/> n=Val(ReadString(0))<br/> CloseFile(0) <br/> EndIf<br/> <br/> age=Int(1+(Log(n)/Log(2)))<br/> Global Dim d(n) <br/> Global Dim a(n) <br/> <br/> For i=1 To n<br/> ;d(i)=Random(n,1); случайные значения от 1 до n<br/> d(i)=n-i+1;<br/> Next <br/> <br/> ; вывод исходных значений до сортировки<br/> PrintN(" Исходный без сортировки Первые 20")<br/> For k=1 To 20: Print(" "+ d(k)): Next: PrintN("")<br/> PrintN(" Последние 10")<br/> For k=n-9 To n: Print(" "+ d(k)): Next: PrintN("")<br/> <br/> start=ElapsedMilliseconds(); таймер <br/> <br/> If age > 0 :<br/> RussianSortingHalvesDAV(1, n, 1, age)<br/> EndIf<br/> <br/> finish=ElapsedMilliseconds(); таймер <br/> <br/> PrintN(«RussianSorting Первые 50»)<br/> For k=1 To 50: Print(" "+ d(k)): Next: PrintN("")<br/> PrintN(" Последние 20")<br/> For k=n-19 To n: Print(" "+ d(k)): Next: PrintN("")<br/> <br/> PrintN( «Время сортровки RussianSorting=» + Str(finish-start))<br/> <br/> If OpenFile(0, «c:/RSH_DAV.txt»)<br/> For k=1 To 1000 :WriteString (0, " " +d(k)): Next<br/> For k=n-1001 To n :WriteString (0, " " +d(k)): Next<br/> CloseFile(0)<br/> EndIf<br/> <br/> Input()<br/> End<br/> <br/> ; Процедура сортировки<br/> Procedure RussianSortingHalvesDAV (ab, yz, part, age)<br/> <br/> If yz-ab < 1 :ProcedureReturn 0<br/> EndIf <br/> <br/> For i=ab To yz<br/> summa=summa+d(i)<br/> Next<br/> middle=summa/(yz-ab+1)<br/> <br/> abc=ab-1<br/> xyz=yz+1<br/> <br/> For j=ab To yz<br/> If d(j) <= middle: <br/> abc=abc+1: a(abc)=d(j)<br/> Else <br/> xyz=xyz-1: a(xyz)=d(j)<br/> EndIf<br/> <br/> Next<br/> <br/> For w=ab To yz: d(w)=a(w): Next<br/> <br/> If part < age :<br/> If abc >= ab :RussianSortingHalvesDAV(ab, abc, part+1, age)<br/> EndIf<br/> If xyz < yz :RussianSortingHalvesDAV(xyz, yz, part+1, age)<br/> EndIf<br/> EndIf<br/> <br/> EndProcedure"