Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.182.179] |
|
Сообщ.
#1
,
|
|
|
Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые два соседних элемента, нарушающие порядок. Процесс завершается по достижении упорядоченности массива
|
Сообщ.
#2
,
|
|
|
Нужно почитать о сортировках и реализовать пузырьковую
|
Сообщ.
#3
,
|
|
|
for i:=low(arr) to high(arr)-1 do for j:=low(arr) to high(arr)-1 do if arr[j] > arr[j+1] then begin a:=arr[j]; arr[j]:=arr[j+1]; arr[j+1]:=a; end; |
Сообщ.
#4
,
|
|
|
MBo
Кстати, в том-же дельфи есть уже готовые функции сортировки? |
Сообщ.
#5
,
|
|
|
В версиях с дженериками есть TArray<>.Sort
В старых есть для списков (TList, TStringList), в том числе с пользовательской функцией сравнения |