сортировка шейкера по индексам |
сортировка шейкера по индексам |
stabs |
28.11.2007 21:15
Сообщение
#1
|
Гость |
привет всем кто знает напишите плиз сортировку шейкера по индексам я вот простую знаю а про эту ничего,вот вроде простая:
s:= 1; {Первый элемент массива} e:= 25; {Последний элемент массива} while e > s do begin for i:= s to e-1 do if Arr[i]>Arr[i+1] then begin tmp := Arr[i]; Arr[i] := Arr[i+1]; Arr[i+1] := tmp; c := c+1; end; for i:= e downto s+1 do if Arr[i] < Arr[i-1] then begin tmp := Arr[i]; Arr[i] := Arr[i-1]; Arr[i-1] := tmp; c := c+1; end; s:= s+1; e:= e-1; end; |
Текстовая версия | 10.06.2024 23:35 |